[es] - Telefonski Listing- Automatsko dodavanje u bazu Brojeva

dr.iver
Student
Beograd

Član broj: 285680
Poruke: 14

+1 Profil

Telefonski Listing- Automatsko dodavanje u bazu Brojeva

^{31.05.2011. u 14:00 - pre 156 meseci}

Posto sa neta skidam listing za fixni telefon, koji u xls formatu, pa sam iskoristio eksel da automatski obracunam kostanje
za svakog ko koristi taj telefonski prikljucak.
U jednom sheetu se nalazi brojeva, a u drugom se nalazi listing koji je unet, kao i obracun kostanja.
E, sad, me zanima da li postoji neka funkcija u ekselu koja bi automatski dodala brojeve u bazu na kraj. Znam da bi to moglo da se uradi uz pomoc VBA, ali posto ga ne znam, zanima me da li eksel (sa ugradjenim funkcijama) to moze da uradi ili moram svaki broj koji nije u bazi da kopiram pojedinacno iz listinga u bazu (Ctrl+C, Ctrl+V). Dodao sam fajl, pa mozete videti na sta mislim.

Prikačeni fajlovi

Telefon.xls - 164k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Telefonski Listing- Automatsko dodavanje u bazu Brojeva

^{31.05.2011. u 16:15 - pre 156 meseci}

Citat:

dr.iver: Znam da bi to moglo da se uradi uz pomoc VBA, ali posto ga ne znam

Ne znam ga ni ja ali evo našao sam nešto

Ovaj macro kopira podatak iz selektiranih ćelija u Stupac na drugom Sheetu poredane jedan ispod drugog

Code:

Sub KopirajSelektirano()
Dim X As Long
Dim c As Range
Dim bza As Worksheet
Dim lis As Worksheet
Set lis = Worksheets("Listing")
Set bza = Worksheets("Baza")
X = bza.Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each c In Selection
bza.Cells(X, 1) = c
X = X + 1
Next
Sheets("Listing").Select
End Sub

Pomoću CTRL selektiraj telef. brojeve koje trebaš dodati u BAZU
Klikni na button "Kopiraj Selektirano"
Automatski će se telef. brojevi koje si selektirao kopirati u Sheet Baza u stupcu A jedan ispod drugoga

btw: vidi attach

Prikačeni fajlovi

KopiranjeSelektiranihCelija.xls - 186k

Odgovor na temu

dr.iver
Student
Beograd

Član broj: 285680
Poruke: 14

+1 Profil

Re: Telefonski Listing- Automatsko dodavanje u bazu Brojeva

^{31.05.2011. u 17:29 - pre 156 meseci}

Hvala puno, Ivek.
Ovo radi fenomenalno.

Odgovor na temu