Loop

[Guest]

How do I stop this after the last life o I am new and not very good at thi

Sub life_o(
Range("A1:A8000").Selec
D

Set FoundCell = Cells.Find(What:="life o", After:=ActiveCell,
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:=False
If FoundCell Is Nothing The
Els
FoundCell.Offset(0, 1).Selec
End I
FoundCell.Offset(0, 1).Selec
ActiveCell.Value = "1
ActiveCell.Offset(0, -1).Selec
Loop Until FoundCell Is Nothin
End Sub

 

[Otto Moehrbach]

Esau
As written, your macro is illogical and will produce an error if
FoundCell is nothing. Post back and detail exactly what you want this macro
to do. HTH Otto

 

[Guest]

In Column A from A1:A8000 Life o appears about 140 times I need the value 1 in column B next to life o.

 

[Don Guillett]

you could do a for/each
for each c in a1:a8000
if c="whatever"then c.offset(,1)=1
next
OR it would probably be quicker to
use data>filter>autofilter>filter on your whatever>then use
specialcells(xlvisible), etc

--
Don Guillett
SalesAid Software
(e-mail address removed)

In Column A from A1:A8000 Life o appears about 140 times I need the value

1 in column B next to life o.

 

[Bob Phillips]

Sub life_o()
Dim FoundCell As Range
Dim FirstAddress As String
With Range("A1:A8000")
Set FoundCell = .Find(What:="life o", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False)
FirstAddress = FoundCell.Address
Do
If Not FoundCell Is Nothing Then
FoundCell.Offset(0, 2).Value = "1"
End If
Set FoundCell = .FindNext(FoundCell)
Loop While Not FoundCell Is Nothing And FoundCell.Address <>
FirstAddress
End With
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Guest]

Works great Bob I wish I could write that good maybe someda

Thanks Alo
Esau

 

[Bob Phillips]

Got most of it from Help<vbg>

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)