Nesťahujem, ale ak je to to isté ako
http://www.jaknaoffice.cz/2-forum/?id=5894, tak platí to isté - príloha s chybou.citovat
http://www.jaknaoffice.cz/2-forum/?id=5894, tak platí to isté - príloha s chybou.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: pomoc s opravou zosita
MS Excel
Téma: pomoc s opravou zosita 
Zaslal/a loksik.lubos 27.8.2019 18:10
Dobry den, potreboval by pomoct s opravou mojho excel suboru zrejme mi ho robil pan elninoslov. Moj problem je ze ked ulozim excel pod inym nazvom tak sa mi velakrat harok sumar da do odkazov a zmeni cele riadkovanie ako je znazornene v prilohe pdf. Spravne by malo do harka sumar zratat vsetky harky s oznacenim 0az 99. V harku 0-99 sa jedna o stlpce E13:E53, E65:E105, E117:E142 tie sa zrataju do sumar do stlpca E13:E120 a harok 0-99 I13:I53, I65:I105, I117:I142 tie sa zrataju do sumar do stlpca H13:H120
Příloha: 
44064_oprava.rar (438kB, staženo 23x)
44064_oprava.rar (438kB, staženo 23x)(27.8.2019 18:55)#044066
zdravim ani je to to iste. Neviem v com je chyba ale mne subory otvara bez chyb. pripadne posielam uvedeny kod
Sub Sumar()
Dim D(), Pole(1 To 103, 1 To 4), RiadokD As Long, Riadok As Long
'Načítanie všetkých údajov z listu do poľa
ReDim D(1 To 120, 1 To 20)
D = ActiveSheet.Range("C20:V150").Value2
'Kopírovanie potrebných hodnôt do výsledkového poľa, s posunom cez medzery v zdroji
While Riadok < 103
Riadok = Riadok + 1
Select Case Riadok
Case 37: RiadokD = RiadokD + 10
Case 78: RiadokD = RiadokD + 9
Case Else: RiadokD = RiadokD + 1
End Select
Pole(Riadok, 1) = D(RiadokD, 1): Pole(Riadok, 2) = D(RiadokD, 5): Pole(Riadok, 3) = D(RiadokD, 10): Pole(Riadok, 4) = D(RiadokD, 20)
Wend
'Zápis nových údajov do listu Inventár a filtrovanie
With wsInventar
.Range("A9:D108").Value2 = Pole
.Range("A8:D108").AutoFilter Field:=1, Criteria1:="<>"
End With
If Range("I1").Value = "" Then
Range("I1").Value = Format(Date, "mmmm")
End If
End Subcitovat
Sub Sumar()
Dim D(), Pole(1 To 103, 1 To 4), RiadokD As Long, Riadok As Long
'Načítanie všetkých údajov z listu do poľa
ReDim D(1 To 120, 1 To 20)
D = ActiveSheet.Range("C20:V150").Value2
'Kopírovanie potrebných hodnôt do výsledkového poľa, s posunom cez medzery v zdroji
While Riadok < 103
Riadok = Riadok + 1
Select Case Riadok
Case 37: RiadokD = RiadokD + 10
Case 78: RiadokD = RiadokD + 9
Case Else: RiadokD = RiadokD + 1
End Select
Pole(Riadok, 1) = D(RiadokD, 1): Pole(Riadok, 2) = D(RiadokD, 5): Pole(Riadok, 3) = D(RiadokD, 10): Pole(Riadok, 4) = D(RiadokD, 20)
Wend
'Zápis nových údajov do listu Inventár a filtrovanie
With wsInventar
.Range("A9:D108").Value2 = Pole
.Range("A8:D108").AutoFilter Field:=1, Criteria1:="<>"
End With
If Range("I1").Value = "" Then
Range("I1").Value = Format(Date, "mmmm")
End If
End Subcitovat
(27.8.2019 19:26)#044067
v sumare kde sa zratavaju vsetky bunky tak mam takyto vzorec =SUM('0:9'!E13) vtedy mi vsetko ide ako ma ale ked mi ho zmeni na tento =SUM('0:[3]3'!E13) tak to nejde a neda sa ani prepisat na spravny vzoreccitovat
Lebo mu chýba list 0. Písal som Vám to aj na druhom fóre. Budeme ale pokračovať na tomto, je to tu pohodlnejšie.citovat
Budem vam vdacny ak mi to pomozete opravit nepotrebujem to extra surne tak ked budete mat cas tak sa mi na to pozrite. List 0 davam len vtedy ak mi vychadza koniec mesiaca a zaciatok mesiaca. Hlavny problem mam aby sa mi neposuvali tie riadky ako bolo znazornene v tom pdfcitovat
a este som zistil ze mi v sumare stlpec H zle zratava harky 0-99citovat
A čo určuje, kedy tam bude ten List 0 a kedy nie?
Ako to súvisí s tými náhodnými číslami vo vedľajšom vlákne?
Pridanie nového listu ... no to už vôbec nechápem. Vlastne ako to má celé fungovať je dosť divné. Našiel som si tu rozpracovaný súbor, čo som sa Vám to už snažil poriešiť, a už viem prečo som toho zanechal. Raz sú dáta s medzerami (riadkami), potom bez, to sa dá dopočítať. No vôbec sa neráta s tým, čo ak sa zmení názov tovaru? Alebo Umiestnenie v tabuľke ?
Množstvo zádrhelov a podivností. Čo s tými hypertextovými odkazmi v liste "Menu", pri akej príležitosti a kto ich má vytvárať ? Hypertextový odkaz je napr aj na cene "2,- €" (J13 a J14) v liste "Tlač".
Na každom liste zostáva tlačítko "Inventár", ktoré prepíše dáta na liste "Inventár" podľa toho na ktorom liste bolo stlačené ? To sú teda tie listy 0-99 dni? 99 dní ale mesiac nemá? Čo iné okrem dní to môže byť, ak je v G1 mesiac? Alebo sa inventár či sumár nerobí každý mesiac ? Ako potom vytvárať mesačné odkazy v "Menu", keď sa nerobí súhrn každý mesiac?
...
Obávam sa naozaj veľkej straty času. Dovysvetlite prosím používanie súboru.citovat
Ako to súvisí s tými náhodnými číslami vo vedľajšom vlákne?
Pridanie nového listu ... no to už vôbec nechápem. Vlastne ako to má celé fungovať je dosť divné. Našiel som si tu rozpracovaný súbor, čo som sa Vám to už snažil poriešiť, a už viem prečo som toho zanechal. Raz sú dáta s medzerami (riadkami), potom bez, to sa dá dopočítať. No vôbec sa neráta s tým, čo ak sa zmení názov tovaru? Alebo Umiestnenie v tabuľke ?
Množstvo zádrhelov a podivností. Čo s tými hypertextovými odkazmi v liste "Menu", pri akej príležitosti a kto ich má vytvárať ? Hypertextový odkaz je napr aj na cene "2,- €" (J13 a J14) v liste "Tlač".
Na každom liste zostáva tlačítko "Inventár", ktoré prepíše dáta na liste "Inventár" podľa toho na ktorom liste bolo stlačené ? To sú teda tie listy 0-99 dni? 99 dní ale mesiac nemá? Čo iné okrem dní to môže byť, ak je v G1 mesiac? Alebo sa inventár či sumár nerobí každý mesiac ? Ako potom vytvárať mesačné odkazy v "Menu", keď sa nerobí súhrn každý mesiac?
...
Obávam sa naozaj veľkej straty času. Dovysvetlite prosím používanie súboru.citovat
Ten list 0 som znacil ked som mal vyuctovanie medzi 2 mesiacmi ale tak budem ich uz oznacovat len ako 1-99.
Tie hyper. odkazy v menu niesu vobec viazane na ziadne makro to som mal len na rychlejsie najdenie inych vyuctovany v pc aby nemusil dlho hladat v priecinkoch.
Inventar sluzi pre ekonomku ktora potrebuje kolko ks tovaru zostalo na sklade a v akej sume pre zakladanie do uctovnictva a vacsinou to tlacim na konci mesiaca pripadne.
A co sa tyka o tych nahodnych cislach tak tu by vas chcel poziadat aby s harka Sumar zobralo udaje s H34:53 vyratalo poctom dni a udaje vlozilo do harka alkohol. Presne ten isty sposob ako ste robili aj vy.
Ak by ste mi vedeli opravit ten sumar a doplnit tie nahodne cisla.Dakujem
Tie hyper. odkazy v menu niesu vobec viazane na ziadne makro to som mal len na rychlejsie najdenie inych vyuctovany v pc aby nemusil dlho hladat v priecinkoch.
Inventar sluzi pre ekonomku ktora potrebuje kolko ks tovaru zostalo na sklade a v akej sume pre zakladanie do uctovnictva a vacsinou to tlacim na konci mesiaca pripadne.
A co sa tyka o tych nahodnych cislach tak tu by vas chcel poziadat aby s harka Sumar zobralo udaje s H34:53 vyratalo poctom dni a udaje vlozilo do harka alkohol. Presne ten isty sposob ako ste robili aj vy.
Ak by ste mi vedeli opravit ten sumar a doplnit tie nahodne cisla.Dakujem
Příloha: 44435_vyuctovanie-oprava.rar (213kB, staženo 20x)
citovat44435_vyuctovanie-oprava.rar (213kB, staženo 20x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Vynásobit hodnoty kurzem - Power Query
Alfan • 26.4. 7:56
Relativní cesta - zdroje Power Query
Alfan • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
elninoslov • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
Relativní cesta - zdroje Power Query
Alfan • 25.4. 15:08
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 14:21
RSS nejnovější články