< návrat zpět

MS Excel


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

Zaslal/a 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
#038075
Merlin99
marjankaj - soubor mam v rar. vlozim ho do prilohy ale pri odeslani se nenahraje...
Příloha: rar38075_sesit1.rar (85kB, staženo 22x)
citovat
#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
#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
#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 Sub
citovat
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse