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

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