Thread: Help with Forms
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Office_Novice Office_Novice is offline
external usenet poster
 
Posts: 245
Default Help with Forms

Try somthing like this

You may have to modify it some for it to work for you but i think it could
be a good option.

Option Explicit

'This searches for the seletion in the comboBox
'Then goes to the Column "C" to input the date entered

Sub CommandButton1_Click()

Dim foundcell As Range

With Worksheets(1).Range("A1:A65536")

Set foundcell = .Find(What:=ComboBox1.Value, lookAt:=xlWhole, _
LookIn:=xlValues, SearchOrder:=xlRows, _
MatchCase:=True, MatchByte:=True)

If Not foundcell Is Nothing Then
foundcell.Offset(0, 2).Value = TextBox1.Value
End If
End With
End Sub
'This way your company list stays in its
'current range & only the dates change



'This will use your Sheets
'Data to populate the ComboBox
'Change ranges to fit your data


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sheet1!A2:A30"
End Sub
'Your ComboBox will then be able to grow as your list grows


"Leanne" wrote:

Thanks for this information both of you - I cant test either of them because
I am having trouble with something so simple - Cant get my combo box to
display the names. Could it have something to do with the fact that the
cells in the range contain a formula?

Private Sub VisitList_Change()

Dim CustomerName As Range
Dim ws As Worksheet
Set ws = Worksheet("Lookuplists")
For Each VisitList In ws.Range("CustomerName")
With Me.VisitList
.AddItem CustomerName.Value
.List(.ListCount - 1, 1) = CustomerName.Offset(0, 1).Value
End With
Next VisitList
End Sub

"Leanne" wrote:

Hi,
I have been to http://www.contextures.on.ca/xlUserForm01.html#SetUp and
gained a lot of usefull information however the question I have does not seem
to be addressed there.

I want to create a form where the user selects an option from a combo box
and then enters the information relevant into the text box. This I have done
but what I do not know is how to get it to update the sheet in the correct
manner.

If someone selects Marchwood from the combo box and enters 01/05/08 in the
text box I want the record for Marchwood to be updated. Marchwood is in A2
and the data would need to update in C2 everytime Marchwood is chosen - and
the same for all the other companies.

Can anyone offer any suggestions?

Thanks