Makro ile sıralı olarak alt alta kopyalamak

[puppy_snoopy]

arkadaşlar merhaba,
forumda arama yaptım ama bulduklarım çok ileri seviyede, bana çok daha basit bir kod lazım.şöyle ki, bir sipariş formu oluşturmak istiyorum. a4 hücresini a16'ya bir daha "sepete ekle"ye bastığımda a17'ye , diğer basışlarımdada 18-19 diye devam etmesini istiyorum. aynı şekildef4-g4-h4 ve L4 hücreleri için sırasıyla d16-e16-f16ve g16'ya gelecek. ekte tabloyu bulabilirsiniz.
yardımlarınız için şimdiden teşekkürler

 

[Necdet]

Merhaba,

Dosyanızda formül olup olmadığı belli değil, o yüzden verileri aktardıktan sonra tüm hücreleri sildirdim.

Siz gerekirse bunları kendinize göre düzenlersiniz.

Sub SepeteKoy()
    
    Dim i   As Integer
    
    i = Cells(Rows.Count, "A").End(3).Row + 1
    
    Range("A" & i) = Range("A4")
    Cells(i, "A") = Cells(4, "A")
    Cells(i, "B") = Cells(4, "D")
    Cells(i, "C") = Cells(4, "E")
    Cells(i, "D") = Cells(4, "F")
    Cells(i, "E") = Cells(4, "J")
    
    Range("A4,D4:F4,I4,J4").ClearContents
    
End Sub

Sub SepetiBosalt()
    
    Dim i       As Integer
    Dim Evet    As String
    
    Evet = MsgBox("Siparişler Silinecek, Emin Misiniz?", vbYesNo, "SİPARİŞ TEMİZLEME")
    If Evet = vbYes Then
        i = Cells(Rows.Count, "A").End(3).Row
        If i < 16 Then i = 16
        Range("A16:E" & i).ClearContents
    End If
    
End Sub

 

[puppy_snoopy]

çok teşekkür ederim işimi tam manasıyla gördü, ellerinize sağlık

 

[Necdet]

çok teşekkür ederim işimi tam manasıyla gördü, ellerinize sağlık

Güle güle kullanınız.