totovsio
17.02.17,12:05
Dobry den, potreboval by som poradit ako spravit v exceli nasledovne. V stlpci A mam pod sebou text=predmet, v stlpci B mam cislo=velkost predmetu v cm. Do stlpca C budem pridavat vzorec na vypocet dlzky jednotlivych kombinacii predmetov napr = b1+b3+b14= cislo. Do stlpca D by som potreboval automaticky dotiahnut na zaklade tohto vzorca prislusne predmety oddelene ciarkou. tj =A1&","&A3&","&A14. Vedeli by ste prosim niekto pomoct? Vopred velka vdaka

Edit: prilozil som subor :)

Edit2: prilozenie screenov
excel.sk
17.02.17,17:13
bude súbor , bude pomoc :)
=============================================
dopísané 18.2. 17:00

pripájam súbor s riešením

ak by ste nevedeli, ako si funkciu spraviť ako doplnok (ak by ste to potrebovali, nie je to nutné pre jednorázové záležitosti), tak vám pomôžem

ak potrebujete použiť len v určitých zošitoch, tak si tú funkciu dajte do modulu v konkrétnom zošite, princíp nájdete napr. v článku Funkcia pre výber čísiel z reťazca (http://www.excel.sk/funkcia-pre-vyber-cisiel-z-retazca/)

.



Public Function RozdelCezPluska(BunkaVzorec) As String
Application.Volatile True
Dim PocetPlus As Byte
Dim i As Byte
Dim Vzorec As String
RozdelCezPluska = ""
Vzorec = Mid(BunkaVzorec.Formula, 2)
PocetPlus = Len(Vzorec) - Len(WorksheetFunction.Substitute(Vzorec, "+", ""))
For i = 1 To PocetPlus Step 1
RozdelCezPluska = RozdelCezPluska & Range(Left(Vzorec, InStr(Vzorec, "+") - 1)).Offset(0, -1).Value & ","
Vzorec = Mid(Vzorec, InStr(Vzorec, "+") + 1)
Next i
RozdelCezPluska = RozdelCezPluska & Range(Vzorec).Offset(0, -1).Value
End Function


http://www.porada.sk/attachment.php?attachmentid=151611&stc=1
.
totovsio
19.02.17,09:28
Dobry den, super, presne toto som potreboval. Dakujem velmi pekne