Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

EXCEL unos podataka u bazu

[es] :: Office :: Excel :: EXCEL unos podataka u bazu

[ Pregleda: 4498 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

konislav

Član broj: 52073
Poruke: 520
62.220.220.*



+228 Profil

icon EXCEL unos podataka u bazu13.02.2006. u 00:26 - pre 200 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: 2231
212.200.27.*

Sajt: www.gowi.rs


+103 Profil

icon Re: EXCEL unos podataka u bazu13.02.2006. u 07:42 - pre 200 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
 
Odgovor na temu

konislav

Član broj: 52073
Poruke: 520
62.220.220.*



+228 Profil

icon Re: EXCEL unos podataka u bazu14.02.2006. u 02:18 - pre 200 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

[es] :: Office :: Excel :: EXCEL unos podataka u bazu

[ Pregleda: 4498 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.