[ dr.iver @ 31.05.2011. 14:00 ] @
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.
[ Ivek33 @ 31.05.2011. 16:15 ] @
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
[ dr.iver @ 31.05.2011. 17:29 ] @
Hvala puno, Ivek.
Ovo radi fenomenalno.