Kod:
Sheets("IS_EMRI").Unprotect "503852"
cc = Sheets("IS_EMRI").Range("A65536").End(3).Row
If Sheets("IS_EMRI").Cells(cc, 1) = "Text" Then
Sheets("IS_EMRI").Range("A8 :L" & cc - 5).Select
Else
Sheets("IS_EMRI").Range("A8 :L" & cc).Select
End If
Selection.Copy
kk = AYARLAR.TextBox12.Value
Workbooks.Open kk
Sheets("SIPARIS").Activate
Sheets("SIPARIS").Unprotect "503852"
ss = Sheets("SIPARIS").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("SIPARIS").Cells(ss + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False