Sub Riesitel()
Worksheets("List1").Range("Polynomial").GoalSeek _
Goal:=[I2], _
ChangingCell:=Worksheets("List1").Range("X")
End Sub
Polynomial-miesto so vzorcom a preto VÝSLEDOK
I2- hodnota, ktorú chceme dosiahnuť v Polynomiale
Range("X") - meno bunky, kde je číslo na spracovanie.
Doporučujem spustiť záznam makra a spustiť riešiteľa z karty Údaje-Analýza-Riešiteľ
alebo pohľadať vo VBA-editore GoalSeekcitovat