< návrat zpět

MS Excel

Téma: Kopírovat vzorec podle počtu řádků rss

Zaslal/a Merlin99 18.10.2017 16:43

Merlin99Zdraví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
Merlin99
marjankaj - soubor mam v rar. vlozim ho do prilohy ale pri odeslani se nenahraje...
Příloha: rar38075_sesit1.rar (85kB, staženo 23x)
citovat
Merlin99(19.10.2017 11:48)#038076
Merlin99
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
Merlin99
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 1citovat
elninoslov(19.10.2017 19:17)#038081
elninoslov
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
Merlin99
elninoslov - díky moc to je přesně ono jdu si s tim pohrat super super dííííky 9 5citovat

Strana:  « předchozí  1 2

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