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

• #4050 Delila_1 veterán Rixman #4048

  Új Válasz 2008-11-13 12:52:53 #4050

  Ú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

  

  Delila_1

  veterán

  válasz Rixman #4048 üzenetére

  Futtatás előtt nézd meg újra a kódot, egy lényeges sort kihagytam belőle az előbb, de már pótoltam.

  Az előbb a cells(sor,2).select maradt ki

• #4049 Delila_1 veterán Rixman #4048

  Új Válasz 2008-11-13 12:47:40 #4049

  Ú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

  

  Delila_1

  veterán

  válasz Rixman #4048 üzenetére

  Makróval.

  Sub torl()
  For sor = Range("B65536").End(xlUp).Row To 2 Step -1
  cells(sor,2).select
  If Cells(sor, 2) = "" Then Selection.EntireRow.Delete
  Next
  End Sub

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