Userform question

[ipbr21054]

I’m thinking of making a userform for my grass cutting business.

I’m not entirely sure how to approach it yet but something like select a customers name & the relevant info fields are then shown.

One thing I’m stuck with is some customers have repeat visits so maybe by clicking on a fields drop down arrow would then show a list of dates when I’ve visited them, or any other suggestions would be good.

Thanks.

 

[My Aswer Is This]

Re: Userform question if I may ask please

Try this:

Private Sub ComboBox1_Change()
'Modified  5/22/2019  4:10:21 PM  EDT
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
Dim i As Long
Dim r As Long
Dim b As Long
Dim Lastcolumn As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B2:A" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
For i = 1 To 7
    Controls("TextBox" & i).Value = Cells(SearchRange.Row, i * 2).Value
Next
Me.TextBox6.Value = Format(Me.TextBox6.Value, "?#,##0.00")
Lastcolumn = Cells(SearchRange.Row, Columns.Count).End(xlToLeft).Column
ListBox1.Clear
For b = 20 To Lastcolumn
If IsNumeric(Cells(SearchRange.Row, b).Value) Then
    ListBox1.AddItem Format(Cells(SearchRange.Row, b).Value, "?#,##0.00")
Else
    ListBox1.AddItem Cells(SearchRange.Row, b).Value
End If
Next
End Sub

 

[ipbr21054]

Re: Userform question if I may ask please

Hi,
Sorry for a delay in my reply but had a family fatality.

Works like a charm.

Many thanks

 

[My Aswer Is This]

Re: Userform question if I may ask please

Glad I was able to help you. Sorry to hear about your loss.

Hi,
Sorry for a delay in my reply but had a family fatality.

Works like a charm.

Many thanks