MS Excel

Ahoj, dokázal by mi někdo poradit jak nejednodušeji vyřešit následující problém?

Mám tabulku např. s 10 položkama A1:J5 u kterých je napsaný název a číslo (celkový součet). Chtěl bych udělat takovou funkci, že když pod nějakou položku napíšu například jedničku (řádek 6), tak mi to do buňky H9 a dolů vypíše podrobně všechny věci, ze kterých se udělal celkový součet v té položce. (Ty věcí jsou v prvním listu =list1!F3586:F4099 pro první položku a pro další jdou vždycky stejně doprava - G3586:G4099, H3586:H4099, ....)

Dokázal by si s tím někdo poradit?

Díky.

Zaslat odpověď >

Strana: « předchozí 1 2

Lados(28.5.2014 0:36)#019714

dream2003 napsal/a:

co takto ??? pracuje to tedy s active cell ale snad pomůže nereaguje na tu podmiňovanou 1 ale to se dá doladit :-) je to upravený kód od "ALa" možná by stálo za to pročíst

http://wall.cz/index.php?m=topic&id=19012#post-19055

Sub Pom13()
Dim colToCopy As Integer, rngToCopy As Range, najdi As String

najdi = Cells(2, ActiveCell.Column)

With Sheets("slova")
colToCopy = WorksheetFunction.Match(najdi, .[a3584:p3584], 0)
Set rngToCopy = .Cells(3585, colToCopy)
Set rngToCopy = rngToCopy.Resize(WorksheetFunction.CountA(.Columns(colToCopy)), 1)
End With
rngToCopy.Copy (Sheets("tabulka").Cells(7, ActiveCell.Column))

Set rngToCopy = Nothing
End Sub

Ahoj, díky za odpověď. Problém je v tom, že neumím moc s makrem a je jednodušší pro mě pracovat se vzorci či maticemi, tak abychom to mohl jednoduše kopírovat z buňky a změny se projevily hned. Zkusím se na to podívat.

AL napsal/a:

@Lados
Ty si fakt komik :). Vzor uložíš niekam, kde je potrebné pre jeho stiahnutie posielať nejaké smsky. To je žart? Buď sa zaregistruj a vlož prílohu priamo na wall alebo použi nejaký neplatenú službu, uložto, dropbox, sweb čo ja viem čo ešte existuje...

edisk je zdarma. Stačí kliknout na "stáhnout pomalu"
Já bych to uploadnul přímo sem rád, ale nepřišel jsem na způsob jak :(citovat

Lados(28.5.2014 0:43)#019715

Nemůžu ten soubor tady hodit, protože to má přes 7MBcitovat

AL(28.5.2014 1:23)#019716

Nemůžu ten soubor tady hodit, protože to má přes 7MBSúbor musíš zazipovať.
Ale OK, som si to teda stiahol. Síce si toho napísal spústu, ale podstatná informácia nezaznela. Otázka znie:
Jednička na liste tabulka bude vždy zapísaná iba v jednom stĺpci, t.j. iba u jednej položky? Pokiaľ áno, tak do bunky L6 si vlož vzorec:=IF(INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))) Uprav si rozsahy a skopíruj dolu.citovat

Lados(28.5.2014 9:59)#019720

AL napsal/a:

Nemůžu ten soubor tady hodit, protože to má přes 7MBSúbor musíš zazipovať.
Ale OK, som si to teda stiahol. Síce si toho napísal spústu, ale podstatná informácia nezaznela. Otázka znie:
Jednička na liste tabulka bude vždy zapísaná iba v jednom stĺpci, t.j. iba u jednej položky? Pokiaľ áno, tak do bunky L6 si vlož vzorec:=IF(INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ROWS($L$6:L6);MATCH(1;$A$6:$J$6;0))) Uprav si rozsahy a skopíruj dolu.

Ano, máš pravdu - jednička bude vždy jen u jedné položky. Přesně takový vzorec je super, protože se mi s tím bude pracovat lépe než s makrem. Bohužel mi to ale píšu chybu "neplatný název" :(citovat

AL(28.5.2014 10:06)#019721

Bohužel mi to ale píšu chybu "neplatný název" :(
To je samozrejme spôsobené tým, že máš českú lokalizáciu, užívatelia vo svete väčšinou asi nebudú pracovať s českým excelom, čo myslíš? Anglické názvy funkcií musíš v takom prípade pochopiteľne nahradiť českými.
=KDYŽ(INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0)))citovat

Lados(28.5.2014 10:43)#019722

AL napsal/a:

Bohužel mi to ale píšu chybu "neplatný název" :(
To je samozrejme spôsobené tým, že máš českú lokalizáciu, užívatelia vo svete väčšinou asi nebudú pracovať s českým excelom, čo myslíš? Anglické názvy funkcií musíš v takom prípade pochopiteľne nahradiť českými.
=KDYŽ(INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0)))

Funguje to parádně :) děkuji

Jak jsem říkal - jsem začátečník, takže se na mě musí polopatě. Opravdu skvělá práce. Uštřil si mi hodně starostí.

edit: dalo by se nějak docílit toho, aby když by v tom řádku nebyla 1, tak aby to nepsalo "Není k dispozici" ale byla tam prostě prázdná buňka? Díkycitovat

AL(28.5.2014 14:29)#019725

dalo by se nějak docílit toho, aby když by v tom řádku nebyla 1, tak aby to nepsalo "Není k dispozici" ale byla tam prostě prázdná buňka?
Dalo, iste, samozrejme. Ale to je už skutočne základ a bolo by pre teba samého rozhodne lepšie sa o to pokúsiť sám, než spoliehať na to, že to niekto bude riešiť za teba. To ťa totiž premýšľať nad vzorcami nenaučí. Je to vec pár sekúnd, daný vzorec upraviť a pridať doňho ďalšiu podmienku. Je mi protivná pohodlnosť niekoho, kto radšej bude čakať na odpoveď niekoľko hodín, než by sám trochu zauvažoval a dal to za pár minút...
=KDYŽ(COUNTIF($A$6:$J$6; 1)=0; ""; KDYŽ(INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))=""; ""; INDEX(slova!$F$3586:$O$3732;ŘÁDKY($L$6:L6);POZVYHLEDAT(1;$A$6:$J$6;0))))citovat

marjankaj(28.5.2014 16:21)#019730

Alebo
=IFERROR(ALov vzorec;"")
Teda doplň si sám
=IFERROR(KDYŽ(......;"")citovat

AL(28.5.2014 16:42)#019732

@marjankaj
IFERROR som zámerne neuvádzal z 2 dôvodov:
1. neviem, či má Lados verziu excelu, ktorá IFERROR podporuje, a bol by som naozaj rád, keby bolo toto nekonečné vlákno, venujúce sa triviálnemu problému, už ukončené
2. kloním sa k názoru Luba, že IFERROR by sa malo používať v prípadoch, kedy nie je lepšia voľba, nakoľko schová i neplánované chybycitovat

Strana: « předchozí 1 2

Téma: Doplňující informace k tabulce

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka

Automatické generování souborů