Problem pojawia się w momencie tworzenia nowego arkusza. Excel zawsze dodaje nowy arkusz, którego nazwa zawiera kolejny numer, a wówczas jest problem z kopiowaniem.
Odpowiedź (1)
Zaloguj się, aby móc oceniać, komentować, odpowiadać...
-
3
Sub Makro1()
Dim ark As Worksheet
'Tworzymy nowy arkusz z przypisaniem do zmiennej ark typu Worksheet
Set ark = Sheets.Add(After:=Sheets(Sheets.Count))
'Nazwa dla arkusza to już czysta kosmetyka, bez tego również będzie działać
ark.Name = "nowy arkusz"
'kopiowanie danych z wykorzystaniem zmiennej ark
Sheets("Arkusz1").Range("a1:b2").Copy ark.Cells(5, 2)
End Sub
Pozdrawiam,
Paweł Fabiański
