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

• #25242 Fferi50 Topikgazda wolfman #25240

  Új Válasz 2015-01-30 18:06:10 #25242

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  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