- Katılım
- 21 Eylül 2024
- Mesajlar
- 3
- Excel Vers. ve Dili
- Microsoft 365
Sub deneme()
'
' deneme Makro
'
'
Range("L3").Select
SolverReset
SolverOk SetCell:="$R$10", MaxMinVal:=3, ValueOf:=CStr(Range("L3").Value), ByChange:="$T$7:$T$9", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
'
' deneme Makro
'
'
Range("L3").Select
SolverReset
SolverOk SetCell:="$R$10", MaxMinVal:=3, ValueOf:=CStr(Range("L3").Value), ByChange:="$T$7:$T$9", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub