Makro, birleşik hücrede çalışmıyor

[ASLAN7410]

Merhaba hayırlı geceler.

Aşağıdaki makrom birleşik hücrelerde çalışmıyor, nereleri değiştirmem gerekiyor?

C4 hücresi E4 hücresi ile birleşik ve G4 hücresi H4 hücresi ile birleşik olduğunda çalışmıyor, birleştirmeleri kaldırdığımda çalışıyor.

Yardımcı olur musunuz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C4,G4")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$C$4" Then Call Makro2
If Target.Address = "$G$4" Then Call Makro1
Application.EnableEvents = True
End Sub

 

[PLİNT]

Merhaba hayırlı geceler.
Aşağıdaki makrom birleşik hücrelerde çalışmıyor, nereleri değiştirmem gerekiyor?
C4 hücresi E4 hücresi ile birleşik ve G4 hücresi H4 hücresi ile birleşik olduğunda çalışmıyor, birleştirmeleri kaldırdığımda çalışıyor.

Merhaba
Aşağıdaki gibi deneyin.

[SIZE="2"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.MergeArea.Address <> "$C$4:$E$4" And _
ActiveCell.MergeArea.Address <> "$G$4:$H$4" Then Exit Sub
Application.EnableEvents = False
If ActiveCell.MergeArea.Address = "$C$4:$E$4" Then Call Makro2
If ActiveCell.MergeArea.Address = "$G$4:$H$4" Then Call Makro1
Application.EnableEvents = True
End Sub[/SIZE]

 

[ASLAN7410]

Sayın PLİNT çok teşekkür ederim, ellerinize sağlık.

Hayırlı geceler hayırlı çalışmalar diliyorum.