Custom Data Entry form to post to separate worksheets dependent on a variable

**JohnRooney** · 11-25-2009, 03:52 PM

OK, I have tried but I've got lost - Any chance you could have a look at the code for me - I've done everything I can but I'm limited.

If you sort this I will be your friend for life

Many thanks

**Palmetto** · 11-25-2009, 05:02 PM

Here is a better example, briefly tested, but not fully developed for all of your controls on the form. This should get you going. Note that I am referencing sheet codenames and not worksheet names (matter of preference).

    Dim lrow As Long, ws As Worksheet
    
    Select Case Me.CheckBox1.Value
        Case True 'Extended Terms
            lrow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            Set ws = Sheet4
            
        Case False 'Same Terms
            lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            Set ws = Sheet2
    End Select
    
    With Me
        ws.Cells(lrow, 1) = .Account.Value
        ws.Cells(lrow, 2) = .Surname.Value
    End With

**JohnRooney** · 11-25-2009, 07:05 PM

That's Just Brilliant - The really good thing about this is I'm learning stuff as well - and managing to remember it for future reference- I'm also beginning to understand how the code works. Thanks so much again