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

• #49934 Fferi50 Topikgazda istvankeresz #49933

  Új Válasz 2022-11-14 17:30:43 #49934

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

  Szia!
  Az elveket mutatnám, amit hozzá kell adaptálnod a saját feladatodhoz:
  Set ujws=Workbooks("uj").Sheets(1)
For Each ws in Worksheets
For Each rng In ws.UsedRange.Columns("A").Cells
If rng.Value=x Then
ujws.Cells(Cells(ujws.Rows.Count,1).End(xlUp).Row+1,"A").Value=rng.Value
'ha nem lehet több érték akkor Exit For
End If
Next
Next
  Az "uj" munkafüzetet létre kell hoznod előtte.
  A feltételt az If-fel kezdődő sorban kell megadni, itt egy szimpla egyenlőséget tételeztem fel.
  Az értéket mindig az A oszlop következő üres cellájába másolja.
  Üdv.

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