Ú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?

• #28339 tzimash őstag Delila_1 #28337

  Új Válasz 2015-09-01 21:06:24 #28339

  Ú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

  Köszi, holnap megnézem.

• #28338 Fferi50 Topikgazda Delila_1 #28337

  Új Válasz 2015-09-01 18:49:18 #28338

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 #28337 üzenetére

  Szia!

  Milyen korlátait tapasztaltad az autodszűrőnek? Mert én még nem találkoztam vele.
  Másrészt viszont a speciális szűrés kifejezetten megfelel ennek a célnak is.
  Pl. az Eredeti munkalap M1 cellájába Kód, M2 cellájába *J* kerül.
  Ezután egyetlen sor:
  Sheets("Eredeti").Range("A1:I30").AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("Eredeti").Range("M1:M2"), copytorange:=Sheets("Jó").Range("A1:I1")

  átmásolja a kívánt értékeket a Jó munkalapra.

  De a Jó munkalapra átváltva - az Adatok - Speciális kiválasztása után megjelenő párbeszéd ablakot a fentieknek megfelelően kitöltve makró nélkül is megy a dolog.

  Üdv.

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