Po broju kopirati tekst

[ veki2015 @ 24.12.2012. 11:43 ] @

Pozdrav svima,
zanima me da li je se neko sreo sa situacijom da mu treba po broju sa strane da ponovi tekst znaci ovako bi to izgledalo,
da mi da neku funkciju ako moze?

3 burgija m12
2 aparat za kafu

a da dobijem
burgija m12
burgija m12
burgija m12
aparat za kafu
aparat za kafu

Unapred zahvalan svima koji mogu pomoci.Veliki pozdrav...

[ Ivek33 @ 24.12.2012. 13:31 ] @

Evo nešto sam nekada radio pa pogledaj može li ti pomoći.
Ova makronaredba kopira tekst onoliko puta koliko ima komada artikla a rezultat je na sheet2.

Code:
Sub KopirajUmnozi()
Dim i As Integer
Dim j As Integer

Sheet1.[A1].CurrentRegion.Copy Sheet2.[A1]

    With Sheet2
        For i = .Range("A65536").End(xlUp).Row To 2 Step -1
            j = .Cells(i, 3).Value - 2
            .Rows(i & ":" & i).Copy
            .Rows(i & ":" & i + j).Offset(1).Insert Shift:=xlDown
        Next
    End With

Application.CutCopyMode = False
End Sub

Pokrenu makronaredbu i pogledaj Sheet2
Probaj iskombinirati nešto za svoj problem ili potraži nekoga da ti ga preradi.

[ veki2015 @ 24.12.2012. 13:43 ] @

Probao sam ali nece mi ovako on potpuno isto ono sto ima na situ 1 iskopira na sit 2.Ali u svakom slucaju hvala na izdvojenom vremenu veliki pozdrav

[ Jpeca @ 24.12.2012. 15:04 ] @

Vrlo bitna stvar je da li su ti brojevi u istoj ćeliji sa tesktom ili susednoj? Ako postaviš primer biće lakše za testiranje

U prilogu je rešenje za slučaj da su brojevi u istoj ćeliji sa tekstom.

_{[Ovu poruku je menjao Jpeca dana 24.12.2012. u 16:44 GMT+1]}

[ Ivek33 @ 24.12.2012. 21:29 ] @

Citat:

veki2015:
Probao sam ali nece mi ovako on potpuno isto ono sto ima na situ 1 iskopira na sit 2.Ali u svakom slucaju hvala na izdvojenom vremenu veliki pozdrav

sorry zaboravio sam dodati attach workbook
Peca ti je dao odgovor za broj sa tekstom u jednoj ćeliji (za što mislim da nije uobičajeno) a ovo je broj komada koji se nalazi u susjednoj ćeliji

[ veki2015 @ 24.12.2012. 22:34 ] @

Svaka cast radi kao sat veliko vam hvala na pomoci 3 dana razbijam glavu oko ovoga...
Jos jednom svaka cast i veliki pozdrav...

[ veki2015 @ 25.12.2012. 07:04 ] @

Sve sredjeno uporedio sam prvi i drugi makro i falilo je samo kad je 0 i 1 da ostavi da ne kopira. Jos jednom da se zahvalim sta jednom sto puta veliki pozdrav!!!

_{[Ovu poruku je menjao veki2015 dana 25.12.2012. u 09:58 GMT+1]}