Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 2 odgovora
  • 5.481 pregleda

Najnovija ↓

EXCEL unos podataka u bazu 13.02.2006. u 01:26 · pre 252 meseca #1


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 ????
Re: EXCEL unos podataka u bazu 13.02.2006. u 08:42 · pre 252 meseca
izmenjeno 1 put, poslednji put Jpeca 16.02.2006. u 09:20
  1. Jpeca16.02.2006. u 09:20zapis iz teksta poruke
#2
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
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: EXCEL unos podataka u bazu 14.02.2006. u 03:18 · pre 252 meseca #3
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 .
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme