Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Find & Select | Excel Discussion (Misc queries) | |||
find & select | Excel Worksheet Functions | |||
find and Select cells | Excel Discussion (Misc queries) | |||
Find All.... Then Select All | Excel Programming | |||
Find then select to the right | Excel Programming |