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

• #28399 tzimash őstag szatocs1981 #28360

  Új Válasz 2015-09-03 07:32:28 #28399

  Ú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

  

  tzimash

  őstag

  válasz szatocs1981 #28360 üzenetére

  Mégsem jó...

  For sor = usor To 2 Step -1
  If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And Cells(sor, "B").Value <> (2381273 Or 2381389 Or 2587841 Or 2437821 Or 2531518 Or 2417707 Or 2832690) Then
  Rows(sor).Delete Shift:=xlUp
  End If
  Next

  Amit szeretnék, hogy csináljon:
  Törölje az összes olyan sort, ahol a C oszlop tartalmazza azt hogy VBS/BS és F oszlop értéke 8960, D oszlopé "J", kivéve az olyan sorokat, ahol B oszlop értéke megegyezik az utolsó feltételben megadott 7db számmal. Azoknak tehát meg kellene maradnia.

  Amit most csinál: Ez utóbbi feltételt nem veszi figyelembe és törli azokat a sorokat is, ahol B oszlop értéke a megadott 7db szám.

  Ötlet?

• #28362 tzimash őstag szatocs1981 #28360

  Új Válasz 2015-09-02 13:39:02 #28362

  Ú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

  

  tzimash

  őstag

  válasz szatocs1981 #28360 üzenetére

  For sor = usor To 2 Step -1
  If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And Cells(sor, "B").Value <> (szam1 Or szam2 Or szam3) Then
  Rows(sor).Delete Shift:=xlUp
  End If
  Next

  Köszi.
  Így jó lett

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