[ zeljko1967 @ 14.02.2012. 12:54 ] @
Pozdrav svima!

Molio bih za pomoć. Potrebno mi je da u niže navedenom makrou uradim ispravku istog (ako je moguće) tako da mi prihvati bilo koji označeni red u tabeli a ne samo 67.Na poslu imam bazu sa preko 4000 korisnika koju sam sam uradio u excelu i treba da, kada pronađem po imenu korisnika, u ovom slučaju polje B67, opseg B67:L67 kopiram i nalijepim u prvi slobodan red tabele.Znači opseg B67:L67 treba zamijeniti opsegom BX:LX gjde je x bilo koji broj od 1 pa nadalje. Hvala unaprijed.

Sub novizahtjev()
'
' novizahtjev Makro
' Makro je snimio: zeljkoj, dana 9.2.2012
'
' Tasterska prečica: Ctrl+k
'
Range("B67:L67").Select
Selection.Copy
Application.Run "'Registar 2012.xls'!starikorisnik"
ActiveSheet.Paste
Range("E84").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
[ FOX028 @ 14.02.2012. 14:25 ] @
Evo odradio sam ti jedan primer, valjda je ovo to sto tebi treba.
[ Jpeca @ 14.02.2012. 14:44 ] @
Ako ti odgovara, možeš da koristiš dijalog aplikacije Application.InputBox da selektuješ oblast koju kopiraš

Code:
Dim rngSourse As Range 
Set rngSource = Application.InputBox("Selektuj oblast za kopiranje:", _ 
              "Oblast za kopiranje", Type:=8)
If (rngSource Is Nothing) = True Then Exit Sub
rngSource.Copy
…


Vidi primer http://www.elitesecurity.org/t226697-0#1351423
[ srdrazic @ 14.02.2012. 16:26 ] @
Možda ovo bude korisno.

http://www.elitesecurity.org/t426452
[ zeljko1967 @ 15.02.2012. 10:23 ] @
Hvala svima, a tebi FOX 028 posebno. Nije baš kao što si mi predložio u primjeru, ali mi je puno pomoglo da riješim baš onako kako sam želio. HVALA JOŠ JEDNOM!