MS Excel

Pekny den prajem a poprosil by som o pomoc. Cez udalostnu proceduru Private Sub Worksheet_Change(ByVal Target As Range), vyplnim na liste "Statistika"
riadok A5:G5 nejakymi udajmi. A teraz by som potreboval vsetky riadky v tabulke posunut o jeden riadok dole. Max rozsah tabulky je A5:G100. V pripade ze riadok 100 uz obsahuje data, tie mozu byt prepisane predchadzajucim 99 riadkom. Cize potrebujem posunut oblast A5:G99 o 1 riadok dole bez ohladu na to ci riadok 100 je prazdny alebo vyplneny.

Zaslat odpověď >

Poki(7.3.2011 15:47)#004286

treba takto:
Range("A5:G99").Cut Destination:=Range("A6:G100")citovat

Dunkaninko(7.3.2011 16:26)#004287

Ja som to skusal cez vlozenie riadku a shift xlDown ale nedarilo sa mi to.
Jednoduche riesenie to poriesilo. Super Vdaka.
Vyskytol sa mi vsak jeden problem, ktory som podcenil. V jednom stlpci robim jednoduchy sucet v Exceli C2= SUMA(C5:C100). A potreboval by som, aby v C2 zostavala celkova suma aj ked stary riadok 100 sa odstrani. Islo by to nejak mudro urobit?citovat

Poki(7.3.2011 16:41)#004288

Nevim, jestli jsem to pochopil spravne, ale pokud ma v bunce C2 stale zustat soucet bunek C5:C100, tak staci za radek posunuti pridat tento radek:
Range("C2").Formula = "=Sum(C5:C100)"citovat

Dunkaninko(7.3.2011 17:00)#004289

Nie je to to co potrebujem. Kedze data do tabulky sa zadavaju cez riadok 5 a po naplneni celej tabulky sa riadok 100 stale meni (prepisuje sa), potom takyto vzorec mi spocitava aktualne hodnoty v C5:C100. Potrebujem zachovat sucet aj z historie t.j. aj sucet z udajov, ktore uz v tabulke nie su. Bude to na sposob C2=C2+C5, kde v C5 je stale nova aktualizovana hodnota.
V kazdom pripade dakujem za pomoccitovat

Poki(8.3.2011 9:08)#004292

tak mozna takto:
Sub Posun()
Dim Puvodni As Double
Puvodni = Range("c2")
Range("A5:G99").Cut Destination:=Range("A6:G100")
Range("C2").Formula = "=" & Puvodni & "+C5"
End Subcitovat

Dunkaninko(8.3.2011 10:24)#004295

Dakujem za odpoved. S Formulou som to neodskusal, ale myslim si ze by to nefungovalo, lebo predchadzajuci prikaz s cut, uz v riadku 5 nenecha ziadne udaje a tym aj C5 uz neobsahuje data. Ja som to jednoducho poriesil tak, ze hodnotu ktoru zapisujem do C5 pripocitam k povodnej hodnote v C2 a funguje to.
Ale v suvislosti s prikazom
Range("A5:G99").Cut Destination:=Range("A6:G100")
dochadza k niecomu s cim si neviem rady. Do bunky C5 vkladam desatinne cisla, format bunky C5 nastavim v Exceli na Cislo, 2 desatinne miesta, oddelovač 1000.
Po vykonani uvedeneho prikazu sa format bunky C5 zmeni na Obecny. Nasledny zapis do C5 uz ulozi desatinne cislo s viac ako dvomi desatinnymi miestami. Da sa tomu nejako zabranit?citovat

Poki(8.3.2011 10:33)#004296

No prave, az do c5 vlozite nejake cislo (tak jsem to pochopil, ze tam se zadavaji hodnoty), tak se co bunky C2 tato hodnota pricte - ale asi nechapu, co chcete udelat.
Format cisla: Range("c5").NumberFormat = "#,##0.00"citovat

Dunkaninko(8.3.2011 10:52)#004297

Dakujem, pochopili ste to spravne. Ked som nastavil format cisla v Exceli, tak to nefungovalo spravne - ako som uviedol format sa menil novym zapisom do C5. Po nastaveni formatu cisla pomocou makra, funguje to OK.citovat

Téma: Posun Tabulky

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

VBA - Automatické přidání a pojmenování listů

VBA - Automatické přidání a pojmenování listů

VBA - Automatické přidání a pojmenování listů

VBA - Automatické přidání a pojmenování listů

VBA - Automatické přidání a pojmenování listů

Určení kraje dle databáze PSČ na základě adresy

Určení kraje dle databáze PSČ na základě adresy