Kod neće da odradi svaki put, već svaki drugi put, a ne menjam nista u kodu.
Problem sa kodom
Zaključano
Zakačeno
Najlakše da prebaciš Worksheets("kupci").Unprotect () na početak, jer problem koliko sam video desi se prilikom aktivaciji lista - prekine se operacija kopiranja. Usput ActiveSheet.Activate na početku ti ne treba
Ja lično bih umesto kopiranja koristio direkntu dodelu vrednosti, to mi se čini mnogo preglednije
Ja lično bih umesto kopiranja koristio direkntu dodelu vrednosti, to mi se čini mnogo preglednije
Code:
Sub KupciPrepis()
Dim rw As Long
Dim cl As Integer
Dim shSource As Worksheet, shDest As Worksheet
Set shSource = ActiveSheet
Set shDest = ThisWorkbook.Sheets("Kupci")
rw = shDest.Range("A6000:E6000").End(xlUp).Row + 1
'
Worksheets("kupci").Unprotect ("dada")
For cl = 1 To 5
shDest.Cells(rw, cl).Value = shSource.Range("B24").Offset(RowOffset:=cl)
Next cl
Worksheets("kupci").Protect ("dada")
End Sub
Sub KupciPrepis()
Dim rw As Long
Dim cl As Integer
Dim shSource As Worksheet, shDest As Worksheet
Set shSource = ActiveSheet
Set shDest = ThisWorkbook.Sheets("Kupci")
rw = shDest.Range("A6000:E6000").End(xlUp).Row + 1
'
Worksheets("kupci").Unprotect ("dada")
For cl = 1 To 5
shDest.Cells(rw, cl).Value = shSource.Range("B24").Offset(RowOffset:=cl)
Next cl
Worksheets("kupci").Protect ("dada")
End Sub
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Hvala