data from a form to sheet

[jinx_uk_98]

Hi All,

I have a form which has a calendar control on and also a few textboxes I also a sheet that has dates 1/01/2006 - 31/12/2006 in column A.

I'm trying to get the data entered in the form to be inserted in the against the relevant cell on the sheet (sort of a lookup against the calendar control)

Does anyone have any ideas on how best to achieve this?

Many thanks

Kevin

 

[BrianB]

Something like this ....... ?

Sub UNTESTED()
    Dim Foundcell As Object
    Dim MyDate As Date
    Dim FoundRow As Long
    '-------------------------------------
    MyDate = textbox1.Value ' or whatever
    Set Foundcell = ActiveSheet.Columns(1).Find(what:=MyDate)
    If Foundcell Is Nothing Then
        MsgBox ("Could not find " & MyDate)
    Else
        FoundRow = Foundcell.Row
        ActiveSheet.Cells(FoundRow, 2).Value = textbox2.Value
    End If
End Sub

 

[jinx_uk_98]

Brian,

Thankyou very much, with a little modifying this was perfect.

Cheers

Kevin.