Ekle butonu

[k0081]

Merhaba arkadaşlar;

Ekle butonuna bastığımda belirtilen şarta göre veriyi başka bir tablodaki hücreye yazdırmak istiyorum.. detaylar ekteki örnek tablodadır..


Yardımcı arkadaş(a)lara şimdiden Teşekkür ederim.

dosyayı güncelledim arkadaşlar,, önceki hatalı..

Ekli dosyayı görüntüle yedek11a.xlsm

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub bakiye()
Set s1 = Sheets("tablo1")
Set s2 = Sheets("tablo2")

ay = Month(s1.Range("b21").Value)
tutar = s1.Range("d29").Value
    If s2.Cells(7 + ay, "g") <> 0 Then
    MsgBox "daha önce aktarılmış"
    Exit Sub
    End If
s2.Cells(7 + ay, "g") = tutar
End Sub

 

[k0081]

uzmanamele

Hocam çok teşekkürler,, Tamamdır.. elinize , Yüreğinize sağlık..