Makro Kodlama

[recepkull]

Ustalar aşağıdaki gibi bir makro kod yazdım ancak çalışmıyor nerede hata yapıyorum yardımınıza ihtiyacım var.

Sub Kaydet()
'
' Kaydet Makro
'

'
    Sheets("Verilen Yakıt").Select
    Sheets("Veri").Visible = True
    Range("P9:X18").Select
    Range("P20:X22").Select
    Range("P24:X24").Select
    Range("P26:X26").Select
    Range("Q3").Select
    Range("X3").Select
    Application.CutCopyMode = False
    Selection.Copy
   
    Sheets("1").Select
    Range("N14:V23").Select
    Range("N25:V27").Select
    Range("N29:V29").Select
    Range("N31:V31").Select
    Range("Q8").Select
    Range("V8").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
End Sub

 

[turist]

Sub Kaydet()
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("Verilen Yakıt")
Set ws2 = Sheets("1")
Application.ScreenUpdating = False
        ws1.Range("P9:X18").Copy
        ws2.Range("N14:V23").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ws1.Range("P20:X22").Copy
    ws2.Range("N25:V27").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ws1.Range("P24:X24").Copy
    ws2.Range("N29:V29").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ws1.Range("P26:X26").Copy
    ws2.Range("N31:V31").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ws1.Range("Q3").Copy
    ws2.Range("Q8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ws1.Range("X3").Copy
    ws2.Range("V8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
     Application.ScreenUpdating = True 
End Sub

Şeklinde deneyin

 

[recepkull]

Teşekkür ederim hocam deneyeceğim.