Elektroda.pl
Elektroda.pl
X
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

[Excel, Vba] Kopiowanie wiersza z arkusza do innego arkusza

-Tomi- 18 Aug 2010 00:22 10822 1
  • #1
    -Tomi-
    Level 13  
    Witam

    Mam taki problem posiadam arkusz1 i chciałbym za pomocą przycisku skopiować wiersz 1 do arkusza2 pod ostatni wypełniony wiersz. Problem w załączniku. Dzięki za pomoc
  • #2
    marcinj12
    Level 40  
    Private Sub CommandButton1_Click()
    ost_wiersz = Worksheets("Arkusz2").Range("A65536").End(xlUp).Row + 1
    Worksheets("Arkusz1").Rows(1).Copy Destination:=Worksheets("Arkusz2").Rows(ost_wiersz)
    End Sub

    Wystarczyło trochę poszukać....