Code:
Private Sub cmdLogickaKontrola_Click()
Sheet2.Range("J13:M13").Select
Selection.Copy
nalepiSpecial
Sheet2.Range("P13:R13").Select
Selection.Copy
nalepiSpecial
Sheet6.Select
Sheet6.Range("F11:F29").Select
Selection.Copy
nalepiSpecial
Sheet2.Activate
Range("J13").Select
End Sub
Function nalepiSpecial()
Selection.pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Function
Evo kako sam resio. Morao sam iz koda da selektujem ćelije u više različitih opsega, jer su mi neke ćelije zaključane (u njima se nalaze formule koje želim da ostanu netaknute).
Kada sam sve završio, palo mi je na pamet da sam mogao to i drugačije, odnosno moga sam da prvo izvršim proveru da li je ćelija zaključana, pa ako nije onda da se izvrši kod, a ako jeste da se preskoči.
I to ću uraditi kada budem imao vremena, pa ću postaviti ovde.