Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

PROCEDURE VBA EXCELL TO BIG !? : ( ...........

Status
Not open for further replies.
Joep1972

Joep1972

Technical User
Nov 24, 2002
13
NL
Hi,

Who can help me with the following,

I'm making my first program in excell VBA,

Because I'm not familar with al the codes I made a procedure with if and then,
This was a lot of work and now i've tried to run it the procedure is to big !!!!!!!!!

You can imagin the words that came out of my mouth just a few seconds a go.

But what is the maximum length of 1 procedure ?

and below you will find a part of what i'm doing
I've got to do that also with the 12 months of 2003.

PLEASE HELP

Joep


Private Sub CommandButton3_Click()
'
'ok button inkomsten budget invoer formulier
'
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(13, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(13, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(24, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(25, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(26, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(27, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(28, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(14, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(14, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(24, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(25, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(26, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(27, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(28, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(15, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(15, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(24, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(25, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(26, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(27, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(28, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(16, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(16, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(24, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(25, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(26, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(27, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(28, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(17, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(17, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Range(&quot;c18&quot;) <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;prijzengeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(24, 8).Value = Worksheets(&quot;test&quot;).Cells(24, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;terugstorting&quot;) Then
Worksheets(&quot;test&quot;).Cells(25, 8).Value = Worksheets(&quot;test&quot;).Cells(25, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;belasting teruggave&quot;) Then
Worksheets(&quot;test&quot;).Cells(26, 8).Value = Worksheets(&quot;test&quot;).Cells(26, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Arenda&quot;) Then
Worksheets(&quot;test&quot;).Cells(27, 8).Value = Worksheets(&quot;test&quot;).Cells(27, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value <= 0 And Me.ListBox1.Value = (&quot;anders&quot;) Then
Worksheets(&quot;test&quot;).Cells(28, 8).Value = Worksheets(&quot;test&quot;).Cells(28, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(18, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(18, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Range(&quot;c19&quot;) <= 0 And Me.ListBox1.Value = (&quot;Salaris Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(14, 8).Value = Worksheets(&quot;test&quot;).Cells(14, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Salaris Sandra&quot;) Then
Worksheets(&quot;test&quot;).Cells(15, 8).Value = Worksheets(&quot;test&quot;).Cells(15, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Alimentatie&quot;) Then
Worksheets(&quot;test&quot;).Cells(16, 8).Value = Worksheets(&quot;test&quot;).Cells(16, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Nederland&quot;) Then
Worksheets(&quot;test&quot;).Cells(17, 8).Value = Worksheets(&quot;test&quot;).Cells(17, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Belgie&quot;) Then
Worksheets(&quot;test&quot;).Cells(18, 8).Value = Worksheets(&quot;test&quot;).Cells(18, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Kindergeld Kaylee&quot;) Then
Worksheets(&quot;test&quot;).Cells(19, 8).Value = Worksheets(&quot;test&quot;).Cells(19, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;13de Maand Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(20, 8).Value = Worksheets(&quot;test&quot;).Cells(20, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Bonus Joep&quot;) Then
Worksheets(&quot;test&quot;).Cells(21, 8).Value = Worksheets(&quot;test&quot;).Cells(21, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;Vakantiegeld&quot;) Then
Worksheets(&quot;test&quot;).Cells(22, 8).Value = Worksheets(&quot;test&quot;).Cells(22, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 2) = Me.ListBox1.Text
Sheets(&quot;Budget maand November 2002&quot;).Cells(19, 4) = Me.ListBox3.Text
Sheets(&quot;Budget maand November 2002&quot;).Activate
Unload Me
End If
If Me.ListBox4.Text = (&quot;11 02&quot;) And Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value <= 0 And Me.ListBox1.Value = (&quot;declaratie&quot;) Then
Worksheets(&quot;test&quot;).Cells(23, 8).Value = Worksheets(&quot;test&quot;).Cells(23, 8) + Me.TextBox1.Value
Worksheets(&quot;Budget maand November 2002&quot;).Cells(19, 3).Value = Me.TextBox1.Text
Sheets(&quot;Bud
 
Status
Not open for further replies.

Similar threads

thanhthanh12
  • Locked
  • Question
Help vba
Replies
3
Views
488
combo
combo
Andrzejek
  • Locked
  • Question
Outlook VBA - Trust access
Replies
3
Views
777
hermanlaksko
hermanlaksko
SLW89
  • Locked
  • Question
VBA newbie needs help
Replies
4
Views
431
Andrzejek
Andrzejek
xwb
  • Locked
  • Helpful tip
Performing VBA operations in other languages
Replies
1
Views
390
strongm
strongm
Katto
  • Locked
  • Question
VBA permutation of arrays
2
Replies
22
Views
744
Katto
Katto

Part and Inventory Search

Sponsor

Back
Top