MS Excel

OK,
bude se hledat hodnota zadana v A1 (nasobena stem).
Ale kde se ma hledat, muze tech hodnot byt vice? CO ma byt vystupem???
Zkuste prilozit vzorovy soubor a naznacit, ceho byste rad dosahl...citovat

Tak ja opet nevim, co vlasnte chcete, protoze pokud uz chcete pouzivat goalseek, tak mu musite rict, jakym zpusobem ma iterace pouzit (dat mu vzorec)
V priloze najdete mozne reseni.

Pokud bych mel pouzit vas priklad:
Range("c3").GoalSeek Goal:=10000, ChangingCell:=Sheets("list1").Range("C1")


Range("C3") musi obsahovat vzorec, ktery bude navazan na bunku Range("C3") - ta musi byt prazdna, postupne se do ni doplnuji jednotlive iterace, dokud neni dosazeno hodnoty Goal (10 000), ktera muze byt samozrejme definovana ruzne (na zaklade podminek atd).

Zkuste se podivat do prilohy a kdyztak se ozvete...

Btw. priloha musi byt zazipovana!citovat

S tvého zadání jsem nepochopil co chceš, resp. jaké má býd řešení v tabulce. Funkce Range("c3").GoalSeek Goal:=10000, ChangingCell:=Sheets("list1").Range("C1") neodpovídá tomu, co je v tabulce vlož tedy modul a případně si uprav tak aby vyhovovalSub HledejReseni()
Dim Pom
With ActiveSheet
Select Case .Range("A1")
Case 1
Pom = 10000
Case 2
Pom = 20000
Case 3
Pom = 30000
Case Else
Pom = .Range("A1") * 10000
End Select
.Range("d3").GoalSeek Goal:=Pom, ChangingCell:=.Range("d1")
End With
End Subcitovat

Romane, Poki

díky moc, já tam vložil sloupec, proto makro neodpovídalo sloupcům, každopádně tvůj návod s podmínkami Case fachá naprosto přesně :-) Předpokládám, že podmínek "Case" tam mohu vložit "neomezeně krát"

Pánové, oběma velké díkycitovat