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

• #51925 istvankeresz aktív tag

  Új Válasz 2023-12-11 13:26:34 #51925

  Ú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

  Üdv!

  Készítettem egy gombot, ami egy üres, template táblázatba (Maradek_TEMPLATE) összegyűjti a worksheet-ekből a kívánt értékeket és beírja a táblázatba. Odáig eljutottam, hogy végigmegy az összes worksheet-en, a megfelelő cellából kiveszi az értéket, de sajnos nem ugrik egy cellával lejebb, hanem a B9-be írja felűl mindig az átmásolandó értéket. A célom az lenne, hogy sorban B9, C9, D9...stb. cellákba másolja át a kiolvasott értékeket.

  Private Sub CommandButton7_Click() 
Dim lr As Long
Dim cell As Range
Dim ws As Worksheet
    ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
    ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
        lr = Sheets(Maradék szabadságok).Range("A" & Rows.Count).End(xlUp).Row + 1
        For Each ws In ThisWorkbook.Worksheets
            For Each cell In ThisWorkbook.Sheets(ws.Name).Range("B2:B28")
                    
                        ActiveWorkbook.Sheets(ws.Name).Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
                        cell.Value: lr = lr + 1
                    
             Next cell
      Next ws
End Sub

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