Telefonski Listing- Automatsko dodavanje u bazu Brojeva

Odgovori Nova tema

2 odgovora
3.055 pregleda

Telefonski Listing- Automatsko dodavanje u bazu Brojeva 31.05.2011. u 15:00 · pre 187 meseci #1

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.

Telefon.xls164k

Re: Telefonski Listing- Automatsko dodavanje u bazu Brojeva 31.05.2011. u 17:15 · pre 187 meseci #2

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

KopiranjeSelektiranihCelija.xls186k

Re: Telefonski Listing- Automatsko dodavanje u bazu Brojeva 31.05.2011. u 18:29 · pre 187 meseci #3

Hvala puno, Ivek.
Ovo radi fenomenalno.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme