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

• #12468 Delila_1 veterán jani-wan #12467

  Új Válasz 2012-01-06 12:42:18 #12468

  Ú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 jani-wan #12467 üzenetére

  A VB szerkesztőben duplaklikk a ThisWorkbookon, jobb oldalra

  Private Sub auto_open()
  Dim so As Long
  For sor = Range("B1").End(xlDown).Row To 2 Step -1
  If Cells(sor, "B") < Range("E1") Then
  Rows(sor).EntireRow.Delete
  End If
  Next
  End Sub

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