Niels28
Terugkerende gebruiker
- Lid geworden
- 20 nov 2008
- Berichten
- 2.492
nieuwe vraag:
Niels
Code:
Private Sub invoeren_Click()
For i = 1 To 5
If Not IsNumeric(Controls("textbox" & i).Value) Then
MsgBox "Geen (juiste) waarde ingevuld bij veld " & i
Exit Sub
End If
If i = 1 Then
n = Controls("textbox" & i).Value * 300
Else
n = Replace(Controls("textbox" & i).Value, ",", ".")
End If
With Sheets(Trim(Year(DateAdd("m", -1, datum.Value))))
.Protect Password:="0000", UserInterfaceOnly:=True
With .Cells(Month(DateAdd("m", -1, datum.Value)) + 2, i + 1)
.Value = n
.Locked = True
End With
End With
Next
Unload Me
End Sub
Niels