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

• #53909 Fferi50 Topikgazda hunniaa #53907

  Új Válasz 2025-01-23 20:56:41 #53909

  Ú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 #53907 üzenetére

  Szia!
  Háát, gondolatolvasó nem vagyok. Mindenesetre próbáld kicserélni erre az osszetevok eljárást:
  Sub osszetevok()
Dim rngossze As Range, rngalap As Range, sh1 As Worksheet, sh2 As Worksheet, toszlop As Integer, cl As Range, i As Integer
Set sh1 = Sheets("Gyártmánylap"): Set sh2 = Sheets("Alapanyag")
Set rngossze = sh2.Range("A2").CurrentRegion
Set rngalap = sh1.Range("B3")
toszlop = sh2.Rows(1).Find(what:=rngalap.Value, LookIn:=xlValues, lookat:=xlWhole).Column
rngossze.AutoFilter field:=toszlop, Criteria1:=">0"
sh1.Range("B10:B21").ClearContents
i = 10
For Each cl In rngossze.Columns(toszlop).SpecialCells(xlCellTypeVisible).Cells
    If cl.Row > 3 Then
       If cl.Value <> "" Then sh1.Cells(i, 2).Value = sh2.Cells(cl.Row, 2).Value: i = i + 1
    End If
Next
rngossze.AutoFilter
End Sub
  Hibakezelés nincs benne még, ha pld. nincs meg a kiválasztott fagyi az alapanyag táblában (bár talán ilyen nem igen lesz).
  Ha bármi gond adódna, írj légy szíves akár priviben.
  Üdv.

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