< návrat zpět

MS Excel

Téma: SUMIF cez VBA rss

Zaslal/a neck 20.4.2015 14:53

Ahoj

snazim sa vzorec SUMIF vlozit pomocou makra na poslednu poziciu v harku ale stale neviem najst spravny zapis.
pomocou makra zistujem posledny riadok napr 76 a do bunkz A77 chcem vozit tento vzorec pomocou makra
=SUMIF(B2:B76;"*XXX";C2:C76).
XXX predstavuje hodnotu ktoru hladam

skusal som nieco taketo ale nefunguje to

SUMIF("B2:B" & posl +1)."*xxx".("C2:"C" &posl +1)

Nakolko sa pocet riadkov v harku stale meni vypocet posledneho riadku je prostrednictvom makra

Sheets("BA").Select
For i = 30 To 1 Step -1
If StrComp("popis", Cells(i, "A").Value) = 0 Then

' Zisti posledny riadok
posl = ActiveSheet.Range("a1048576").End(xlUp).Row
Range("A" & i + 1, "L" & posl).Select
Selection.copy
Range("A1").Select
End If
Next i

Viete mi nekto poradit ?

Dakujem

Zaslat odpověď >
elninoslov(20.4.2015 23:25)#024550
elninoslov
Bolo by dobré dať asi prílohu. Netuším ako to chceš ošetriť napr. ak sa zmení počet riadkov + alebo -. Pretože v stĺpci A máš okrem vzorca aj nejaké hodnoty. Ty potrebuješ ten pôvodný vzorec, ktorý platil pred zmenou, zmazať, a na nové miesto nahodiť nový. Ako vieš čo máš zmazať, aby si nezmazal údaje, ale len vzorec ?
Příloha: rar24550_vlozvzorec.rar (13kB, staženo 29x)
citovat
neck(21.4.2015 9:50)#024557
avatar

elninoslov napsal/a:

Bolo by dobré dať asi prílohu. Netuším ako to chceš ošetriť napr. ak sa zmení počet riadkov + alebo -. Pretože v stĺpci A máš okrem vzorca aj nejaké hodnoty. Ty potrebuješ ten pôvodný vzorec, ktorý platil pred zmenou, zmazať, a na nové miesto nahodiť nový. Ako vieš čo máš zmazať, aby si nezmazal údaje, ale len vzorec ?Příloha: 24550_vlozvzorec.rar


Ahoj vystihol si to presne. povodny vzorec potrebujem vymazat a ak sa zmeni pocet riadkov v harku tak makro zabezpeci vypocet posledneho obdsadeneho riadku a nasledne by vlozilo vyssie uvedeny vzorec na poslednu riadok. mne staci zapis vo VBA ostatne si prispoosobym.

dakujemcitovat
neck(21.4.2015 10:33)#024558
avatar
Uz som nato prisiel

takze zapis je takto:

Sumact = Application.SumIf(Range("b2:b" & posl - 1), "*xxx", Range("c2:c" & posl - 1))
MsgBox Sumact
Range("B" & posl + 1).Select

dakujem[/quote]citovat
elninoslov(21.4.2015 10:44)#024560
elninoslov
Toto je niečo úplne iné, ako si popisoval. Ty si chcel vložiť makrom vzorec, teraz nevkladáš nič nikam. Ale ak to tak môžeš mať, prečo nie.
PS: Lepší popis alebo príloha to vždy zjednoduší.citovat

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