Makro: Tworzenie kopii aktywnego arkusza z nową nazwą

🔍 Co robi to makro?

To makro tworzy kopię aktualnie aktywnego arkusza i automatycznie nadaje jej nazwę w formacie np. Raport_2025-07-30. Świetne do robienia kopii zapasowych, dziennych raportów lub duplikowania szablonów.

📋 Krok po kroku: Makro VBA z opisem

' Tworzenie kopii arkusza z nową nazwą
Sub KopiujArkuszZData()

  ' Zmienna pomocnicza z bieżącą datą
  Dim nowaNazwa As String
  nowaNazwa = "Raport_" & Format(Date, "yyyy-mm-dd")

  ' Kopiowanie aktywnego arkusza
  ActiveSheet.Copy After:=Sheets(Sheets.Count)

  ' Nadanie nowej nazwy
  On Error Resume Next
  ActiveSheet.Name = nowaNazwa
  If Err.Number <> 0 Then
    ActiveSheet.Name = nowaNazwa & "_" & Format(Now, "hhmmss")
  End If
  On Error GoTo 0

  MsgBox "Utworzono kopię arkusza: " & ActiveSheet.Name, vbInformation
End Sub

🛠️ Jak użyć tego makra?

1. Otwórz Excela i naciśnij ALT + F11, aby otworzyć edytor VBA.
2. Wybierz Wstaw → Moduł i wklej kod makra.
3. Wróć do Excela i uruchom makro KopiujArkuszZData.
4. Excel utworzy kopię aktywnego arkusza i nada jej nazwę zawierającą aktualną datę.

✅ Podsumowanie

To makro jest idealne, jeśli często potrzebujesz zarchiwizować arkusz, stworzyć kopię roboczą lub wygenerować dzienny raport. Dzięki automatycznej nazwie nie musisz martwić się o nadpisywanie poprzednich kopii.