İkİ Makroyu Tek DÜĞme Ye Atadim Ancak Basİt Bİr Kodda Takildim

[hakpin]

Sayin Hocalarim; İki ayri düğmede çalışan bir Kodu Tek düğmede birleştirdim, çözemediğim Konuyu Ekte Sayfa üzerindeki açıklamada
Yazdım.Yardımlariniz için şimdiden Teşekkür ederim.Bilginize sağlık

 

[Mahmut Kök]

alttaki kodda bulunan şu satırı


Sheets(sayfa).Cells(sOn + 7, "an") = [aj31]


şu şekilde değiştirip deneyiniz.


Sheets(sayfa).Cells(sOn + 7, "an") = [aj31] - eski


yani sonuna - eski ekleyin..

 

[hakpin]

Makroyu Tek DÜĞme Ye Atadim Ancak Basİt Bİr Kodda Takildim

Sayın Mesleki çok teşekkür ederim.Değiştirdim oldu.
Açıklamada ilgili hücreyi seçtiğimde veya yeni bir değer yazdığımda açıklama yazmam için bir "textbox" açılması mümkünmü diye de yazmıştım.Değerli vaktinizi alıyorum ama mümkünse yardımcı olurmusunuz. Şimdiden teşekkürler

 

[baba_karabatak]

Sayin Hocalarim; İki ayri düğmede çalışan bir Kodu Tek düğmede birleştirdim, çözemediğim Konuyu Ekte Sayfa üzerindeki açıklamada
Yazdım.Yardımlariniz için şimdiden Teşekkür ederim.Bilginize sağlık

Worksheet_SelectionChange(ByVal Target As Range)
burada değer sürekli olarak yenilenir.
burda değerlerin atamasını yap