Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with modifying this code
Hi
I use these macros to highlight and find the next occurrence of a name in a column. Could anyone modify the code so when the code finds the last occurrence of a name it does not start at the top of the column again. and Sub findup not to go to the bottom of the column again. example Hightlight Cell Sub Finddown() Bill Bill Bill Stop the macro Stop the macro Ben Ben Ben Sub findup() Sub Finddown() Dim FoundCell As Range Set FoundCell = ActiveCell.EntireColumn.Find(What:=ActiveCell.Valu e, _ After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not FoundCell Is Nothing Then FoundCell.Select End If End Sub ------------------------------------------ Sub findup() On Error Resume Next With ActiveCell ..EntireColumn.Find(What:=.Text, After:=.Cells(1, 1), LookAt:=xlWhole, _ LookIn:=xlValues, SearchDirection:=xlPrevious, MatchCase:=False).Select End With End Sub Thanks in advance Dave |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with modifying this code
Sub Finddown()
Dim FoundCell As Range Set FoundCell = ActiveCell.EntireColumn.Find(What:=ActiveCell.Valu e, _ After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not FoundCell Is Nothing if foundcell.row activecell.row Then FoundCell.Select End If End Sub -- HTH... Jim Thomlinson "DaveM" wrote: Hi I use these macros to highlight and find the next occurrence of a name in a column. Could anyone modify the code so when the code finds the last occurrence of a name it does not start at the top of the column again. and Sub findup not to go to the bottom of the column again. example Hightlight Cell Sub Finddown() Bill Bill Bill Stop the macro Stop the macro Ben Ben Ben Sub findup() Sub Finddown() Dim FoundCell As Range Set FoundCell = ActiveCell.EntireColumn.Find(What:=ActiveCell.Valu e, _ After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If Not FoundCell Is Nothing Then FoundCell.Select End If End Sub ------------------------------------------ Sub findup() On Error Resume Next With ActiveCell ..EntireColumn.Find(What:=.Text, After:=.Cells(1, 1), LookAt:=xlWhole, _ LookIn:=xlValues, SearchDirection:=xlPrevious, MatchCase:=False).Select End With End Sub Thanks in advance Dave |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help needed with Modifying 2 Macros | Excel Programming | |||
Need Help Modifying Code Please | Excel Programming | |||
Looking for Help in modifying a code | Excel Programming | |||
Help is needed for modifying this code. | Excel Programming |