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("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
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
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