ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,226
- Office Version
- 2007
- Platform
- Windows
Morning,
The code in use is supplied below.
I enter some text in TextBox8 to be searched for but none was found.
I then see the Msgbox saying NO CUSTOMER WAS FOUND USING THAT INFORMATION
I then click OK to the Msgbox BUT now i wish for TextBox8 to have the text removed of which it does BUT in respect of TextBox8 having the focus applied to it i dont see the flashing vetical line at all.
The code in use is supplied below.
I enter some text in TextBox8 to be searched for but none was found.
I then see the Msgbox saying NO CUSTOMER WAS FOUND USING THAT INFORMATION
I then click OK to the Msgbox BUT now i wish for TextBox8 to have the text removed of which it does BUT in respect of TextBox8 having the focus applied to it i dont see the flashing vetical line at all.
Rich (BB code):
Private Sub TextBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Dim r As Range, f As Range, cell As String, added As Boolean
Dim sh As Worksheet
Set sh = Sheets("POSTAGE")
sh.Select
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "220;110;130;10"
If TextBox8.Value = "" Then Exit Sub
Set r = Range("B8", Range("B" & Rows.Count).End(xlUp))
Set f = r.Find(TextBox8.Value, LookIn:=xlValues, lookat:=xlPart)
If Not f Is Nothing Then
cell = f.Address
Do
added = False
For i = 0 To .ListCount - 1
Select Case StrComp(.List(i), f.Value, vbTextCompare)
Case 0, 1
.AddItem f.Value, i 'col B
.List(i, 1) = f.Offset(, 2).Value 'col D
.List(i, 2) = f.Offset(, 5).Text 'col G .TEXT is used as date in Listbox was shown as 12/17/2020 as opposed 17/12/2020
.List(i, 3) = f.Row 'row
added = True
Exit For
End Select
Next
If added = False Then
.AddItem f.Value 'col B
.List(.ListCount - 1, 1) = f.Offset(, 2).Value 'col D
.List(.ListCount - 1, 2) = f.Offset(, 5).Text 'col G .TEXT is used as date in Listbox was shown as 12/17/2020 as opposed 17/12/2020
.List(.ListCount - 1, 3) = f.Row 'row
End If
Set f = r.FindNext(f)
Loop While Not f Is Nothing And f.Address <> cell
TextBox8 = UCase(TextBox8)
.TopIndex = 0
Else
MsgBox "NO CUSTOMER WAS FOUND USING THAT INFORMATION", vbCritical, "POSTAGE SHEET CUSTOMER NAME SEARCH"
End If
End With
TextBox8.Value = ""
TextBox8.SetFocus
End If
End Sub