Thread: select column cell in same row as loop result?
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
acw[_2_] acw[_2_] is offline
external usenet poster
  
Posts: 100
Default select column cell in same row as loop result?
Joh

one way

Ton

Sub eee(
Range("b1").Selec
While Not IsEmpty(ActiveCell
Select Case ActiveCell.Valu
Case 11529
ActiveCell.Offset(0, -1).Value = 2
ActiveCell.Offset(0, 7).Value = 2

Case 27654
ActiveCell.Offset(0, -1).Value = 2
ActiveCell.Offset(0, 7).Value = 9
End Selec
ActiveCell.Offset(1, 0).Selec
Wen
End Sub
Reply With QuoteReply With Quote