Re: searching on more than one field in VB

Set rngToSearch = wksToSearch.Range("F1").Resize(1,7).EntireColumn

--
Regards,
Tom Ogilvy


"jjfjr" <jjfjr@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:D221F5BC-6BB3-4793-84F2-D50468619787@xxxxxxxxxxxxxxxx
> Hi;
>
> I created an application that allows a user to enter info in a form on one
> *** into one of seven textboxes and search for information in another
***
> with the results appearing in a third ***. My code for searching (just
> showing two textboxs) is as follows:
>
> If TextBox1.Value <> "" Then
> strToFind = TextBox1.Value
> Set wksToSearch = Sheet2
> Set rngToSearch = wksToSearch.Range("F1").EntireColumn
> Set wksToPaste = Sheet3
> Set rngPaste = wksToPaste.Range("A1")
> Set rngFound = rngToSearch.Find(strToFind, , , xlPart)
>
> If Not rngFound Is Nothing Then
> strFirstAddress = rngFound.Address
> Do
> rngFound.EntireRow.Copy rngPaste
> Set rngFound = rngToSearch.FindNext(rngFound)
> Set rngPaste = rngPaste.Offset(1, 0)
>
> Loop Until rngFound.Address = strFirstAddress
>
> End If
> End If
>
> If TextBox2.Value <> "" Then
> strToFind = TextBox2.Value
> Set wksToSearch = Sheet2
> Set rngToSearch = wksToSearch.Range("G1").EntireColumn
> Set wksToPaste = Sheet3
> Set rngPaste = wksToPaste.Range("A1")
> Set rngFound = rngToSearch.Find(strToFind, , , xlPart)
>
> If Not rngFound Is Nothing Then
> strFirstAddress = rngFound.Address
> Do
> rngFound.EntireRow.Copy rngPaste
> Set rngFound = rngToSearch.FindNext(rngFound)
> Set rngPaste = rngPaste.Offset(1, 0)
>
> Loop Until rngFound.Address = strFirstAddress
>
> End If
> End If
>
> Each piece searches a specific column. I'd like to know what code is
> neccessary to search in more than one column within the code. Can all
seven
> columns be searched at the same time?
>
> Any help is greatly appreciated.
> --
> JJFJR


.