Hirdetés

Új hozzászólás Aktív témák

  • Fferi50

    őstag

    válasz wolfman #25240 üzenetére

    Köszi, ezzel csak annyit ellenőriztem, hogy - sajnos - valóban csak részösszegzett értékeket tartalmazó táblát adták oda nektek (ami azért valljuk be, elég pórias).

    Sajnos nem látok jobb megoldást arra, hogy ne vesszenek el az A oszlopban levő "kulcsaid", mint az üres sorok kitöltése.

    Talán próbáld meg a következő kis makrót:

    Sub kitolti()
    For xx = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(xx, 1).Value = "" Then Cells(xx, 1).Value = Cells(xx - 1, 1).Value
    Next
    End Sub

    Ez kitölti az A oszlop üres celláit az előtte levő cella értékével.

    Utána használhatod az előzőekben írt módszeremet, a summa sorok eltávolítását (csak 2 szűrő, egy az E oszlopon, egy az A oszlopon - tartalmazza summa-, ami a szűrő fennmarad sor, törölhető), lehet két menet, de azért az elég gyors.

    Üdv.

Új hozzászólás Aktív témák