Excel-makró ismétlődő feladatra

Előbb egy javaslat: az összesítés makró nélkül is megoldható kimutatással, amelyet hétfőnként csak frissíteni kell. Ha az üres sorok törlése és a rendezés is kell, akkor megéri a makró. Ezt csinálná:

1. Megkeresi a Nyers lapon az utolsó kitöltött sort.
2. Törli azokat a sorokat, ahol az A oszlop üres (előtte megkérdezi, mehet-e).
3. Dátum szerint növekvő sorrendbe rendez.
4. Kiüríti a Heti lapot a fejléc alatt.
5. Üzletenként összeadja a darabot és a bevételt, és beírja a Heti lapra.
6. Kiírja, hány üzletet összesített.

Kérdések: a Heti lap korábbi tartalma felülírható? Az üzletek neve mindig ugyanúgy van írva?

(jóváhagyás után)

Sub HetiOsszesites()
    ' Üzletenként összesíti a Nyers lap adatait a Heti lapra
    Dim nyers As Worksheet, heti As Worksheet
    On Error GoTo Hiba
    Set nyers = ThisWorkbook.Worksheets("Nyers")
    Set heti = ThisWorkbook.Worksheets("Heti")

    Dim utolsoSor As Long
    utolsoSor = nyers.Cells(nyers.Rows.Count, "B").End(xlUp).Row
    If utolsoSor < 2 Then
        MsgBox "A Nyers lapon nincs adat.", vbInformation
        Exit Sub
    End If
    ' ... (üres sorok törlése megerősítéssel, rendezés, összesítés)
    Exit Sub
Hiba:
    MsgBox "Hiba történt: " & Err.Description, vbExclamation
End Sub

Beillesztés: Alt+F11 > Beszúrás > Modul > illeszd be. Mentés másként: „Makróbarát Excel-munkafüzet (.xlsm)”.

Biztonságos próba: előbb készíts másolatot a fájlról, és azon futtasd (Alt+F8). A makró lépései nem vonhatók vissza a Visszavonás gombbal.