Why won't this work?... UserForm code

[Big Lar]

This code works on all my existing UserForms
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
But now, with any new work, (on an existing worksheet or a new "test" worksheet) the UserForm will not display the called value in TextBox1
<o></o>
Any idea what’s wrong?
<o></o>

Private Sub UserForm_Initialize()<o:p></o:p>
Dim x&<o:p></o:p>
With Sheets("Sheet1")<o:p></o:p>
    For x = 2 To .Cells(Rows.Count, "A").End(xlUp).Row<o:p></o:p>
        ComboBox1.AddItem (.Range("A" & x).Value)<o:p></o:p>
    Next x<o:p></o:p>
End With<o:p></o:p>
End Sub

<o></o>
<o></o>
<o>

 </o:p>
Private Sub ComboBox1_Change()<o:p></o:p>
Dim x&<o:p></o:p>
With Sheets("Sheet1")<o:p></o:p>
    For x = 1 To .Cells(Rows.Count, "A").End(xlUp).Row<o:p></o:p>
        If .Cells(x, "A").Value = Me.ComboBox1.Value Then _<o:p></o:p>
            Me.TextBox1.Value = .Cells(x, "B").Value<o:p></o:p>
<o:p></o:p>
    Next x<o:p></o:p>
End With<o:p></o:p>
<o:p></o:p>
End Sub

Very puzzled!

 

[Big Lar]

OK!!! I figured it out!

TextBox1 value will remain blank if ColumnA values are numeric.

Since my WS ColumnA is the date, how can I overcome this?

 

[Norie]

You could use the ListIndex property of the combobox to get the row for the selected item.
For example if the combobox is populated from A2:A10 the index of the first item is 0. So to get the row just add 2.

Textbox1.Value = Range("B" & Combobox1.ListIndex + 2)

 

[Big Lar]

OK...Thanks!

And this provides math functions and currency format for the result.

Private Sub ComboBox1_Change()
TextBox1.Value = (Format(Range("T" & ComboBox1.ListIndex + 2) + Range("U" & ComboBox1.ListIndex + 2) * 0.25, "$ #.00"))
TextBox5.Value = (Format(Range("AE" & ComboBox1.ListIndex + 2), "$ #.00"))

So why does my first bit not work when ColumnA is numeric? Seems odd.