Forum Discussion

sf49ers19238597's avatar
sf49ers19238597
Iron Contributor
Dec 14, 2020

I have a friend that need help with vab code

need help with part  of vba code     If Me.cmbWeek.ListIndex > -1 Then Set Ws = Worksheets(Me.cmbWeek.Value) Else: MsgBox "INCORRECT INPUT." & vbNewLine & "Use Dropdown For Listed We...
excel
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP
Dec 16, 2020

sf49ers19238597 

I'm afraid that makes no sense. You'll have to explain what you want to do in the loop.

Filling thousands of text boxes is not a realistic option.

sf49ers19238597's avatar
sf49ers19238597
Iron Contributor
Dec 16, 2020

HansVogelaar 

 

The form is for to input data in into worksheet

 

Date
Description
Withdrawl
Desposit

 

next for loop

 that code i have is in a loop but not working go make work please

 

  • sf49ers19238597's avatar
    sf49ers19238597
    Iron Contributor
    Dec 17, 2020

    HansVogelaar 

     

     

    Thanks You very much the code works good I let my friend later today see he thinks of it

     

     

     

  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Dec 16, 2020

    sf49ers19238597 

    You don't want to loop! It makes no sense whatsoever. Try this code:

     

    Private Sub CommandButton1_Click()
    Dim r As Long
    If Not IsDate(Me.TextBox1) Then
        Me.TextBox1.SetFocus
        MsgBox "Please enter a valid date!", vbExclamation
        Exit Sub
    End If
    If Me.TextBox2 = "" Then
        Me.TextBox2.SetFocus
        MsgBox "Please enter a description!", vbExclamation
        Exit Sub
    End If
    If Me.TextBox3 = "" And Me.TextBox4 = "" Then
        Me.TextBox3.SetFocus
        MsgBox "Please enter a withdrawal and/or a deposit!", vbExclamation
        Exit Sub
    End If
    r = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & r).Value = Me.TextBox1.Value
    Range("B" & r).Value = Me.TextBox2.Value
    Range("I" & r).Value = Me.TextBox3.Value
    Range("J" & r).Value = Me.TextBox4.Value
    Unload Me
End Sub

Resources