Automaticke slouceni a soucet
Ahoj vsem,
mel bych na vas prosbu o radu. Dostal jsem zadani souctu v excelu. Mam14tis jmen ve sloupci A, ve sloupci B mam stejny pocet castek a potrebuji zalozit sloupec C, ktery mi bude scitat hodnoty sloupce B, ale.... Tady je hlavni problem. Sloupec A obsahuje jmena, ktera se mi opakuji, ale jsou rozhazena po ruznych radcich. Proto jsem si udelal filtr a seradil od A-Z coz mi jmena sloucila pod sebe. Ted bych potreboval sloupec C kde se prirazene radky k dannemu jmenu automaticky slouci a sectou prirazene hodnoty ke jmenu ve sloupci B. To vse bych samozrejme docilil manualne - sloucit bunky pripadajici k danemu jmenu ve sloupci C a do sloucene bunky dat napr. suma B1-B5. Tohle jde u par radku, ale ja jich mam 14tis. Lze nastavit nejaka automatizace/podminka jako, ze bude-li shodne jmeno v A slouci se pro nej prirazene radky sloupce C a v nich je danny soucet prirazenych hodnot radku sloupce B?
Moc vam dekuji
Ještě jednou ahoj všem, moc Vám děkuji za rady a abych to lépe vysvětlil, udělal jsem mustr té tabulky do přílohy. První tabulka je počáteční stav a druhá pod ní je jak by to mělo vypadat.
Mám ve sloupci N jména, která si filtrem seřadím. Dále mám ve sloupci AD částky a to potřebuji vždy pro dané jméno sečíst do sloupce AE. Lze nastavit nějaká automatizace, která by to sama sčítala, abych to nemusel dělat pro všech cca 14tis jmen?
Ideálně bych Vás požádal o zápis vzorce do mnou vytvořeného mustru.
Moc děkuji.
Vyzkoušel jsem všechny způsoby a jediný proveditelný je rada od @TNT, ale musím tam ještě nějak vložit tu podmínku sečíst do sloučené buňky. Teď to počítá jen do té vložené buňky.
ak to môžeš robiť makrom tak tu je:
Sub Sucty()
PoslRiad = Range("N1").End(xlDown).Row
Range("AE2:AE" & PoslRiad).ClearContents
Range("AE2:AE" & PoslRiad).UnMerge
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("N2:N" & PoslRiad), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SetRange Range("A1:AR" & PoslRiad)
ActiveSheet.Sort.Header = xlYes
ActiveSheet.Sort.Apply
RiadMena = 2
DalMeno:
Zac = RiadMena
Sucet = Range("AD" & RiadMena)
Do Until Range("N" & RiadMena) <> Range("N" & RiadMena + 1)
Sucet = Sucet + Range("AD" & RiadMena + 1)
RiadMena = RiadMena + 1
Loop
Range("AE" & Zac & ":AE" & RiadMena).Merge
Range("AE" & Zac) = Sucet
If RiadMena < PoslRiad Then
RiadMena = RiadMena + 1
GoTo DalMeno
Else: MsgBox "Hotovo"
Exit Sub
End If
End Sub
Pracuje pre tebou danú tabuľku a je jedno, koľko tá tabuľka bude mať riadkov
Zoradí, zosúčtuje v skupinách a zlúči príslušné bunky
Jaaaj, tak tohle už je pro mě velká matematika :) Mohl bych tě poprosit to zkusit zapsat přímo do té mojí tabulky?
Ale pokiaľ takéto čosi v škole nepreberáte, tak asi to nebude spôsob, akým to od vás očakávajú...
Pri otváraní zošita musíš povoliť makrá
R