Show content of a userform textbox

[kelly mort]

Hello All,
I have two textboxes on my userform and i want to put start date and end date in them. Then the next thing i wanna do is that those two dates should be set to two cells on my worksheet say A5 and B5. And anytime i load the form, i want those dates back in the textboxes. The textboxes are named tb1 and tb2. I am struggling to figure out how to do it then i remembered that someone always knows more than i do so i have come for help.
Thanks
Kelly

 

[kelly mort]

Can someone help me out with this please???

 

[kelly mort]

Still need help with this please

 

[dmt32]

Hi,

try:

Place code in your forms code page.

Private Sub UserForm_Initialize()
    With Sheets("Sheet1")
        Me.tb1.Text = .Range("A5").Text
        Me.tb2.Text = .Range("B5").Text
    End With
End Sub

Change sheet name shown in RED as required.

Dave

 

[kelly mort]

Okay. Thanks . But how do i take the data in the textboxes to the sheet?
I wanna use the tb_update event

 

[kelly mort]

Okay i think something like this will do that trick i want

Private Sub tb1_Update()
    With Sheets("Sheet1")
        .Range("A5").Text = Me.tb1.Text
    End With
End Sub

 

[dmt32]

Hi,

try

Dim ws As Worksheet


Private Sub tb1_AfterUpdate()
If IsDate(Me.tb1.Text) Then
    ws.Range("A5").Value = DateValue(Me.tb1.Text)
End If
End Sub


Private Sub tb2_AfterUpdate()
If IsDate(Me.tb2.Text) Then
    ws.Range("B5").Value = DateValue(Me.tb2.Text)
End If
End Sub


Private Sub UserForm_Initialize()
    Set ws = Sheets("Sheet1")
    Me.tb1.Text = ws.Range("A5").Text
    Me.tb2.Text = ws.Range("B5").Text
End Sub

Note the ws variable which MUST sit at TOP of your forms code page OUTSIDE any procedure.

Dave

 

[kelly mort]

Thanks a lot. I have not tested them yet but have looked at the codes and i do understand whatever is going on in them. Will try them very soon when i get home.

Before then, i am very grateful
Kelly

 

[dmt32]

Thanks a lot. I have not tested them yet but have looked at the codes and i do understand whatever is going on in them. Will try them very soon when i get home.

Before then, i am very grateful
Kelly

most welcome - hope helps

Dave

 

[kelly mort]

I have a problem inserting the macro
into mine

Dim ws As Worksheet


Private Sub tb1_AfterUpdate()
If IsDate(Me.tb1.Text) Then
    ws.Range("A5").Value = DateValue(Me.tb1.Text)
End If
End Sub


Private Sub tb2_AfterUpdate()
If IsDate(Me.tb2.Text) Then
    ws.Range("B5").Value = DateValue(Me.tb2.Text)
End If
End Sub


Private Sub UserForm_Initialize()
    Set ws = Sheets("Sheet1")
    Me.tb1.Text = ws.Range("A5").Text
    Me.tb2.Text = ws.Range("B5").Text
End Sub

The macro in my project is as below:

Sub UserForm_Initialize()
    cmb.AddItem "one"
    cmb.AddItem "two"
    cmb.AddItem "three"
End Sub

Private Sub cmb_Click()
    Select Case cmb.Value
       Case "one"
       cmb1.AddItem "Sheet1"
        Case "two"
       cmb1.AddItem "Sheet2"
       Case "three"
       cmb1.AddItem "Sheet3"
    End Select
End Sub

I am finding it tough to get it into my macro.