Příspěvky uživatele


< návrat zpět

VBA Hledání řešení při změně buňky (10.5.2014 11:56)

Díky moc, s tím už si snad poradím.

VBA Hledání řešení při změně buňky (9.5.2014 13:02)

Díky za odpověď. Makro funguje bez problémů pro buňku D13. Pro E13 a další hládí chybu na třetím řádku. Taky bych to radší řešila vzorci, ale nenašla jsem, jak v excelu automaticky aktivovat dopočet.

VBA Hledání řešení při změně buňky (9.5.2014 11:02)

Dobrý den, prosím o radu s makrem, ježto jsem začátečník a víc sama nestvořím. Připojila jsem ukázku v excelu, aby vše bylo názorné.
V buňkách D13:G13 mám hodnotu např. 2500, s tou potom počítám další operace, výsledek se mi zapíše do buňky G24. Pomocí Hledání řešení sleduji, aby buňka G24 měla hodnotu =0. Napsala jsem dvě makra, kdy při změně hodnoty buňky D13 dojde k dopočítání hodnoty pro G24=0 a tato hodnota se vloží do D20:
1) Spouštění makra při změně hodnoty buňky D13
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$13" Then
Call Makro2
End If
End Sub

2) Hledání řešení G24=0:
Sub Makro2()
Range("G24").GoalSeek Goal:=0, ChangingCell:=Range("D20")
End Sub

Potřebovala bych, aby se makro spouštělo při změně jakékoli z buněk D13:G13 a výsledná hodnota se zapsala do buňky o 8 řádků níže. Tj.
- změna hodnoty D13 vyvolá dopočet pro G24=0 a výsledek zapíše do D20;
- změna hodnoty E13 vyvolá dopočet pro G24=0 a výsledek zapíše do E20;
.......

Děkuji mockrát za jakoukoli radu.
Helena


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje