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

• #28403 Delila_1 veterán tzimash #28399

  Új Válasz 2015-09-03 08:11:16 #28403

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

  Sub mm()
  Dim sor As Long, usor As Long, ertek
  
  usor = Range("B" & Rows.Count).End(xlUp).Row
  For sor = usor To 2 Step -1
  ertek = Cells(sor, "B")
  
  If Not InStr(Cells(sor, "C"), "VBS/BS ") > 0 And _
  Cells(sor, "F") = 8960 And Cells(sor, "D") = "J" _
  And Not (ertek = 2381273 Or ertek = 2381389 Or ertek = 2587841 _
  Or ertek = 2437821 Or ertek = 2531518 Or _
  ertek = 2417707 Or ertek = 2832690) Then
  Rows(sor).Delete Shift:=xlUp
  End If
  Next
  End Sub

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