Excel VBA: Makro do filtrowania danych i kopiowania wyników do nowego arkusza

🔍 Co robi to makro?

To makro automatycznie filtruje dane w arkuszu Excela według zadanych kryteriów (np. tylko wiersze z kolumny "Status" = "Aktywny") i kopiuje je do nowego arkusza.

📋 Krok po kroku: Makro VBA z opisem

' Rozpoczęcie definicji makra
Sub FiltrowanieIKopiowanie()

  ' Deklaracja zmiennych
  Dim wsSource As Worksheet
  Dim wsTarget As Worksheet
  Dim lastRow As Long

  ' Ustawiamy aktywny arkusz jako źródłowy
  Set wsSource = ThisWorkbook.Sheets("Dane")

  ' Tworzymy nowy arkusz, gdzie wkleimy dane
  Set wsTarget = ThisWorkbook.Sheets.Add
  wsTarget.Name = "Wyniki"

  ' Znajdujemy ostatni wiersz z danymi
  lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

  ' Włączamy filtr w arkuszu źródłowym
  wsSource.Range("A1:D" & lastRow).AutoFilter Field:=3, Criteria1:="Aktywny"

  ' Kopiujemy przefiltrowane dane (nagłówek + widoczne wiersze)
  wsSource.Range("A1:D" & lastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=wsTarget.Range("A1")

  ' Wyłączamy filtr
  wsSource.AutoFilterMode = False

  MsgBox "Filtrowanie i kopiowanie zakończone!", vbInformation
End Sub

🛠️ Jak użyć tego makra?

1. Otwórz Excela i wciśnij ALT + F11, aby przejść do edytora VBA.
2. Wybierz Wstaw → Moduł, a następnie wklej powyższy kod.
3. Upewnij się, że w skoroszycie masz arkusz o nazwie "Dane", gdzie kolumna C zawiera np. "Aktywny" lub inne statusy.
4. Uruchom makro FiltrowanieIKopiowanie – dane zostaną przefiltrowane i skopiowane do nowego arkusza o nazwie "Wyniki".

✅ Podsumowanie

To makro to świetny sposób na szybką automatyzację filtracji i kopiowania danych w Excelu bez ręcznego klikania. Idealne do pracy z dużymi zestawami danych.