EXCEL unos podataka u bazu

[ konislav @ 13.02.2006. 00:26 ] @

jedno na prvi pogled lako pitanje ali ja ga ne mogu resiti , valjda zbog nacina na koji ja to zelim uraditi . Pa da pocnemo redom :

potrebno je izvesti sledece , podatke sa strane 1 iskopiram na strani 2 ( oni tamo ostanu ) na strani 1 obrisem sve i u istim celijama unesem neke druge podatke i ponovo te podatke iskopiram na strani 2 , ali sada odmah ispod podataka koje sam vec iskopirao
i tako opet i opet i opet ili da uprostim :
na strani 1 ima napravljen odredjen formular ( selektirane i obelezene celije ) koje se popunjavaju , kad se popune podaci se iskopiraju na strani 2 ( baza ) , celije na strani 1
dolaze u pocetni polozaj ( prazne su ) i spremne za novo popunjavanje . Kod novog popunjavanja sve bi trebalo da bude isto samo sto se sada podaci kopiraju ispod predhonih . Sto znaci da svi uneti podaci osyaju snimljeni u bazi ( na strani 2 ) sa koje ih ja posle uzimam i obradjujem dalje .

Sustina pitanja je kako resiti da se podaci kopiraju jedni ispod drugih ????

[ Jpeca @ 13.02.2006. 07:42 ] @

Napravi na obrazcu dugme na čiji klik se startuje makro Snimi

Code:

Sub Snimi()
' Makro koji snima podatke iz opsega A1:D1 u prvi prazan red
' na sledecem listu

' Selektovanje i kopiranje opsega
    Range("A1:D1").Select
    Selection.Copy
' Prelazak u Sheet2
    Sheets("Sheet2").Select
' Pozicioniranje na prvu praznu ćeliju u koloni A
   Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
   Selection.PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
' Povratak na Sheet1
    Sheets("Sheet1").Select
End Sub

U prilogu je uploadovan primer excel tabele. Obrati pažnju da izmeniš opsege i nazive sheetova. Na kraju možeš dodati i kod za brisanje originalnog opsega

Code:

Range("A1:D1").Delete

_{[Ovu poruku je menjao Jpeca dana 16.02.2006. u 09:20 GMT+1]}

[ konislav @ 14.02.2006. 02:18 ] @

Hvala prijatelju na brzom odgovoru , ali nesto kod mene ovo ne radi .
Moguce je i da ja nesto gresim , medjutim molio bih te da ukoliko ti nije tesko da
prikacis jedan primerak u excelu , kako bih tacno video u cemu gresim .