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

• #28343 tzimash őstag Delila_1 #28337

  Új Válasz 2015-09-02 10:46:02 #28343

  Ú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 Delila_1 #28337 üzenetére

  Kicsit tényleg lassú így, de lehet nem is kell külön szednem a két adatot. Így talán pörgősebb lesz.
  Ez a kódodból egy részlet, kicsit változtattam rajta.

  For sor = usor To 2 Step -1
  If InStr(Cells(sor, "D"), "MD0") > 0 Then
  Rows(sor).Delete Shift:=xlUp
  End If
  Next

  Hogyan kellene még megváltoztatnom, hogy csak olyan "MD0"-át tartalmazó sorokat töröljön, amelyeknek "F" oszlopban az értéke "7200", ahol ez az érték más, azt hagyja meg?

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