![Stalker](./pictures/avatars/5a84a0f55ed4d.jpg)
První kód mi funguje pokud se vyfiltruje číslo 1, při další hodnotě hodí chybu, zatím nevím proč kua
![6](./plugins/templates/wall_2C/images/smileys/6.gif)
Možná se chytne někdo další a zbavíš se toho cyklu.
![rar](./plugins/extend/postattach/icons/archive.png)
Zaslal/a Merlin99 13.3.2020 23:01
Zdravim,
Chci se zeptat jestli nekdo dokaze upravit toto makro tak aby prepocitalo jen zafiltrovanou oblats nic jineho. Nyni se vypocet znici..
viz priloha:
Sub FILTR()
Dim MaxRadek As Long
Dim OblastA As Range
Application.ScreenUpdating = False
MaxRadek = List1.Cells(Rows.Count, 4).End(xlUp).Row
Set OblastA = Range("E7:E" & MaxRadek)
With OblastA
.FormulaLocal = "=D7+$E$5"
.Value = .Value
End With
Application.ScreenUpdating = True
Set OblastA = Nothing
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.