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

• #9809 bugizozi őstag bozsozso #9806

  Új Válasz 2011-03-29 08:35:42 #9809

  Ú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

  

  bugizozi

  őstag

  válasz bozsozso #9806 üzenetére

  Helló!

  Sub valami()
  
  ucsoB = Cells(Rows.Count, "B").End(xlUp).Row
  Sheets("Munka1").Range("B1:B" & ucsoB).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Munka1").Range("G1"), Unique:=True
  ucsoG = Cells(Rows.Count, "G").End(xlUp).Row
  Sheets("Munka1").Range("G1:G" & ucsoG).Select
  Selection.Copy
  Sheets("Munka2").Select
  Range("B4").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Sheets("Munka1").Select
  Sheets("Munka1").Range("G1:G" & ucsoG).ClearContents
  Sheets("Munka2").Select
  
  
  ucsoB2 = Cells(Rows.Count, "B").End(xlUp).Row
  Range("B5:B" & ucsoB2).Select
  Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
  
  
  For i = 5 To ucsoB2
  
  Sheets("Munka2").Range("C" & i).Select
  ActiveCell.FormulaR1C1 = "=SUMIF(Munka1!R2C2:R" & ucsoB & "C2,RC[-1],Munka1!R2C3:R" & ucsoB & "C3)"
  
  Next i
  
  
  End Sub

  A kódot lefuttatva a Munka1 lapon lévő adatokból:
  

  Ezt kreálja a Munka2 lapra:
  

  Remélem jól értettem és rendben műxik

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