2 Ayrı İşlemi Private Sub Worksheet_Change(ByVal Target As Range) de Birleştirmek

[baydeniro]

Merhaba arkadaşlar. Sayfa altındaki Private Sub Worksheet_Change(ByVal Target As Range) koduna birbirinden farklı konuslardaki 2 ayrı işlemi nasıl birleştirebiliriz ?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [D:N]) Is Nothing Then Exit Sub
If Target.Column >= 13 And Target <> "" Then
Target.Offset(1, -9).Select

Else
Target.Next.Select

End If
If [B1] = "AD" Then Sayfa1.Shapes("Button 33").Visible = 0
If Not [B1] = "AD" Then Sayfa1.Shapes("Button 33").Visible = 1
End Sub