DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Bu ihtimali hiç düşünmemiştim.leventm' Alıntı:Hücredeki değer direkmi yazılıyor yoksa bir formül sonucu olarakmı görünüyor.