Data - What-if Analysis - Goal Seek Function

[hassanali]

Dears,

Good Day.

I am new user in VBA. And, I have run Goal Seek function. I have some rows that I want to run VBA Macro. But, when I select active cells to record macro is working fine. The issued with the macro is only working for first row. Not work for active cells "rows"

Sub Goals_seek()
'
' Goals_seek Macro
' Adjusment trade price
'
' Keyboard Shortcut: Ctrl+Shift+G
'
ActiveCell.GoalSeek Goal:=0, ChangingCell:=ActiveCell.Offset(0, -4).Range( _
"A1")
End Sub




Appreciate to support me.

Thanks

 

[shg]

Welcome to the board.

Why not just use a formula?

 

[shg]

In B2:

=E2/A2

 

[shg]

Row\Col	A​	B​	C​	D​	E​	F​
1​				3.00%​
2​	Share​	Price​	Mkt Value​	Comm​	Exch Amt​	E - C​
3​	123​	$ 25.29​	$ 3,111.10​	$ 93.33​	$ 3,111.10​	$ -​
4​	32​	$ 48.76​	$ 1,560.45​	$ 46.81​	$ 1,560.45​	$ -​
5​
6​	A3: Input	B3: =E3/A3	C3: =A3*B3	D3: =D$1 * C3	E3: Input	F3: =E3-C3

 

[hassanali]

Hi Shg,

I am receiving excel file from market exchange and the only provide me no of share and exchange amount. And, to upload the excel file in system in need to fill the missing data by formula. as shown in pic.

thanks you in advance.