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

• #51927 istvankeresz aktív tag Delila_1 #51926

  Új Válasz 2023-12-11 15:40:52 #51927

  Ú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

  

  istvankeresz

  aktív tag

  válasz Delila_1 #51926 üzenetére

  Hát csak nem sikerül.

  Eléggé összekutyultam a sok próbálkozással. Letisztázva ez is azrt csinálja, hogy végiglépked a worksheet-eken és átmásolgatja az A2 értéket a B9-be. Innen hogyan tovább? Hogy a következő ciklusban már B9 helyett C9 legyen?

  Private Sub CommandButton7_Click() 
Dim ws As Worksheet
    ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
    ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
      
        For Each ws In ThisWorkbook.Worksheets
                    
                 ActiveWorkbook.Sheets("Maradék szabadságok").Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
                        
        Next ws
End Sub

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