Buton ile Satış kayıt yapılması

[kemal turan]

Öncelikle forumdaki bütün arkadaşların bayramını kutlarım.
Sonra üstadlardan ekteki dosyada belirttiğim ihtiyacım olam buton ile satış kayıt makrosunu rica edeceğim.
Teşekkür ederim.

 

[kemal turan]

üstadlar bayram tatilinde herhalde

 

[kemal turan]

ustadlar merhaba,
Benim için çok önemli olan isteğim mümkün değilmi de cavap verilmiyor.Eğer mümkün değilse boşuna beklemeyeyim.
Teşekkürler

 

[kemal turan]

Sn.ihsan beyin daha önce yazdığı aşağıdaki kod istediğim mantıkta.
bu kod sayfa 1 de A sutunundaki verileri alıyor aynı sayfada "D" sutununa yapıştırıyor.
Benim ihtiyacım;
"planlama" sayfasından seçilen hücreleri (selection copy) alıp "satışlar" sayfasına A sutununa boş olan ilk hücreye kayıt yapacak.
Kodlama hususunda bilgim olmadığı için değişiklikleri uyarlayamadın.
Lütfen yardımmmm.
Option Explicit
Sub aktar()
Dim ts, kaplan, trabzonspor, hamsi
kaplan = MsgBox("Verileri Aktarıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
hamsi = Range("D1048576").End(xlUp).Row
trabzonspor = hamsi + 1
For ts = 2 To Cells(1048576, "A").End(xlUp).Row
Range("D" & trabzonspor).Value = Cells(ts, "A")
trabzonspor = trabzonspor + 1
Next
MsgBox "Verileri Aktardım", vbInformation, "Bitiş"
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkteki yanıt sanırım işinizi görecektir.

kaydet düğmesi ile veri kaydetme

 

[kemal turan]

korhan bey çok teşekkür ederim.