Hi,
i have changed a few items on this part of code for the address search button to work
Private Sub searchbtn_Click()
'
Dim ws As Worksheet
Set ws = Worksheets("CURRENT")
Dim rngCell As Range
Dim blnFound As Boolean
blnFound = False
For Each rngCell In Range("D2:D1000")
If rngCell.Text = Searchtxt.Text Then
seriallbl.Caption = rngCell.Offset(0, -3).Text
blnFound = TrueThen
shacklelbl.Caption = rngCell.Offset(0, -2).Text
blnFound = TrueThen
addressbox.Value = rngCell.Offset(0, 0).Value
blnFound = TrueThen
agentscmbo.Text = rngCell.Offset(0, -1).Text
blnFound = TrueThen
mlsbox.Text = rngCell.Offset(0, 1).Text
blnFound = TrueThen
Notesbox.Text = rngCell.Offset(0, 2).Text
blnFound = True
End If
If blnFound = True Then Exit For
Next rngCell
If blnFound = False Then
matcheslbl.Caption = "No such product found"
End If
End Sub
this is a major piece of work to sort out and could take hours.
just a few pointers
you were searching the wrong range, your object names were wrong (text box & labels etc), and your offsets were wrong - you were using rows below rather than columns to left and right.
Sorry cant help any more, as i said this is a mjor piece of work, of which i have done many of these before.
You may want to start of with some more simpler items first.
Bookmarks