[es] - EXCEL unos podataka u bazu

konislav

Član broj: 52073
Poruke: 520
62.220.220.*

+228 Profil

^{13.02.2006. u 00:26 - pre 221 meseci}

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 ????

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

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

Sajt: www.gowi.rs

+109 Profil

Re: EXCEL unos podataka u bazu

^{13.02.2006. u 07:42 - pre 221 meseci}

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

Odgovor na temu

konislav

Član broj: 52073
Poruke: 520
62.220.220.*

+228 Profil

Re: EXCEL unos podataka u bazu

^{14.02.2006. u 02:18 - pre 221 meseci}

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 .

Odgovor na temu