Thread: copy problem
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JE McGimpsey JE McGimpsey is offline
external usenet poster
 
Posts: 4,624
Default copy problem

One way:

Public Sub FindThreeDashesAndReplace()
Dim rFound As Range
With Columns("I")
Set rFound = Columns("I").Find( _
What:="---", _
LookIn:=xlValues, _
LookAt:=xlWhole, _
MatchCase:=False)
Do Until rFound Is Nothing
With rFound
.Value = .Offset(0, 1).Value
.Offset(0, 1).Value = 1
End With
Set rFound = .FindNext
Loop
End With
End Sub





In article news.atl.earthlink.net,
"Mark K" wrote:

I am trying to search all of column I for the values "---" (3 dashes)
when i find a match i want to replace whats in Ix with whats in Kx (x being
the row number)
then i want to put a 1 in Kx

I would like to loop through all of I to find the dashes.

Any help would greatly be appreciated
Mark