Lidt rettelser og forlag.
Den korte:
Private Sub Worksheet_Deactivate()
'Den korte
If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
Else
'Ark1, celle A4 aktiveres
Sheets("Ark1").Select '<-- Ark navn til rettes
Range("A4").Activate
End If
End Sub
Med info boks:
Private Sub Worksheet_Deactivate()
'Med info boks
If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
Else
'Info boks
MsgBox "Husk at vælge Type 1 eller Type 2.", vbOKOnly + vbInformation, "Bestillings Type."
Cancel = True
'Ark1, celle A4 aktiveres
Sheets("Ark1").Select '<-- Ark navn til rettes
Range("A4").Activate
End If
End Sub
Med valg muligheder:
Private Sub Worksheet_Deactivate()
'med valg
If Range("A4").Text = "Type 1" Or Range("A4").Text = "Type 2" Then
'Siden skifter hvis Type 1 elle Type 2 er valgt
Else
'Valg boks Type 1
Svar1 = MsgBox("Vil du bruge: Type 1", vbYesNo + vbQuestion, "Bestillings type.")
If Svar1 = vbYes Then
Range("A4") = "Type 1"
End If
'Type 1 er valgt. og siden skifter
If Svar1 = vbNo Then
'Valg boks Type 2
Svar2 = MsgBox("Vil du bruge: Type 2", vbYesNo + vbQuestion, "Bestillings type.")
End If
If Svar2 = vbYes Then
Range("A4") = "Type 2"
End If
'Type 2 er valgt. og siden skifter
If Svar2 = vbNo Then
'Ingen valg, Ark1, celle A4 aktiveres
Sheets("Ark1").Select '<-- Ark navn til rettes
Range("A4").Activate
End If
End If
End Sub