Find and Select

[Judd Jones]

I have the following list of data in column A:
1
2
1
3
1
4
1
5
1
6

The following code will select the values that I want (the value 1):
Sub SELECTVALUES()
Dim c As Range
Dim d As Range
Dim FirstAddress As String
Dim myFindString As String
myFindString = "1"
With ActiveSheet.Range("A:A")
Set c = .Find(myFindString, LookIn:=xlValues, lookAt:=xlWhole)
If Not c Is Nothing Then
Set d = c
FirstAddress = c.Address
End If
Set c = .FindNext(c)
If Not c Is Nothing And c.Address <> FirstAddress Then
Do
Set d = Union(d, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

d.Select

End Sub

I need help adjusting the code to select the data that is in the same row as
the found value in columns B,C and D instead of column A.

Any help would be appreciated. Thanks.

 

[Sharad]

Not sure what you are up to but try below code:

Sub whatEver()
Dim c, myRange As Range, firstAddr As String
For Each c In ActiveSheet.UsedRange
If c.Value = 1 Then
Set myRange = c
firstAddr = c.Address
Exit For
End If
Next c

For Each c In ActiveSheet.UsedRange
If c.Value = 1 And Not c.Address = firstAddr Then
Set myRange = Union(myRange, c)
End If
Next c
myRange.Select
End Sub

Sharad

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Microsoft Forum]

Hi Judd,

Will change the code

"A:A"

to

ActiveCell.EntireColumn

works? Of course, you have to place the cell pointer to the column you want
to do the job.

Frederick Chow
Hong Kong.