köprü vasıtası ile gidilen kutucuğa tıklayınca veri yazdırma

[gedavet]

anasayfasındaki kutucuklara tıklayınca hangi sine tıklandı ise o kutucukdaki yazıyı hesap sayfasındaki a4 hücresin eyazdırmak istiyorum
bu konu hakkında yardımcı olabilrimisiniz

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
2 buton için kodlar aşağıda. İsteğinize göre çoğaltınız.

Sub kod_alış()
Sheets("hesap").Select
Sheets("hesap").Range("a4") = "alış"
End Sub


Sub kod_satış()
Sheets("hesap").Select
Sheets("hesap").Range("a4") = "satış"
End Sub

. . .

 

[gedavet]

ilginiz için çok teşekkür ederim