Soru Düğmeye tıklayınca yazdıklarım sona eklensin

[xtrkax]

Merhabalar arkadaşlar ilk sekmede 2 tane kısım oluşturdum. Üstere de buton koydum. İstediğim o kısma yazılan şeyler düğmeye basılınca ilgili sekmelerde en sona eklensin. İnceleyince anlaşılacaktır yardımcı olabilir misiniz?

 

[yanginci34]

Denermisiniz.

 

[xtrkax]

Denermisiniz.

hocam çok teşekkürler ama eklendikten sonra yenisini eklemeye çalışınca hata alıyorum

 

[yanginci34]

2 nolu cevaptaki dosyayı güncelledim tekrar indirip denermisiniz.

 

[Ömer BARAN]

Merhaba.
Konu sahibinin eklediği örnek belgeye göre çözüm:
-- Aşağıdaki kodları; ALT+F11 tuşlarına bastığınızda açılacak VBA ekranında,
üstteki menü kısmından INSERT >> MODULE 'yi seçip, sağdaki boş alana yapıştırın,
-- Sayfadaki düğmelere (ayrı ayrı) fareyle sağ tıklayıp MAKRO ATA 'yı seçtiğinizde açılacak
küçük ekranda ilgili makronun adını seçerek işlemi onaylayın.

Artık sayfadaki düğmelere tıklayarak istediğinizsonucu elde edebilirsiniz.
.

Sub satis()
Set a = Sheets("SATIŞ EKLE"): Set s = Sheets("SATIŞLAR")
ss = a.[C14].End(3).Row
If ss = 3 Then Exit Sub
If WorksheetFunction.CountBlank(a.Range("C4:F" & ss)) > 0 Then
    MsgBox "EKSİK BİLGİLER VAR"
    Exit Sub
End If
With a.Range("C4:F" & ss)
    .Copy s.Cells(s.Cells(Rows.Count, 1).End(3).Row + 1, 1)
    .ClearContents
End With
MsgBox "Veriler Aktarıldı."
End Sub
Sub gider()
Set a = Sheets("SATIŞ EKLE"): Set g = Sheets("GİDERLER")
gg = a.[C29].End(3).Row
If gg = 18 Then Exit Sub
If WorksheetFunction.CountBlank(a.Range("C19:F" & gg)) > 0 Then
    MsgBox "EKSİK BİLGİLER VAR"
    Exit Sub
End If
With a.Range("C19:F" & gg)
    .Copy g.Cells(g.Cells(Rows.Count, 1).End(3).Row + 1, 1)
    .ClearContents
End With
MsgBox "Veriler Aktarıldı."
End Sub