Új hozzászólás Aktív témák

• #53905 Fferi50 Topikgazda hunniaa #53902

  Új Válasz 2025-01-23 09:31:20 #53905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz hunniaa #53902 üzenetére

  Szia!
  Írtam is, hogy O365 esetén működik a képlet.
  Ha lehet makrózni, akkor a következő 2 makrót másold be a Gyártmánylap kódlapjára (lapfülön jobb egérgomb - kód megjelenítése):
  Sub osszetevok()
Dim rngossze As Range, rngalap As Range, sh1 As Worksheet, sh2 As Worksheet, tszoveg As String, ttomb
Set sh1 = Sheets("Gyártmánylap"): Set sh2 = Sheets("Összetevők")
Set rngossze = sh2.Range("A2").CurrentRegion
Set rngalap = sh1.Range("B3")
tszoveg = Application.VLookup(rngalap, rngossze, 2, 0)
tszoveg = Mid(tszoveg, InStr(tszoveg, ":") + 2)
If InStr(tszoveg, "Tartalmaz") > 0 Then tszoveg = Left(tszoveg, InStr(tszoveg, "Tartalmaz") - 2)
ttomb = Split(Replace(tszoveg, ", ", ","), ",")
Range("B10:B21").ClearContents
Range("B10:B" & 10 + UBound(ttomb)).Value = Application.Transpose(ttomb)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
Application.EnableEvents = False
osszetevok
Application.EnableEvents = True
End Sub
  Ezután a beállításokban engedélyezned kell a makrókat és makróbarátként kell elmentened.
  A makró minden olyan alkalommal, amikor a B3 cellában változtatod az értéket, kiírja az összetevőket (ha vannak... ).
  Ha nem lehet makróznod, akkor képletekkel is meg lehet oldani, csak ennél egy "kicsit" bonyolultabb, írd meg légy szíves, ha szükséges.
  Üdv.

Új hozzászólás Aktív témák