Ekle menüsünden "açıklama ekle" otomatik kodla çalıştırılır mı?

[KONYA42]

1.) Merhaba arkadaşlar, excel sayfasında "b1" hücresine "Ekle" menüsünden açıklama eklemek istiyorum."B1" hücresi 1% den küçük olursa açıklama ortaya çıksın(otomatik olarak),ama 1% den büyük olursa açıklama çıkmasın.Bunu makro ile yapıyorum.(Yani buton yaparak).Ama benim istediğim demin bahsettiğim gibi "B1" hücresinin alacağı iki farklı değere göre otomatik olsun.Çünkü yaklaşık 10 tane hücreye bunu uygulayacağım.Daha ayrıntılı anlatırsam:"B1" hücresine formül girdim.Başka hücrelere bağlı olarak % değeri alıyor(%5,%22,-%4,-%21 gibi).Burdaki amaç "-"değeri gözden kaçırmamak,mutlaka farketmek.
2.sorum şu:Excel sayfasına şöyle formül girilebilir mi?:Eğer(A5>1;GİT(MAKRO ADI);"").Yani "eğer" fomülüne koşul gerçekleşirse şu makroyu çalıştır.Ben denedim ama olmadı.Yalnız bir kitapta olabileceğini yazmış.İlginize şimdiden tşk. ederim.

 

[Skorpiyon]

Sayın KONYA42,

Örnek bir dosya ekler misiniz.

 

[parsley2]

Buton'a yazdığınız kodları
sayfanın kodlarına yazarsanız istedğiniz olur sanırım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
.....
butona yazdığınız kodlar
......

End Sub

 

[KONYA42]

Sayın Parsleyin kodunu denedim oldu fakat,"%" olarak yapamadım.Kod kısmına "%" işareti yazıyorum ama olmuyor.Ayrıca "-" işaretli hücre yanıp sönemez mi?(Daha önce bu sitende hücre yanıp sönmesi ile ilgili cevap verilmiş fakat cevaben formül ya da ekli dosya yoktu.)

 

[Ayhan Ercan]

Sayın Parsleyin kodunu denedim oldu fakat,"%" olarak yapamadım.Kod kısmına "%" işareti yazıyorum ama olmuyor.Ayrıca "-" işaretli hücre yanıp sönemez mi?(Daha önce bu sitende hücre yanıp sönmesi ile ilgili cevap verilmiş fakat cevaben formül ya da ekli dosya yoktu.)

Hücre biçimlendirmeden % 'yi seçin. Kodlarınızda da % işareti koymayın.

Range("A1").Value > 1 gibi....

 

[KONYA42]

Sayın Ayhan bey istediğiniz gbi yaptım ama olmadı.(Açıklama gizlenmiyor)

 

[Ayhan Ercan]

Yüzde yerine şunu yazıp deneyiniz.

Range("A1").Value > 1 / 100

 

[KONYA42]

Sayın Şaban Sertkaya,örnek dosya eklermisiniz demişsiniz ekledim.Ayrıca bu sitede; hücrenin farklı değer alması durumunda ayrıca yanıp sönmesi için bir kod yaptığınıza dair yazı okumuştum.Galiba Şaban bey yapmış.Ayhan bey,kodunuzu deneyeceğim.Tşk.Ederim.

 

[Skorpiyon]

Sayın KONYA42,

Maalesef ben bir çözüm yolu bulamadım. Yinede denediğim 1 kodu aşağıya ekliyorum. Belki diğer arkadaşlara fikir verir ve yardımcı olacak birileri çıkar.

(Arka sayfasının kodları olarak yazılacak)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("Z4:Z37")) Is Nothing Then Exit Sub
If Intersect(Target, ActiveCell) = "" Then Exit Sub
If Intersect(Target, ActiveCell) < 1 Then .............'Burası hata veriyor. Uygun koşulu sağlayacak şekli bulamadım.
MsgBox "Düzeltmeyi unutmayın", , " Adem"
Exit Sub
End If
End Sub

 

[KONYA42]

Sayfan&#305;n kod b&#246;l&#252;m&#252;ne &#351;u &#351;ekilde kod ekledim.
B&#246;ylece "-&#37;" de&#287;eri alanlar a&#231;&#305;klama g&#246;z&#252;k&#252;yor.Ke&#351;ke otomatik olarak h&#252;cre yan&#305;p s&#246;nseydi.Say&#305;n Zeki G&#252;rsoy'un yapm&#305;&#351; oldu&#287;u kodu denedim ama otomatik yanp s&#246;nm&#252;yor,ancak d&#252;&#287;me ile oluyor.Bana &#351;imdilik buda yeter.&#304;lgilenen herkese ayr&#305;ca te&#351;ek&#252;r ederim.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Sheets("ARKA").Range("Z4").Value < 0 / 100 Then
Sheets("ARKA").Range("Z4").Comment.Visible = True
Else
Sheets("ARKA").Range("Z4").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z5").Value < 0 / 100 Then
Sheets("ARKA").Range("Z5").Comment.Visible = True
Else
Sheets("ARKA").Range("Z5").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z7").Value < 0 / 100 Then
Sheets("ARKA").Range("Z7").Comment.Visible = True
Else
Sheets("ARKA").Range("Z7").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z8").Value < 0 / 100 Then
Sheets("ARKA").Range("Z8").Comment.Visible = True
Else

Sheets("ARKA").Range("Z8").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z14").Value < 0 / 100 Then
Sheets("ARKA").Range("Z14").Comment.Visible = True
Else
Sheets("ARKA").Range("Z14").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z16").Value < 0 / 100 Then
Sheets("ARKA").Range("Z16").Comment.Visible = True

Else
Sheets("ARKA").Range("Z16").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z18").Value < 0 / 100 Then
Sheets("ARKA").Range("Z18").Comment.Visible = True
Else
Sheets("ARKA").Range("Z18").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z19").Value < 0 / 100 Then
Sheets("ARKA").Range("Z19").Comment.Visible = True
Else
Sheets("ARKA").Range("Z19").Comment.Visible = False
End If
If Sheets("ARKA").Range("Z20").Value < 0 / 100 Then
Sheets("ARKA").Range("Z20").Comment.Visible = True
Else
Sheets("ARKA").Range("Z20").Comment.Visible = False
End If

End Sub