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

• #51929 Delila_1 veterán istvankeresz #51927

  Új Válasz 2023-12-11 16:11:56 #51929

  Ú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

  

  Delila_1

  veterán

  válasz istvankeresz #51927 üzenetére

  Módosítottam az előzőt, nézd meg!

• #51928 Delila_1 veterán istvankeresz #51927

  Új Válasz 2023-12-11 15:54:38 #51928

  Ú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

  

  Delila_1

  veterán

  válasz istvankeresz #51927 üzenetére

  Persze próba nélkül.
oszlop=2
For Each ws In ThisWorkbook.Worksheets
        ActiveWorkbook.Sheets("Maradék szabadságok").Cells(9,oszlop) = ThisWorkbook.Sheets(ws.Name).Range("A2")
    oszlop=oszlop+1             
Next ws

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