kaydet butunu ile veri kaydı

[nillay]

merhaba yardımınızı rica ediyorum
excel dosya da giriş sayfasına verileri yazıp kaydet butonuna tıklayınca sıralı olarak ürün takip sayfasına (2.sayfaya )kaydetmesini istiyorum
her kaydet dediğimde alt alta sıralayarak ekleyecek şekilde

 

[Ömer]

Merhaba,

Örnek dosya ekleyerek açıklar mısınız.

 

[nillay]

Ömer bey merhaba dosya yı ekledim ve yapmak istediklerimi açıklama kısmına yazdım

 

[Ömer]

Deneyiniz.
Yapılacak iş bölümünde E13:E20 arasında "x" olan ürünün adı gelir.

Sub kaydet()

    Dim S1 As Worksheet, son As Long, c As Range

    Set S1 = Sheets("ÜRÜN TAKİP ")
    son = S1.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
    Set c = [E13:E20].Find("x", , xlValues, xlWhole)
    If Not c Is Nothing Then
        S1.Cells(son, "E") = Cells(c.Row, "D")
    End If

    S1.Cells(son, "B") = Range("D3")
    S1.Cells(son, "C") = Range("G3")
    S1.Cells(son, "D") = Range("D4")
    S1.Cells(son, "F") = Range("D6")
    S1.Cells(son, "G") = Range("D7")

    If Range("D8") <> "" Then
        S1.Cells(son, "H") = Range("D8")
    Else
        S1.Cells(son, "H") = Range("F8")
    End If

    S1.Cells(son, "I") = Range("D9")
    S1.Cells(son, "J") = Range("D10")
    S1.Cells(son, "K") = Range("D11") & " " & Range("D12")

End Sub

 

[nillay]

makroyu oluşturunca hata veriyor kaydediyor ama kaydet butonuna basınca kaydetmiyor
sanırım ben yapamadım

 

[Ömer]

Dosyanız ektedir.

.

 

[nillay]

çok teşekkür ederim emeğinize sağlık