Guzzlr
Well-known Member
- Joined
- Apr 20, 2009
- Messages
- 982
- Office Version
- 2021
- Platform
- Windows
Hello All,
I'm having a little difficulty with learning about User Form's
My Code Thus Far:
So, My User Form has two fields to fill in:
1. "Date Field"
2. "Time Field"
When I fill in the Date Field, the User Form enters the date in RANGE(B17), as it should, and continues with B18, B19 as new dates are entered. So the Date Field is working Correctly.
My "Time Field" is not working correctly. When I enter a number ie: 1.5, the code faults on:
Cells(RowCounter, 3).Value = Tbx_Time.Value
What I'm trying to accomplish, is the Date in B17 and the corresponding time in C18.
Thanks for the help
excel 2013
PS, at this time, I have no declarations, which is probably wrong...
I'm having a little difficulty with learning about User Form's
My Code Thus Far:
Code:
[COLOR=#339933]'While Loop Checks for Data Beginning In Line 17[/COLOR]
RowCounter = 17
While Cells(RowCounter, 2).Value <> ""
RowCounter = RowCounter + 1
Wend
[COLOR=#339900]'Data Input Into Excel Sheet[/COLOR]
Cells(RowCounter, 2).Value = Tbx_Date.Text
Cells(RowCounter, 3).Value = Tbx_Time.Value
So, My User Form has two fields to fill in:
1. "Date Field"
2. "Time Field"
When I fill in the Date Field, the User Form enters the date in RANGE(B17), as it should, and continues with B18, B19 as new dates are entered. So the Date Field is working Correctly.
My "Time Field" is not working correctly. When I enter a number ie: 1.5, the code faults on:
Cells(RowCounter, 3).Value = Tbx_Time.Value
What I'm trying to accomplish, is the Date in B17 and the corresponding time in C18.
Thanks for the help
excel 2013
PS, at this time, I have no declarations, which is probably wrong...
Last edited: