Aktif hücreye bağlı olarak uyarı

[rekkezum]

Merhabalar arkadaşlar
Şunu yapabilmek mümkünmüdür ? A1 hücresi aktif iken B1 hücresinde Dikkat yazssın, A2 hüresi akfif iken o uyarı kaybolsun B2 de bikkat yazssın?
Şimdiden teşekkürler

 

[Orion1]

İlgili çalışma sayfasının modülüne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:B1]) Is Nothing Then Exit Sub
Target.Value = ""
If Target.Column = 1 Then
    Target.Offset(0, 1).Value = "dikkat"
    Else
    Target.Offset(0, -1).Value = "dikkat"
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki işlemleri uygulayın.

Boş bir modüle aşağıdaki kodu uygulayın.

Option Explicit
Public Eski_Hücre As String

ThisWorkbook bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Workbook_Open()
    Eski_Hücre = ActiveCell.Address
End Sub

Bu işlemi uygulayacağınız sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Eski_Hücre <> Target.Address Then
    Range(Eski_Hücre).Offset(0, 1) = ""
    Target.Offset(0, 1) = "DİKKAT"
    Eski_Hücre = Target.Address
    End If
End Sub

Dosyanızı kaydedin ve kapatıp açın. İlgili sayfanın A sütununda seçim yaptıkça "DİKKAT" yazısı aktif hücreye göre hareket edecektir.

 

[Necdet]

Merhabalar arkadaşlar
Şunu yapabilmek mümkünmüdür ? A1 hücresi aktif iken B1 hücresinde Dikkat yazssın, A2 hüresi akfif iken o uyarı kaybolsun B2 de bikkat yazssın?
Şimdiden teşekkürler

Bu sorunun mantığını merak ettim gerçekten.
A5 te iken B5 e dikkat yazsa ne olur yazmasa ne olur? Başka bir hücreye gittiğinde eski değerin silineceği sözkonusu ise?