Pozdrav svima. Moj problem se sastoji u tome što ovaj dio koda (u okviru veće aplikacije) funkcioniše ispravno na mom računaru a kada aplikaciju prenesem na drugi računar ( na poslu) ne radi. Prijavljuje mi grešku kao u naslovu teme. Hvala unaprijed.
Sub kopiraj()
'
' kopiraj Makro
' Makro je snimio: zeljkoj, dana 15.2.2012
'
' Tasterska prečica: Ctrl+d
'Dim Red As Integer
Dim i As Integer
Red = Selection.Row
Range("B" & Red & ":L" & Red).Select
Selection.Copy
i = 1
Do Until IsEmpty(Sheets("Zahtjev").Cells(i, 1))
i = i + 1
If i = 5 Then: Exit Do
Loop
I, da grešku mi prijavljuje kod reda : Red = Selection.Row
[Ovu poruku je menjao zeljko1967 dana 28.05.2013. u 07:20 GMT+1]
[Ovu poruku je menjao zeljko1967 dana 28.05.2013. u 07:45 GMT+1]
[Ovu poruku je menjao zeljko1967 dana 28.05.2013. u 07:46 GMT+1]