Thread: macro - how to make working for colums D:X
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ZEB ZEB is offline
external usenet poster
  
Posts: 2
Default macro - how to make working for colums D:X

Hi,

I make macro:

Sub macro1()
Range("D6").Select
ActiveCell.FormulaR1C1 = "0"
Range("D16").Select
ActiveCell.FormulaR1C1 = "0"
While Range("D23") < 0
Range("D23").GoalSeek Goal:=0, ChangingCell:=Range("D6")
Wend

While Range("D23") 0
Range("D23").GoalSeek Goal:=0, ChangingCell:=Range("D16")
Wend

End Sub

How to make it automaticly working for range of cells (D6:X6) ,
(D16:X16) and (D23:X23) ?
Reply With QuoteReply With Quote