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

• #11777 Fire/SOUL/CD félisten Badb0y #11775

  Új Válasz 2011-10-25 12:33:07 #11777

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Badb0y #11775 üzenetére

  Private Sub CommandButton1_Click()
  
  Dim MyRange As Range
  Dim MyFirstRow As Long, MyLastRow As Long
  Dim MyArray As Variant
  
  'Ettől a cellától kezdődnek az adatok
  Set MyRange = Range("H1")
  'Az ezeket a string-eket tartalmazó sorok lesznek törölve
  MyArray = Array("BONTOTT", "Scratch", "Refurbished")
  
  MyFirstRow = MyRange.Row
  MyLastRow = ActiveSheet.UsedRange.Rows.Count
  
  For i = MyLastRow To MyFirstRow Step -1
  If Not IsError(Application.Match(Cells(i, MyRange.Column).Value, MyArray, 0)) Then Cells(i, MyRange.Column).EntireRow.Delete
  Next i
  
  End Sub

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