Transfer from UserForm to table is super slow

[agarcia.nd]

I'm relatively new to VBA and this is the fourth Form I create but for some reason, the data transfer is taking too long. I've included my file for review. Also, for some reason, I can't attach the file to this post. Please advise.

Thanks,
An

[bakerman2]

This will speed up things.

Please Login or Register  to view this content.

[agarcia.nd]

bakerman2, Thank you for the consice version you provided. I've added the code and it does clear the data from the form quickly but it does not insert the data to the table.

[bakerman2]

Yes, it does. The problem that there's data around row 3400 and it writes below that.
Make sure all data is cleared from your worksheet below the table.

[agarcia.nd]

Got it! Awesome! Thank you for your help.

[bakerman2]

Glad to help.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

[agarcia.nd]

I've added two new textboxes after combobox 3 and 4. The labels and texbox show in the userform but the data is not transfering to the form. Help or direction would be appreciated.

Thanks

[bakerman2]

Please Login or Register  to view this content.

Does adding these 2 lines help ?
Make sure the TextBoix numbers are correct.

[agarcia.nd]

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Worksheets("Data (Daily)")
Rowcount = .Range("A" & .Rows.Count).End(xlUp).Row + 1
For i = 1 To 8
.Cells(Rowcount, i).Value = Me("TextBox" & i).Value
Next
.Cells(Rowcount, 9).Value = Me.ComboBox1.Value
.Cells(Rowcount, 10).Value = Me.ComboBox2.Value
For i = 11 To 15
.Cells(Rowcount, i).Value = Me("TextBox" & i - 2).Value
Next
.Cells(Rowcount, 16).Value = ComboBox3.Value
.Cells(Rowcount, 17).Value = ComboBox4.Value
.Cells(Rowcount, 18).Value = TextBox14.Value
.Cells(Rowcount, 19).Value = TextBox15.Value

End With


Call resetForm
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With



End Sub

I get an error message (424).

[bakerman2]

Please use Code Tags when posting code.

Post the new workbook with extra textboxes.

[agarcia.nd]

Here it is.

[bakerman2]

Like I already said.

Make sure the TextBox numbers are correct.

Please Login or Register  to view this content.

[agarcia.nd]

Got it. I didn't realize my TextBox sequence was missing 14. Also, although it does enter the data now, my tab button cycles through my command buttons before landing on the last to textboxes.

thanks!

[agarcia.nd]

I figured out how to arrange my tab sequence. Thanks again for helping me through this learning process! You rock!

[bakerman2]

Good for you.