'toets opslaan_2 '
' Hier zeg je dat in welke map en op welke pagina de inhoud wordt weggeschreven '
Private Sub opslaan_2_click()
Dim iRow As Long
Dim ws As Worksheet
Dim wb As Workbook
Set wb = Workbooks("Offerte.xlsm")
Set ws = Worksheets("HoofdBlad")
Set wsk = Worksheets("Keuken")
Dim strAardFeest As String, datDatum As Date, intAantalpers As Integer, intAantalKind12 As Integer, intAantalKind4 As Integer
Dim strSoortfeest As String, strMenu As String
Dim T As String
Dim naam As String
' Hier word gezegd waar de gegevens worden weggeschreven '
ws.Range("B20").Value = Me.strAardFeest.Value
ws.Range("B22").Value = Me.datDatum.Value
ws.Range("B23").Value = Me.intAantalpers.Value
ws.Range("D23").Value = Me.intAantalKind12.Value
ws.Range("F23").Value = Me.intAantalKind4.Value
ws.Range("B24").Value = Me.strSoortfeest.Value
ws.Range("B25").Value = Me.strMenu.Value
T = StrOpmerking.Text
T = Replace(T, Chr(13), "")
ws.Range("B27").Value = T
' messageBox als je bepaalde velden niet invoerd
If Trim(Me.strSoortfeest.Value) = "" Then
Me.strSoortfeest.SetFocus
MsgBox " Gelieve Type Feest in te voeren "
Exit Sub
End If
If Trim(Me.datDatum.Value) = "" Then
Me.datDatum.SetFocus
MsgBox " Gelieve een Datum in te voeren "
Exit Sub
End If
If Trim(Me.intAantalpers.Value) = "" Then
Me.intAantalpers.SetFocus
MsgBox " Gelieve het Aantal Personen in te voeren "
Exit Sub
End If
naam = Me.strMenu.Value
naam = Replace(naam, " ", "_")
If ws.Cells(25, 2) = Me.strMenu.Value Then
Range("menu") = Range(naam)()
Else
Cells(26, 2) = "Geen Menu"
End If
