izmenjeno 3 puta, poslednji put zeljko1967 28.05.2013. u 07:46
Izmene poruke
- zeljko196728.05.2013. u 07:46zapis iz teksta poruke
- zeljko196728.05.2013. u 07:45zapis iz teksta poruke
- zeljko196728.05.2013. u 07:20zapis iz teksta poruke
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
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