• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

Zaslat odpověď >

---

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 Subcitovat

helena10(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.citovat

Palooo(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)citovat

helena10(10.5.2014 11:56)#019397

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse