eğer de koşul oluşunca açıklama eklemesi

[sinan42]

hüceredeki değer 45'ten küçük ise açiklama eklenip "kalsın" yazdırmak, eğer 45'ten büyükse açıklamanın kalkmasını yaptırmak istiyorum. yardımlarınızdan dolayı şimdiden teşekkürler.

 

[Metin Karaağaç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
    If Target.Value < 45 Then
        ActiveCell.Offset(-1, 0).Select
        Selection.AddComment
    Selection.Comment.Visible = False
    Selection.Comment.Text Text:="Kalsın"
  End If
          If Target.Value >= 45 Then
            ActiveCell.Offset(-1, 0).Select
    Selection.ClearComments
  End If
End Sub

 

[Metin Karaağaç]

Bir-iki deneme yapınca tam verimli olmadığını farkettim.
Kodlardan anlayan bir arkadaşımız yardımcı olur umarım.

 

[Levent Menteşoğlu]

Hücredeki değer direkmi yazılıyor yoksa bir formül sonucu olarakmı görünüyor.

 

[Kemal Demir]

Zannedersem Bu Belki Olabilir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
If Target.Value < 45 Then
ActiveCell.Offset(-1, 0).Select
Selection.AddComment
Selection.Comment.Visible = False
Selection.Comment.Text Text:="Kalsın"
Else
If Target.Value >= 45 Then
ActiveCell.Offset(-1, 0).Select
Selection.ClearComments
End If
End If
End Sub

 

[Metin Karaağaç]

Hücredeki değer direkmi yazılıyor yoksa bir formül sonucu olarakmı görünüyor.

Bu ihtimali hiç düşünmemiştim.
Tecrübe ve bilgi farkı bu olsa gerek

Edit: Bu arada, verimli olmamasından kastım;
delete tuşuna basınca değişik şeyler yapıyor.

 

[Metin Karaağaç]

Galiba ben soruyu yanlış anlamışım. Çünki Sn SUHATANER'in sorusu ile aynı soru gibi.
Sizin istediğiniz basit bir not ortalaması hesaplama çizelgesi.

 

[sinan42]

arkadaşlar yardımlarınız için sağolun. paylaşım ve yardımlaşma çok güzel. bu ortamaı oluşturan arkadaşlardan allah razı olsun (bütün herkesten) k::