[ de-jo @ 25.09.2009. 06:28 ] @
Postovani forumasi imam jedan problem koji ne znam sam rijesiti pa vas molim da mi pomognete.
Radi se o slijedecem:
Imam kolonu pod imeom oznaka i u njoj imam slozene podatke tipa:
5234567649
839388877
342556633
643333556
5754343356
5098998772

Treba mi slijedece:
Svaki broj treba da se sastoji od 10 cifara, od kojih je prva cifra uvijek 5.
Ukoliko broj ima 9 cifara njemu treba dodati cifru 5 na pocetku, kako bi i ti brojevi bili desetocifreni. A ako je broj vec desetocifreni da on ostane nepromijenjen.
Da li neko zna kako napisati macro ili neki drugi nacin pomocu kojeg mogu rijesiti svoj problem.
Da napomenem da su brojevi u kolonu vec uneseni, tako da bi ovu operaciju nadopunjavanja trebalo izvesti na vec unesenim brojevim.
Nadam se sam uspio objasniti ono sto mi treba.
Unaprijed zahvalan.
Pozdrav
[ timmy @ 25.09.2009. 08:30 ] @
Probaj sa sledecim makroom, koji koristis tako sto najpre selektujes celije u kojima proveravas ima li 9-cifrenih unosa

Code:

Sub Dodaj5()
Dim r As Range
    For Each r In Selection
        If Len(r.Value) = 9 Then r = "5" & r.Value
    Next
End Sub


Pozdrav
[ konislav @ 25.09.2009. 08:34 ] @
Evo jedno moje razmisljenje na zadatu temu.

Ja sam ovo resio dodavanjem pomocne kolone, koja normalno moze biti sakrivena.

U prvoj koloni su vec uneseni brojevi, u drugoj koloni je iskoristena funkcija LEN (za prebrojavanje broja cifara) u trecoj koloni je
koriscena funkcija IF .
[ de-jo @ 25.09.2009. 09:04 ] @
Hvala puno prijatelji, upsjelo je :-)

prvi primjer u potpunosti odgovara mojim zahtjevima, drugi je jednostavniji ali ga ne mogu primijeniti zbog toga sto su mi i druge kolone popunjenje pa bih remetio izgled i preglednost sheeta.

Svaka cast na brzini odgovora, sve pohvale.
Jos jednom hvala.
pozdrav