[ sergejus3 @ 18.02.2012. 11:33 ] @
Potrebna mi je funkcija koja bi sve brojeve iz jedne kolone (reda - svejedno) prebacila u jednu ćeliju i odvojila sa ; (tačka zarez i razmak).
U pitanju su telefonski brojevi , a trebam da šaljem masovne sms poruke. Program koji mi to odrađuje prihvata više brojeva zaredom ako su odvojeni na gore navedeni način (slično kao i e-mail).

Puno hvala unaprijed!
[ Dexxxl @ 18.02.2012. 13:15 ] @
Probaj Save As CSV. Podaci treba da su ti u jednom redu. Po potrebi snimljen dokument otvori u notepadu.
[ sergejus3 @ 18.02.2012. 15:52 ] @
ne može tako , nije to rezultat koji tražim.... radije bih da ih složim u excelu kako bih ih mogao prekopirati odjednom
[ FOX028 @ 18.02.2012. 16:29 ] @
Evo mislim da ce ovo zavrsiti posao
[ Ivek33 @ 18.02.2012. 19:48 ] @
Citat:
sergejus3: U pitanju su telefonski brojevi , a trebam da šaljem masovne sms poruke.
Jel ti to misliš slati SPAM na više brojeva odjednom?
[ sergejus3 @ 19.02.2012. 16:06 ] @
Citat:
FOX028: Evo mislim da ce ovo zavrsiti posao


Bravo majstore! To je upravo odradilo posao! Sutra probam izvršiti funkciju! Puno ti hvala!

Citat:
Ivek33: Jel ti to misliš slati SPAM na više brojeva odjednom?


Aha, a ti ćeš biti prvi SPAM-ovan!
[ sergejus3 @ 20.02.2012. 07:18 ] @
Ipak ima jedan problemčić.... brojevi telefona počinju sa 0 (nula) i to sam uspio da oblikujem kao specijalni broj (devet nula), ali mi taj broj sada u funkciji (fx) izbacuje bez nule!
Kada kliknem na RUN iz tvoj fajla on mi prebaci sve brojeve ali bez nule!
Može li se i na koji način ovo korigovati?
[ karadima @ 20.02.2012. 07:22 ] @
kolona iz koje prebacujes i kolona u koju prebacujes moraju da budu setovane kao text a ne kao general ili number.

[ FOX028 @ 20.02.2012. 07:40 ] @
Probao sam i ja kod mene, potrebno je da uradis kao sto ti je KARADIMA rerkao potrebno je da ti je kolona u kojoj ti se nalaze brojevi mora biti setovana u Format Cells kao Text i sve radi kako treba.
[ sergejus3 @ 20.02.2012. 07:51 ] @
Ma znam, ali sam ja prvo morao da sredim brojeve jer su bili napisani kao npr. 065/111-222 , pa sam išao opcijom da zamijenim npr 065/ sa 065 i znak - ničim (odnosno da se izbriše) i u tom slučaju mi bez obzira kako je formatirana ćelija se briše prva nula! Stoga sam formatirao ćelije kao specijalni broj (upisao 9 nula) kako bi mi ostale te prve nule ali su u funkciji ostali bez nule.......
Sad i kad ih prebacim u tekst u funkciji mi ostanu bez nule, ne znam šta da uradim.... a u pitanju je oko 1000 brojeva

Možda postoji bolji način da uklonim / i - a da mi brojevi ostanu sa nulom naprijed i uz to da ih formatiram kao tekst??

[Ovu poruku je menjao sergejus3 dana 20.02.2012. u 09:21 GMT+1]
[ FOX028 @ 20.02.2012. 08:36 ] @
Izmeni tvoj kod iz VBA sa ovim

Code:
Sub Button1_Click()
Dim SviTel As String
Dim Izlaz As String
Dim Telefon
For Each Telefon In Selection
    If Telefon <> "" Then
        Telefon = Replace(Telefon, "/", "")
        Telefon = Replace(Telefon, "-", "")
        SviTel = Telefon & "; " & SviTel
    End If
Next
SviTel = Trim(SviTel)
SviTel = Left(SviTel, Len(SviTel) - 1)
'Pravi .txt fajl u folderu gde je i ovaj Excel fajl
Izlaz = ActiveWorkbook.Path & "\Telefoni.txt"
Open Izlaz For Output As #1
    Print #1, SviTel
Close #1
Call Shell("notepad.exe " & Izlaz, vbNormalFocus)
End Sub 


i mozes ostaviti brojeve kako su ti upisani u formatu 065/111-2222.
[ sergejus3 @ 20.02.2012. 09:01 ] @
Citat:
FOX028: Izmeni tvoj kod iz VBA sa ovim

Code:
Sub Button1_Click()
Dim SviTel As String
Dim Izlaz As String
Dim Telefon
For Each Telefon In Selection
    If Telefon <> "" Then
        Telefon = Replace(Telefon, "/", "")
        Telefon = Replace(Telefon, "-", "")
        SviTel = Telefon & "; " & SviTel
    End If
Next
SviTel = Trim(SviTel)
SviTel = Left(SviTel, Len(SviTel) - 1)
'Pravi .txt fajl u folderu gde je i ovaj Excel fajl
Izlaz = ActiveWorkbook.Path & "\Telefoni.txt"
Open Izlaz For Output As #1
    Print #1, SviTel
Close #1
Call Shell("notepad.exe " & Izlaz, vbNormalFocus)
End Sub 


i mozes ostaviti brojeve kako su ti upisani u formatu 065/111-2222.



FOX028 TI SI KRALJ!!! Puno ti hvala!! Spasao si me! :)