stefano
Gebruiker
- Lid geworden
- 22 mei 2004
- Berichten
- 864
Beste,
ik heb een bestand met drie sheets Nederlands, Français en English waarin gegevens dienen aangevuld te worden. Afhankelijk van de taal van de gebruiker dient slechts één tabblad ingevuld te worden.
Bijkomende voorwaarde:
Alle cellen ( in geel gekleurd, zie bestand in bijlage) moeten ingevuld zijn. Dan pas kan/mag het bestand opgeslagen worden. Dus wanneer alle cellen van tabblad frans ingevuld werden dan mag er opgeslagen worden.
Wanneer niks ingevuld werd in de drie tabbladen dan mag het bestand ook kunnen opgeslagen worden natuurlijk.
Ik probeerde via onderstaande code maar heb er ondertussen een knoeiboeltje van gemaakt.
Kan iemand me helpen ?
Dank,
Stefano
Bekijk bijlage Mel A.xlsm
ik heb een bestand met drie sheets Nederlands, Français en English waarin gegevens dienen aangevuld te worden. Afhankelijk van de taal van de gebruiker dient slechts één tabblad ingevuld te worden.
Bijkomende voorwaarde:
Alle cellen ( in geel gekleurd, zie bestand in bijlage) moeten ingevuld zijn. Dan pas kan/mag het bestand opgeslagen worden. Dus wanneer alle cellen van tabblad frans ingevuld werden dan mag er opgeslagen worden.
Wanneer niks ingevuld werd in de drie tabbladen dan mag het bestand ook kunnen opgeslagen worden natuurlijk.
Ik probeerde via onderstaande code maar heb er ondertussen een knoeiboeltje van gemaakt.
Kan iemand me helpen ?
Dank,
Stefano
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Nederlands")
If IsEmpty(.Range("B2").Value) And IsEmpty(.Range("B3").Value) Then
GoTo Frans
ElseIf Not IsEmpty(.Range("B2").Value) And Not IsEmpty(.Range("B3").Value) Then
GoTo Frans
Else
Cancel = True
MsgBox "Vul aub alle codes in op tabblad Nederlands. "
End If
End With
Frans:
With Sheets("Français")
If IsEmpty(.Range("B2").Value) And IsEmpty(.Range("B3").Value) Then
GoTo Engels
ElseIf Not IsEmpty(.Range("B2").Value) And Not IsEmpty(.Range("B3").Value) Then
GoTo Engels
Else
Cancel = True
MsgBox "Vul aub alle codes in op tabblad Français. "
End If
End With
Engels:
With Sheets("English")
If IsEmpty(.Range("B2").Value) And IsEmpty(.Range("B3").Value) Then
Exit Sub
ElseIf Not IsEmpty(.Range("B2").Value) And Not IsEmpty(.Range("B3").Value) Then
Exit Sub
Else
Cancel = True
MsgBox "Vul aub alle codes in op tabblad English. "
End If
End With
End Sub
Bekijk bijlage Mel A.xlsm