Evo malo sam ti prepravio kod pa pogledaj u prilogu. Deo koda glasi:

Sheets("RN").Select
' Selektovanje i kopiranje opsega
Range("d18").Select
Selection.Copy
' Prelazak u Bazu
Sheets("Baza").Select
' Pozicioniranje na prvu praznu celiju u koloni A
Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
Selection.PasteSpecial Paste:=xlPasteValues

Ovo prakticno ponavljas i za ostale celije koje kopiras samo umesto d18 pises tu drugu celiju i menjas Offset (1,0) redom kako sam ja uradio u prilogu.
Pozdrav

Stari hvala ti puno, spasio si me dana i dana piljenja u tutorijale.

Još jednom ti hvala i tebi i svim ostalim dobrim ljudima na ovom forumu kojima nije teško da podjele svoje znanje s drugima.

Pozdrav.

Nema na cemu, mada bih ja to sto ti treba (ako je to iz priloga koji si zakacio) uradio drugacije. Ako hoces kad budem imao vremena probacu pa mogu da ti posaljem na privatni mejl. Pozdrav

A što na privatni mejl okači ovde pa da i mi ne znalci naučimo nešto?

Bojim se da ce fajl biti zbog ogranicenja veci od dozvoljenog. To je razlog. Ako bude moguce okacicu.

Jedna mala dopuna ovog Mirkovog macroa. Ja sam sve svoje ovakve macroe "preuredio" po JPecinom uputstvu od pre par meseci (jedna od slicnih tema ovoj), i to na sledeci nacin:
Umesto predlozenog:

Sheets("RN").Select
' Selektovanje i kopiranje opsega
Range("d18").Select
Selection.Copy
' Prelazak u Bazu
Sheets("Baza").Select
' Pozicioniranje na prvu praznu celiju u koloni A
Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
Selection.PasteSpecial Paste:=xlPasteValues

mozemo skratiti celu proceduru otprilike ovako:

Sheets("BAZA").Activate ' Aktiviramo "BAZU" (Moze i Select umesto Activate)

Dim xy As Long 'prvo deklarisemo neku promenljivu xy
xy = Range("A65536").End(xlUp).Offset(1, 0).Row ' prvi prazan red od A65536 na gore, ili jos bolje
xy = Range("A1").End(xlDown).Offset(1, 0).Row ' prvi prazan red od A1 na dole (verovatno manji opseg za pretragu nego od 65536 na gore)

' I onda lagano izjednacavamo zeljena polja umesto da se prebacujemo iz Sheeta u Sheet

Range("A" & xy).Value = Sheets("RN").Range("D18").Value ' Umesto Select..,Copy...,Select...,Paste...
Range("B" & xy).Value = ........................ itd, itd, itd

Sve ovo sa ciljem da izbegnemo silne naredbe Select-Copy, Select-Paste...
Mislim da je posebno pogodan ovaj nacin kad se kopira veliki broj polja iz jednog sheeta u drugi
Pozdrav

Super može.Svaki predlog dobro dođe a kamoli kad je bolji.

Može može.

Pitanje još jedno.

Bili funkcionisalo da u istom workbook-u napravim po jedan sheet posebno za svakog komitenta.
Taj sheet bi sadžao kolone br.fakture,potražujemo,datum,duguje,datum,saldo.

I bili se mogo napravit macro (sa nekom petljom možda) koji bi ili prepravit već postoječi macro Dodaj u bazu koji pi pored upisa podataka u sheet baza,a na osnovu podatka tj imena izabranog komitenta iz padajućeg menija dodao te iste podatke u sheet tog komitenta kome je izdata faktura?:-)

Ma naravno da moze, ali nije nam excel za to najsrecnije resenje. Sta, naprimer, ako smo ozbiljna firma, pa imamo, recimo - 3950 kupaca, i 2950 dobavljaca ? Kako to da umetnemo u 6900 sheetova ?

Mala je ovo firma u kojoj radim, tako da mi excel radi posao.

A kad bi radili u tako velikoj firmi valjda bi vlasnici odvojili pare za neko gotovo rešenje:-))