Excel VBA: Makro do kopiowania danych między arkuszami z dynamicznym wyborem zakresu

🔍 Co robi to makro?

Makro umożliwia użytkownikowi wybranie zakresu komórek do skopiowania poprzez okienko InputBox i skopiowanie ich do innego arkusza (domyślnie do „Arkusz2”). Idealne do przenoszenia danych między zakładkami lub przygotowywania raportów.

📋 Kod VBA – każda linia od nowego wiersza

Sub KopiujZakres()
  Dim zakres As Range
  Dim wsZrodlo As Worksheet
  Dim wsDocelowy As Worksheet

  Set wsZrodlo = ActiveSheet
  On Error Resume Next
  Set zakres = Application.InputBox("Zaznacz zakres do skopiowania", "Wybór zakresu", Type:=8)
  On Error GoTo 0

  If zakres Is Nothing Then
    MsgBox "Nie wybrano zakresu. Makro przerwane.", vbExclamation
    Exit Sub
  End If

  Set wsDocelowy = Worksheets("Arkusz2")

  zakres.Copy Destination:=wsDocelowy.Range("A1")

  MsgBox "Zakres został skopiowany do 'Arkusz2'.", vbInformation
End Sub

🛠️ Jak działa to makro?

1. Użytkownik wybiera zakres danych (np. A1:D20) poprzez InputBox.
2. Makro kopiuje te dane z aktywnego arkusza do „Arkusz2”.
3. Dane zostają wklejone od komórki A1 w arkuszu docelowym.

💡 Co możesz zmienić?

• Zmień nazwę arkusza docelowego (np. „Raport” zamiast „Arkusz2”).
• Wklej dane w inne miejsce – zmień Range("A1") na dowolną komórkę.
• Dodaj pętlę, by wklejać dane za każdym razem w nowym wierszu (dla logów lub historii).

✅ Podsumowanie

To makro daje użytkownikowi pełną kontrolę nad tym, co i skąd ma zostać skopiowane. Nie wymaga sztywno wpisanych zakresów – wszystko działa dynamicznie i interaktywnie.