MS Excel

Téma: Makro výběr buněk

Zaslal/a Hannuman 4.11.2015 8:37

Dobrý den mám v makru vzorec ktery je na posledním řádku(Selection.SpecialCells(xlCellTypeLastCell).Offset(1, -1).Formula = "=SUMIF(DATA2,"">0"")")
a potřebuju aby jí vypočítal z daty které jsou nad ním.ted tam mám DATA který jsem definoval ale když to spustím s více hodnotami tak se mi spočítá jen ta oblast co jsem definoval. díky za pomoc

Příloha: zip

27821_odchod_vzor.zip (16kB, staženo 23x)

Zaslat odpověď >

Jirka78(4.11.2015 8:57)#027823

Přiznám se, že moc nerozumím co se vám nezdá. Jako DATA2 máte nadefinovaný celý sloupec W a tím pádem vám to dělá sumu ze sloupce W. Jen bych řekl že je ten vzorec nešťastně umístěný, protože vám to dělá cyklický odkaz (sčítá to samo sebe).citovat

Hannuman(4.11.2015 9:11)#027824

jo mam to udělaný aby ten vzorec byl ve sloupci vedle a šlo to z cely sloupec T. ale kdybych chtel ty hodnoty z toho sloupce T které jsou na tím vzorcem aby zůstal ve sloupci T a ne ve sloupci S. jde to nějak a šlo to v makru. kdyžtak vám pošlu jak sem to měl predtimcitovat

Jirka78(4.11.2015 10:08)#027827

No a nešlo by to vyřešit takhle nějak:
Sub Macro()
Range("W2").Select
Selection.End(xlDown).Select
Row = ActiveCell.Row
ActiveCell.Offset(1, 0).Formula = "=SUMIF(w2:w" & Row & ","">0"")"
End Subcitovat

marjankaj(4.11.2015 10:21)#027828

@jirka78
To by bolo jednorazové. Pri druhom spustení by to už nebolo ono.

Sub Makro()
Set bunka = Range("V1048576").End(xlUp)

bunka.Offset(1, 1).Formula = "=SUMIF(W2:W" & bunka.Row & ","">0"")"
bunka.Offset(1, -2).Formula = "=COUNTIF(T2:T" & bunka.Row & ",1)"
End Subcitovat

Jirka78(4.11.2015 10:57)#027829

@marjankaj
To máte samozřejmě pravdu, to jsem přehlédl :-)citovat

Hannuman(4.11.2015 11:17)#027830

Díky moc funguje jak má ;)citovat

marjankaj(4.11.2015 11:37)#027832

No ešte by som to upravil takto. V excel 2003 by to nefungovalo.
Set bunka = Range("V" & Rows.Count).End(xlUp)citovat

Uživatelské menu

Nejste přihlášen(a)

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.