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

• #13925 hallgat csendes tag Fire/SOUL/CD #13924

  Új Válasz 2012-06-01 17:12:21 #13925

  Ú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

  

  hallgat

  csendes tag

  válasz Fire/SOUL/CD #13924 üzenetére

  Szia!

  Igen, eddig ezzel volt vége a makrónak, hogy az AutoSzűrővel leszűrte a 0 és üres sorokra, aztán leállt, majd kézzel töröltem, ahogyan írtad.

  Viszont a maradék adatokat vinném tovább új munkafüzetbe és ha nem muszáj, nem készítenék erre itt még egy makró gombot, hanem folytatnám az eredeti programot.

  Most ezzel szenvedek, de vagy mindkét munkafüzet lapon megcsinálja a törlést, vagy leállok hibával, vagy...
  Szóval még nem működik
  Sheets("Munka2").Range("L" & usor).Select
  Dim i As Integer
  For i = usor To 2 Step -1
  If IsEmpty(Cells(i, 14)) Then
  Rows(i).Delete
  End If
  Next i

  Előtte már csinál pár dolgot, másolgat, transzportál, mifene, most már "csak" L oszlopban található üres cellák alapján kéne a sorokat törölnie, de csak Munka2 munkalapon, mert most kitörli munka1-en is

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