Kako na početku dodati broj 5 ako je broj kraci od 10 cifri

  • 3 odgovora
  • 2.306 pregleda
Kako na početku dodati broj 5 ako je broj kraci od 10 cifri 25.09.2009. u 06:28 · pre 207 meseci #1
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
Re: Kako na početku dodati broj 5 ako je broj kraci od 10 cifri 25.09.2009. u 08:30 · pre 207 meseci #2
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
Re: Kako na početku dodati broj 5 ako je broj kraci od 10 cifri 25.09.2009. u 09:04 · pre 207 meseci #4
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme