slaganje tel. brojeva

slaganje tel. brojeva 18.02.2012. u 12:33 · pre 178 meseci #1

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!

Re: slaganje tel. brojeva 18.02.2012. u 14:15 · pre 178 meseci #2

Probaj Save As CSV. Podaci treba da su ti u jednom redu. Po potrebi snimljen dokument otvori u notepadu.

Re: slaganje tel. brojeva 18.02.2012. u 16:52 · pre 178 meseci #3

ne može tako , nije to rezultat koji tražim.... radije bih da ih složim u excelu kako bih ih mogao prekopirati odjednom

Re: slaganje tel. brojeva 18.02.2012. u 17:29 · pre 178 meseci #4

Evo mislim da ce ovo zavrsiti posao

Potpis

[email protected]=

Telefoni.xls34k

Re: slaganje tel. brojeva 18.02.2012. u 20:48 · pre 178 meseci #5

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?

Re: slaganje tel. brojeva 19.02.2012. u 17:06 · pre 178 meseci #6

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!

Re: slaganje tel. brojeva 20.02.2012. u 08:18 · pre 178 meseci #7

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?

Re: slaganje tel. brojeva 20.02.2012. u 08:22 · pre 178 meseci #8

kolona iz koje prebacujes i kolona u koju prebacujes moraju da budu setovane kao text a ne kao general ili number.

Re: slaganje tel. brojeva 20.02.2012. u 08:40 · pre 178 meseci #9

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.

Potpis

[email protected]=

Re: slaganje tel. brojeva 20.02.2012. u 08:51 · pre 178 meseci #10

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??

Re: slaganje tel. brojeva 20.02.2012. u 09:36 · pre 178 meseci #11

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.

Potpis

[email protected]=

Re: slaganje tel. brojeva 20.02.2012. u 10:01 · pre 178 meseci #12

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! :)

Forum kao aplikacija na telefonu

Srodne teme