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

• #18980 hallgat csendes tag hallgat #18947

  Új Válasz 2013-09-16 12:46:28 #18980

  Ú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 hallgat #18947 üzenetére

  Sziasztok!

  Sikerült túlesnem a szintaktikai bénázáson , DE...

  Tudtok erre gyorsabban lefutó megoldást?
  Ez így már tisztességes ideig elszórakozik egyetlen oszloppal is, nem 190-nel

  Sub Makró1()
  
  Dim o As Integer
  Dim s As Integer
  
  For o = 190 To 2 Step -1
  For s = 1422 To 3 Step -3
  Sheets("Munka2").Cells(s, o).Select
  
  If IsEmpty(Sheets("Munka2").Cells(s, o)) Or (Sheets("Munka2").Cells(s, o)) = 0 Then
  Sheets("Munka2").Range(Cells(s, o), Cells(s - 2, o)).Delete Shift:=xlToLeft
  End If
  
  Next s
  Next o
  
  
  End Sub

  Köszi!!!

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