Ú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

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

  Új Válasz 2011-10-26 21:27:09 #11784

  Ú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

  Megnéztem a küldött anyagot, meg is van a hiba. Át kell írnom, majd holnap megcsinálom, most incs kedvem hozzá...

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

  Új Válasz 2011-10-26 11:55:58 #11783

  Ú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

  Első körben, amikor mented, akkor nem ártana makróbarát munkafüzetként elmenteni. Ha úgy sem jó, akkor meg küld el mail-ben ezt a táblát (ezt a CSV-t)

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