[es] - EXCEL unos podataka u bazu

konislav
od juna 2010 sam na odmoru i bicu jos
neko vreme

Član broj: 52073
Poruke: 520
62.220.220.*

Profil

^{13.02.2006. u 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 ????

^{13.02.2006. u 00:26}

Jpeca
Predrag Jovanović
Gowi, Sistem analitičar
Pančevo

Moderator
Član broj: 25683
Poruke: 1540
212.200.27.*

Sajt: www.gowi.rs

Profil

Re: EXCEL unos podataka u bazu

^{13.02.2006. u 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]}

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

Test.xls - 27k

^{13.02.2006. u 07:42}

konislav
od juna 2010 sam na odmoru i bicu jos
neko vreme

Član broj: 52073
Poruke: 520
62.220.220.*

Profil

Re: EXCEL unos podataka u bazu

^{14.02.2006. u 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 .

^{14.02.2006. u 02:18}