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

• #28413 szatocs1981 aktív tag tzimash #28399

  Új Válasz 2015-09-03 08:54:09 #28413

  Ú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

  

  szatocs1981

  aktív tag

  válasz tzimash #28399 üzenetére

  Na, csak megvan:

  If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And not (Cells(sor, "B").Value = 2381273 Or Cells(sor, "B").Value = 2381389 Or Cells(sor, "B").Value = 2587841 Or Cells(sor, "B").Value = 2437821 Or Cells(sor, "B").Value = 2531518 Or Cells(sor, "B").Value = 2417707 Or Cells(sor, "B").Value = 2832690) Then

• #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

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #28400 szatocs1981 aktív tag tzimash #28399

  Új Válasz 2015-09-03 08:01:57 #28400

  Ú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

  

  szatocs1981

  aktív tag

  válasz tzimash #28399 üzenetére

  Próbáld meg így:

  Cells(sor, "B").Value = (2381273 AND 2381389 AND 2587841 AND 2437821 AND 2531518 AND 2417707 AND 2832690)

  [ Szerkesztve ]

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