[ zeljko1967 @ 09.02.2012. 09:11 ] @
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.

Code:
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


Edit: tagovi

[Ovu poruku je menjao 3okc dana 27.02.2012. u 11:46 GMT+1]
[ 3okc @ 27.02.2012. 10:55 ] @
Code:
Range(Cells(ActiveCell.Row, 2), _
    Cells(ActiveCell.Row, 12)).Copy


To je da kopiraš "označeni red".. Zapravo, ne moraš da ga označavaš, opseg se formira prema aktivnoj ćeliji.

Inače, nije potrebno ni da kopiraš.. :)

Za prepisivanje je dovoljno dodeliti vrednost drugoj ćeliji.
Vidi primer EkstrahovanjeBezCopy u Makro - Pronaći tekstualnu vrednost