hücre birleştirme makro

[gora38]

merhaba sayın hocalarım benim sorunum mesela d1 hücresi 1 ise a1 ve a2 hücresi birleşsin d1 hücresi 2 ise a1 ve a2 hücresi çözülsün. d1 hücresindeki değere göre otomatik çalışsın makro

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
If Target.Value = 1 Then
    Range("A1:A2").MergeCells = True
Else
    Range("A1:A2").MergeCells = False
End If
End Sub

 

[gora38]

çok teşekkür ederim hocam Allah razı olsun.

 

[askm]

Rica ederim, kolay gelsin.

 

[gora38]

hocam kusura bakmayın tekrar rahatsız ediyorum d1 hücre değeri formülle değişiyorsa nasıl olur.

 

[askm]

Private Sub Worksheet_Calculate()
Dim askm As Range
Set askm = Range("D1")
If Not Intersect(askm, Range("D1")) Is Nothing Then
    If askm = 1 Then
        Range("A1:A2").MergeCells = True
    Else
        Range("A1:A2").MergeCells = False
    End If
End If
End Sub

 

[gora38]

teşekkürler hocam ama d1 hücresi mesela m1 hücresinde masa seçildiğinde 1 olsun başka şey seçildiğinde 2 olsun bu şekilde uyarlama şansımız varmı kusura bakmayın.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M1")) Is Nothing Then Exit Sub
If Target.Value = "masa" Then
   Range("D1")=1
    Range("A1:A2").MergeCells = True
Else
   Range("D1")=2
    Range("A1:A2").MergeCells = False
End If
End Sub

 

[gora38]

Elinize sağlık hocam çok teşekkür ederim