MS Excel

Zdravím všechny,
nevedel by nekdo jak udelat to aby se vzorec v makru nekopíroval natvrdo do C5:C11 ale aby místo C11 bylo něco co by hledalo ve sloupci B poslední hodnotu a tento řádek dosadilo? Děkuji moc za jakekoli rady. Viz příloha

Sub POKUS1()

Range("C5").Select
ActiveCell.FormulaR1C1 = "=SUMIFS(DATA!C[-1],DATA!C[-2],VYPOČET!RC[-1])"
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C11")
Range("C5:C11").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2

Merlin99(19.10.2017 11:47)#038075

marjankaj - soubor mam v rar. vlozim ho do prilohy ale pri odeslani se nenahraje...

Příloha: rar

38075_sesit1.rar (85kB, staženo 23x)

citovat

Merlin99(19.10.2017 11:48)#038076

uz se povedlo funguje zas

Merlin99 napsal/a:

marjankaj - soubor mam v rar. vlozim ho do prilohy ale pri odeslani se nenahraje...Příloha: 38075_sesit1.rar (85kB, staženo 0x)

citovat

Merlin99(19.10.2017 16:51)#038079

elninoslov - tve MAKRA fungujou díky moc. Ale vtipem cele podstaty vypoctu bylo to upravit nejak jestli to vubec jde to moje puvodni (nahrane macro). Kdy by se nekomu podarilo toto upravit mohl bych pak nahravat cokoli a tyto zmeny si tam dodatecne doladit coz by bylo super.
Přesto dekuji moooc

citovat

elninoslov(19.10.2017 19:17)#038081

Nerozumiem teda, čo myslíte pod pojmom "upraviť kód". Ja by som to takto nerobil, ale toto je asi také nejaké podobné (aj s podobnými chybami ako neurčitý list, zbytočné Copy...):
Sub POKUS1()
Dim PoslRadek As Long
PoslRadek = Cells(Rows.Count, 2).End(xlUp).Row
Range("C5").FormulaR1C1 = "=SUMIFS(DATA!C[-1],DATA!C[-2],VYPOČET!RC[-1])"
Range("C5").AutoFill Destination:=Range("C5:C" & PoslRadek)
Range("C5:C" & PoslRadek).Copy
Range("C5:C" & PoslRadek).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Subcitovat

Merlin99(19.10.2017 19:53)#038083

elninoslov - díky moc to je přesně ono jdu si s tim pohrat super super dííííky