< návrat zpět
MS Excel
Téma: VBA Hledání řešení při změně buňky 
Zaslal/a helena10 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
Příloha: 
19377_dopocet-hodnoty.zip (18kB, staženo 26x)
Palooo(9.5.2014 12:10)#019379 
nebude to lepsie vyriesit s vzorcami ako s makrom?
nejak som tomu neporozumel ale s makrom to bude asi vypadat takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 13 And (Target.Column >= 4 And Target.Column <= 7) Then
Range("G24").GoalSeek Goal:=0, ChangingCell:=Cells(20, Target.Column)
End If
End Subcitovathelena10(9.5.2014 13:02)#019381 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.
citovatPalooo(9.5.2014 14:30)#019385 tak uz som si zistil co robi ten vzorec a nefunguje to preto lebo v
bunke E20 je =D20 (vzorec)
bunke F20 je =E20 (vzorec)
bunke G20 je =F20 (vzorec)
a nieje to ako bunka D20 kde je 2250 (value)
citovathelena10(10.5.2014 11:56)#019397 Díky moc, s tím už si snad poradím.
citovat
RSS nejnovější články