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

• #5682 Pulsar veterán

  Új Válasz 2009-11-22 07:08:12 #5682

  Ú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

  

  Pulsar

  veterán

  Sziasztok!

  a következőt szeretném megoldani egyszerűbben.

  van egy adathalmazom. össze kell számolni a q oszlopban az x-eket akkor ha a d-ben talál y-t, és a és az m-ben o-t.
  én az így oldottam meg most, hogy leszűröm a megfelelő adatokra az oszlopokat, a létrejött tartalmat átmásolom egy data2 sheet-re, a data sheet-en egy counta függvénnyel összeszámolom, és az értéket lemásolom.
  így:

  Sheets("IDE_MASOLD").Select
  Rows("1:1").Select
  
  Selection.AutoFilter
  
  Selection.AutoFilter Field:=4, Criteria1:="y"
  Selection.AutoFilter Field:=13, Criteria1:="o"
  Selection.AutoFilter Field:=17, Criteria1:="x"
  
  Columns("Q:Q").Select
  Selection.Copy
  Sheets("data2").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Sheets("Data").Select
  
  Range("A4").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("A5").Select
  ActiveSheet.Paste
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Range("A20").Select
  Sheets("data2").Select
  Columns("A:A").Select
  Application.CutCopyMode = False
  Selection.ClearContents

  ez jól működik, csak nagyon lassú. ezt 25-ször kell megcsinálni, így sokáig fut.
  esetleg valami egyszerűbb megoldása valakinek?

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