Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and Select
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and Select
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! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and Select
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. "Judd Jones" wrote in message ... 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
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 |