VBA is great but it sure can be perplexing.
I am working on a project and I need some VBA-code to perform a "find" then a "findnext" using a userform. Does anyone have something along these lines that I can take a gander at see where I'm going wrong?
In the code that I have used the variable that should receive the value to implement the "findnext" is not being detected.
Any help I can get on this is greatly appreciated.
Private Sub FindIt_Click()
ActiveSheet.Protect UserInterfaceOnly:=True, password:="engineer"
Dim foundCell As Range
Dim foundValue As Range
Dim searchrng As Range
Dim textToBeFound As String
textToBeFound = TextBox5.Value
Set searchrng = Sheets("Codes").Range("B773:B2638")
'Find SIC Description and code along with NAICS description and code from input in "Find It" box
Set foundValue = .Cells.Find(What:=textToBeFound, _
FindIt.Caption = "Next>>"
CommandButton2.Caption = "<<Previous"
Set foundCell = foundValue
Set foundValue = searchrng.FindNext(after:=foundCell)
'test to see if any matching text was found using an IS test
If foundValue Is Nothing Then
MsgBox "No Match Found! Either refine your description and try again, or consult the Source Industrial Code (SIC) table for the appropriate description."
TextBox8.Value = foundValue 'loads SIC Description
TextBox6.Value = foundValue.Offset(0, -1) 'loads SIC Code
ActiveSheet.Range("f14").Value = foundValue.Offset(0, -1) ' loads search variable for "Next" and "Previous" arguments
TextBox9.Value = foundValue.Offset(0, 2) 'loads NAICS Description
TextBox7.Value = foundValue.Offset(0, 1) 'loads NAICS Code