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

• #11805 Fire/SOUL/CD félisten Badb0y #11782

  Új Válasz 2011-10-27 19:28:33 #11805

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

  Private Sub CommandButton1_Click()
  
  Dim MyRange As Range
  
  'Ettől a cellától kezdődnek az adatok
  Set MyRange = Range("C2")
  
  For i = ActiveSheet.UsedRange.Rows.Count To MyRange.Row Step -1
  If (InStr(1, Cells(i, MyRange.Column).Value, "BONTOTT", vbTextCompare) > 0 Or _
  InStr(1, Cells(i, MyRange.Column).Value, "Scratch", vbTextCompare) > 0 Or _
  InStr(1, Cells(i, MyRange.Column).Value, "Refurbished", vbTextCompare) > 0) Then
  Cells(i, MyRange.Column).EntireRow.Delete
  End If
  Next i
  
  End Sub

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