iki farklı koşula göre tetiklenen makro

[arda41]

Merhabalar,

Ekteki örnek dosya içerisinde anlatmaya çalıştığım bir konuda yardıma ihtiyacım bulunmaktadır.

Şimdiden yardımcı olabilecek herkese çok teşekkür ederim.

Saygılarımla

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:B1]) Is Nothing Then Exit Sub
    
    If Range("A2").Value = "1" Then
        MsgBox ("A2 hücresi 1 dir")
    ElseIf Range("A2").Value = "2" Then
        MsgBox ("A2 hücresi 2 dir")
    End If
    If Range("b1").Value < 5 Then
        Range("b2").Value = 1
    ElseIf Range("b1").Value > 5 Then
        Range("b2").Value = 2
    End If
End Sub

 

[arda41]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1:B1]) Is Nothing Then Exit Sub
   
    If Range("A2").Value = "1" Then
        MsgBox ("A2 hücresi 1 dir")
    ElseIf Range("A2").Value = "2" Then
        MsgBox ("A2 hücresi 2 dir")
    End If
    If Range("b1").Value < 5 Then
        Range("b2").Value = 1
    ElseIf Range("b1").Value > 5 Then
        Range("b2").Value = 2
    End If
End Sub

Sayın Hamitcan,

Başta ilginiz için çok teşekkür ederim.

B1 hücresine değer atandığında A1 hücresine bağlı makro da çalışıyor. Yani B1 hücresine değer girildiğinde kodlama başta Msgbox ile verilen mesajı çalıştırıyor daha sonra B2 hücresine değer atıyor. Ben A1 ve B1'e atanan makroların birbirinden bağımsız çalışmasını istemekteyim. Yardımcı olabilir misiniz lütfen?

Çok teşekkürler.

 

[arda41]

Sayın Hamitcan,

Başta ilginiz için çok teşekkür ederim.

B1 hücresine değer atandığında A1 hücresine bağlı makro da çalışıyor. Yani B1 hücresine değer girildiğinde kodlama başta Msgbox ile verilen mesaj makrosunu çalıştırıyor daha sonra B2 hücresine değer atan makro çalışıyor. Ben A1 ve B1'e atanan makroların birbirinden bağımsız çalışmasını istemekteyim. Yardımcı olabilir misiniz lütfen?

Çok teşekkürler.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Range("A2").Value = 1 Then
            MsgBox ("A2 hücresi 1 dir")
        ElseIf Range("A2").Value = 2 Then
            MsgBox ("A2 hücresi 2 dir")
        End If
    End If
    If Target.Address = "$B$1" Then
    If Range("b1").Value < 5 Then
        Range("b2").Value = 1
    ElseIf Range("b1").Value > 5 Then
        Range("b2").Value = 2
    End If
    End If
End Sub

 

[arda41]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Range("A2").Value = 1 Then
            MsgBox ("A2 hücresi 1 dir")
        ElseIf Range("A2").Value = 2 Then
            MsgBox ("A2 hücresi 2 dir")
        End If
    End If
    If Target.Address = "$B$1" Then
    If Range("b1").Value < 5 Then
        Range("b2").Value = 1
    ElseIf Range("b1").Value > 5 Then
        Range("b2").Value = 2
    End If
    End If
End Sub

Sayın Hamitcan,

Elinize emeğinize sağlık.

çok teşekkür ederim.

Saygılarımla