< návrat zpět

MS Excel

Téma: vložit funkci na poslední řádek pomocí makra rss

Zaslal/a Hannuman 23.9.2015 11:02

DObrý den, mam nový problém. mám tabulku kde udělám nějaké upravy ale potřebuji vložit funkci na poslední řádek v posledním sloupci pod hodnoty kde bude výpočet těch hodnot.Už jsem to zkoušel přes Přejít na.. jinak - poslední bunka. jenže když to pak chci spustit přes makro a oteřít stejny dokument jen třeba s větší počtem řádku tak se mi to provede na pozici kde jsem to pomocí makra vytvořil:) díky moc za rady a triky :D

Zaslat odpověď >
Strana:  1 2   další »
elninoslov(23.9.2015 11:32)#027038
elninoslov
Som iba na tablete, tak čisto z pamäti:
Sub MakroPosledny()
Dim r as Long, s as Long
Const StlpecR = 5
Const RiadokS = 1
With Worksheets("Tabulka")
r=.Cells(.Rows.Count, StlpecR).End(xlUp).Row+1
s=.Cells(RiadokS, .Columns.Count).End(xlToLeft).Column
.Cells(r, s).Formula="=Váš vzorec"
End With
End Sub
Vyskúšajte...
Ale najlepšie dajte prílohu, a poriešime.citovat
marjankaj(23.9.2015 11:40)#027039
avatar
No stačí aj toto
Selection.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Formula = "=a1+a2"

OFFSET môže aj vynechať. Zo zadania naozaj netuším, kde chce mať ten vzorec.citovat
Vovka(23.9.2015 11:47)#027040
avatar
Princip, jak to navrhuje elninoslov, plně akceptuji. Jen bych jinak hledal místo pro vzorec. Když bude tabulka začínat v buňce LHRoh, pak lze polohu pro umístění vzorce určit

Radek = LHRoh.CurrentRegion.Rows.Count + 1
Sloupec = LHRoh.CurrentRegion.Columns.Count

a buňku volat

Cells(Radek, Sloupec)citovat
Hannuman(23.9.2015 11:55)#027041
avatar
nejde mi sem vložit příloha píše mi to:Uložení se nezdařilo. Pravděpodobně jste nezadal(a) text nebo znaky z kontrolního obrázku. přitom tam žadnej obrázek nemám :Dcitovat
marjankaj(23.9.2015 12:02)#027042
avatar
Alebo
With ActiveSheet.UsedRange
Cells(.Rows.Count + 1, .Columns.Count).Formula = "=vzoreček"
End Withcitovat
marjankaj(23.9.2015 12:04)#027043
avatar
A skomprimoval si ten súbor?citovat
Hannuman(23.9.2015 12:08)#027044
avatar
pod x mám funkci count if a pod celková hmotnost mám sum if větší než 1. ale potřebuju to vždy mít pod tímto slopcem na posledním řádku ikdyž to makro spustím v souboru kde bude třeba 160 radku ale třeba i 300. díky
Příloha: zip27044_odchod_zdrojova_data_17-09-2015.zip (22kB, staženo 21x)
citovat
icon eLCHa(23.9.2015 12:18)#027045
eLCHa
Ten soubor mi nelze otevřít. Ale pokud převedete oblast na tabulku, dáte zobrazit řádek souhrnů, tak do tohoto řádku můžete vložit vzorec. Ten pak bude vždy na konci tabulky. Nepotřebujete tedy kód.citovat
Hannuman(23.9.2015 12:24)#027046
avatar
uz to jde ?
Příloha: zip27046_odchod_zdrojova_data_17-09-2015.zip (22kB, staženo 22x)
citovat
Hannuman(23.9.2015 12:29)#027048
avatar
prevest oblast na tabulku ?citovat

Strana:  1 2   další »

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