Modifying the search code

[golf401]

I have a search macro that works quite well. (search code was found on this site, i do not take credit for writing this, i did modify it slightly) But i wanted to modify it so it only searches in column A (which contains text/numbers.. p90834.pdf) and if found....... it gets highlighted......which works. But in column B ..... next to the cell I would like it to write .... Yes. The reason for this is because column B is the result column..... was it found? Here is the code.....

Sub Test()
    Dim What As String
    Dim Found As Range
    Dim firstAddress As String
    Dim Response
    What = InputBox("Search for :")
    If What = "" Then Exit Sub
        Set Found = Cells.Find(What)
        If Not Found Is Nothing Then
            firstAddress = Found.Address
            Do
                Found.Activate
                Response = MsgBox("Highlight?", vbYesNo + vbQuestion)
                If Response = vbNo Then Exit Sub
                    If Response = vbYes Then
                        ActiveCell.Interior.Color = vbYellow
                        
                    End If
                Set Found = Cells.FindNext(After:=ActiveCell)
                If Found.Address = firstAddress Then Exit Do
            Loop
        End If
    MsgBox "Search Ended!"
End Sub

Private Sub CommandButton1_Click()
Call Test
End Sub

thanks in advance

golf401

 

[SIXTH SENSE]

hi!
try this!

Sub Test()
Dim What As String
Dim Found As Range
Dim firstAddress As String
Dim Response
What = InputBox("Search for :")
If What = "" Then Exit Sub
Set Found = Cells.Find(What)
If Not Found Is Nothing Then
firstAddress = Found.Address
Do
Found.Activate
found.offset(0,1).value="yes"
Response = MsgBox("Highlight?", vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
If Response = vbYes Then
ActiveCell.Interior.Color = vbYellow


End If
Set Found = Cells.FindNext(After:=ActiveCell)
If Found.Address = firstAddress Then Exit Do
Loop
End If
MsgBox "Search Ended!"
End Sub

Private Sub CommandButton1_Click()
Call Test
End Sub

 

[golf401]

cool.......that worked! Now all i need to figure out is....... how to only search column a only!

 

[SIXTH SENSE]

hi!
ok. try this.


Sub Test()
Dim What As String
Dim Found As Range
Dim firstAddress As String
Dim Response
Columns("A:A").Select
What = InputBox("Search for :")
If What = "" Then Exit Sub
Set Found = Selection.Find(What)
If Not Found Is Nothing Then
firstAddress = Found.Address
Do
Found.Activate
found.offset(0,1).value="yes"
Response = MsgBox("Highlight?", vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
If Response = vbYes Then
ActiveCell.Interior.Color = vbYellow


End If
Set Found = Selection.FindNext(After:=ActiveCell)
If Found.Address = firstAddress Then Exit Do
Loop
End If
MsgBox "Search Ended!"
End Sub

Private Sub CommandButton1_Click()
Call Test
End Sub

 

[golf401]

awesome it works! Thanks guys!