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