Excel Macro Help?

robert_harper_2000

Also it doesn't actually find it if I literally just type in Train. So it really isn't working?

f1charlie

Try this:

Private Sub FindButton_Click()
Dim strFindWhat As String
strFindWhat = TextBox1.Text
On Error GoTo ErrorMessage

Sheets("Prices").Activate

ThisWorkbook.Sheets("Prices").Cells.Find(What:=strFindWhat, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select

Exit Sub
ErrorMessage:
MsgBox ("The information you have searched does not exist")
End Sub

robert_harper_2000

nope!? Aragh lol

I'll make another print screen, cheers for this

robert_harper_2000

f1charlie

It works for me! Has a space sneaked into your strFindWhat?

robert_harper_2000

removed the space and it said compile error : syntax error

robert_harper_2000

Hold on it turns out there was a space at the end of the look at bit!! It works!!!!!

THANK YOU SOOOO MUCH

robert_harper_2000

THANK YOU THAT IS GREAT!! LOL I'm way too happy about this

robert_harper_2000

Have you got any other tips or advice to improve the spreadsheets?

How about when I have nothing in the cells but another cell adds up when there is information. Maybe it will be easier explained in a screen print

robert_harper_2000

I have this a lot. Formulas in one cell don't seem to like being lazy! They want information to add up. I remember there is a way to display nothing if there is nothing to add up?