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

• #25923 Attila7298 csendes tag

  Új Válasz 2015-03-11 15:36:33 #25923

  Ú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

  

  Attila7298

  csendes tag

  Sziasztok! Bocs de megint kellene egy kis segítség.
  A "B" oszlopon kellene üres helyet keresni és az egész sort törölni.
  Az a baj ha egymás után van két üres hely akkor az elsőt ki törli de a következő üres sort átugorja.

  Sub Sortorles()
  sor = 1
  For sor = 1 To 40
  Cells(sor, 2).Select
  If Selection.Value = "" Then
  Selection.EntireRow.Delete

  End If

  Next
  End Sub

  Köszönöm a türelmeteket.

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