2 VBA kodu

[emre11]

VBA bilmediğim için bu siteden aldığım 2 tane VBA kodunu aynı belgede uygulyamıyorum. VBA editörüne her iki koduda copy paste alt alta ettim. Kodlar şöyleydi:
--------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B7]) Is Nothing Then Exit Sub
On Error Resume Next
If [B2] = "" Or [B3] = "" Then
MsgBox "Name veya Vorname boş olamaz", vbCritical, "DİKKAT"
Exit Sub
Else
Sheets("Sayfa2").Select
End If
End Sub


----------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [E11]) Is Nothing Then Exit Sub
Sheets("Sayfa3").Select
Application.DisplayFullScreen = True
End Sub
--------------

Bunları nasıl kopyalamalıyım?

 

[Levent Menteşoğlu]

Aşağıdaki gibi tek kod kullanmanız gerekir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
on error resume next
If not Intersect(Target, [B7]) Is Then
If [B2] = "" Or [B3] = "" Then
MsgBox "Name veya Vorname boş olamaz", vbCritical, "DİKKAT"
Exit Sub
Else
Sheets("Sayfa2").Select
End If
end if
If not Intersect(Target, [E11]) Is Then
Sheets("Sayfa3").Select
Application.DisplayFullScreen = True
end if
End Sub