açıklama eklenince çalışan makro

[hikmetsapmaz]

merhaba excelde hücreye sağ tıklayıp açıklama eklendiğinde bir makroyu çalıştırmak istiyorum forumdaki konulardan bulabildiğim bütün kodlarda değiştirmeler yaparak denedim maalesef sonuca ulaşamadım yardımlarızı bekliyorum.

 

[peleryn]

Merhabalar;

Kendimce bir çözüm üretmeye çalıştım ekli dosyayı bir inceleyin.Sayfadaki açıklamaları sayıyor açıklama sayısı 1 artarsa arkasına yerleştireceğiniz satırlar çalışıyor..

 

[peleryn]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [a1]
[a1] = Sheets("Sayfa1").Comments.Count
If [a1] > a Then
MsgBox "buraya çalışacak makronuzu yazın"
End If
End Sub

Bu şekilde yazarsak sayfa içinde bir veya bir grup açıklamayı kopyalayıp yapıştırdığınızda da ardındaki satırları çalıştırıyor.

 

[hikmetsapmaz]

yardımınz için çok teşekkür ederim kodlarınızı tüm sayfalarda çalışaçak şekilde düzenledim sorunum halloldu.

 

[peleryn]

yardımınz için çok teşekkür ederim kodlarınızı tüm sayfalarda çalışaçak şekilde düzenledim sorunum halloldu.

Rica ederim benim çözümüm biraz kulağı tersten tutmak oldu sanki..Aslında konu aktif kalırsa belki daha ustaca ve kesin bir çözüm gelebilir..İhtiyacınızı karşılamasına sevindim iyi çalışmalar dilerim.

 

[baydeniro]

teşekkürler