Thread
:
Search for value move to next column code not working
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Search for value move to next column code not working
While you are at it, also look for CUT as in
Cells(I, 1).cut = Cells(I, 2)
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Gwen" wrote in message
...
Please assist.
I would like the code to search column a for any instance of total remove
it
and place in the next column b
Dim lastrow As Long
Dim strTotal As String
Dim Rng As Range
Application.ScreenUpdating = False
strTotal = "total"
With ActiveSheet
lastrow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
End With
Set Rng = Range("a:a").Find(What:=strTotal, _
After:=Range("a" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
For I = lastrow To 2 Step -1
If Cells(I, 1).Value = Rng Then
Cells(I, 2).Value = Cells(I, 1).Value
End If
Next I
Application.ScreenUpdating = True
Thanks
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett