• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: SUMIF cez VBA

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

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 (13kB, staženo 28x)

citovat

neck(21.4.2015 9:50)#024557

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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse