Excel - propojeni listu a vzorce

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

jet
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Excel - propojeni listu a vzorce

Příspěvekod jet » 17 bře 2014 15:43

Zdravím, může mi prosím někdo poradit jak by šlo udělat:

mám x listu a v kazdem listu je tabulka s fakturaci. Prvni list je nazvany rekapitulace a do tohoto listu bych automaticky potreboval dostavat data z listu ostatnich a to ve chvili kdy do nich neco napisi.

Pro ukazku je prilozen soubor.
Zapisuji pouze do zlute podbarvenych policek a jakmile do prislusneho policka napisi hodnotu potrebuji aby excel automaticky preposlal hodnoty bunek ktere jsou podbarvené cerveně i v poradi jak je uvedeno.

Pozice bunky cislo a text je vzdy stejna. Pozice bunek kod, polozka, cena jsou takve vzdy v prislusnem radku na stejnem miste.

Diky za kazdou snahu.
Přílohy
DOTAZ REKAPITULACE.xlsx
(22.04 KiB) Staženo 30 x

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod cmuch » 17 bře 2014 17:41

Je více možností.
Jedna z nich pomocí makra.
Na každý list z kterého se má kopírovat do listu "Rekapitulace" nakopíruj makro, které je v "List1"
Uprav nastavení žluté oblasti pokud jsem zadal špatně.
Při změně ve žluté oblasti se daný řádek napokíruje do daného listu, pokud tam již je tak se jen přepíší stávající udaje, pokud není tak se řádek založí.
Ve sloupci N zadávám info z jakého listu a řádku je záznam pro hledání zda již záznam existuje nebo ne.

Tak to zkoukni jestli je to správná cesta.
Přílohy
KopirujRadekNaJinyList2.xlsm
(29.58 KiB) Staženo 39 x
Naposledy upravil(a) cmuch dne 18 bře 2014 06:31, celkem upraveno 1 x.

jet
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod jet » 17 bře 2014 20:30

Vypadá to přesně jak bych potreboval, jeste ale drobna uprava, kdyz do zlute casti zadam dalsi hodnotu do dalsiho sloupce tzn ze v radku bude jiz druhy zaznam tak aby ten druhy zaznam se zapsal do listu rekapitulace jako novy radek.

Jinak s makrama si moc nerozumim tak nevim jak pak to makro aplikovat :)

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod cmuch » 18 bře 2014 06:38

Tak jsem to upravil v předchozí příloze.
Ukládají se pod sebe pouze pořád ty buňky červené ne ty žluté.

Jinak s tím makrem to bude jednoduché, viz obr.
VBA.jpg

Zmáčkneš Alt+F11 - Editor VBA
Když klikneš na list1 (modře podbarvené) a vše co tam je zkopíruješ do dalšího listu z kterého chceš kopírovat ty údaje.

jet
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod jet » 18 bře 2014 07:27

To je presne ono. Diky moc

Jdu to zkusit aplikovat na ostre tabulky :) Jinak mam asi 50 listu je nejaka moznost ten kod zkopirovat najednou do vsech tech listu nebo musim postupne jednotlive do kazdeho?

Diky

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod cmuch » 18 bře 2014 08:45

Tak do moduli ThisWorkBook dej toto

Kód: Vybrat vše

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
 Dim shData As Object
 Dim Oblast As Range
 Dim NewRow As Integer
 Dim FCll As Range
 
  Set shData = Sheets("Rekapitulace") ' kam se bude kopirovat
  Set Oblast = Sh.Range("T12:AJ50")   ' definice sledované oblasti
 
    'list ktereho se netyka, pro vice listu pridej AND Sh.Name <> "nazev listu" ...
    If Sh.Name <> "Rekapitulace" Then
 
        ' test výbìru
        If Union(Oblast, Target).Address = Oblast.Address Then
 
            'hledej jestli je jiz v rekapitulaci podle pomocneho sl. N
            Set FCll = shData.Range("N:N").Find(ActiveSheet.Name & Target.Address, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows)
       
            'pokud ano prepis stare udaje, pokud ne tak vytvor nove
            If Not FCll Is Nothing Then
                NewRow = FCll.Row
            Else
                NewRow = shData.Cells(Rows.Count, 1).End(xlUp).Row + 1
            End If
            Application.EnableEvents = False
             shData.Range("A" & NewRow).Value = Range("D6").Value                'cislo
             shData.Range("B" & NewRow).Value = Range("F6").Value                'text
             shData.Range("C" & NewRow).Value = Range("B" & Target.Row).Value    'kod
             shData.Range("D" & NewRow).Value = Range("C" & Target.Row).Value    'polozka
             shData.Range("E" & NewRow).Value = Range("O" & Target.Row).Value    'cena
             shData.Range("N" & NewRow).Value = ActiveSheet.Name & Target.Address 'info
            Application.EnableEvents = True
        End If
    End If
End Sub

A to makro co je v modulech listu smaž.
Jediné co musíš je vypsat názvy listů kterých se nemá týkat, v makru první IF.

jet
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod jet » 18 bře 2014 13:23

Prave jsem to rozchodil na ostre tabulce a je to uplne super.... Jeste jsem se chtel poradit jestli by nejak neslo udelat, aby se mi oddelovali jednotlive fakturacni obdobi, tak abych mohl delat potom soucty za urcite. Jestli mi rozumis :) Jinak ale i tak je to uz velka pomoc diky

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod cmuch » 18 bře 2014 19:41

Nevím zda to chápu, ale nejspíš by stačila kontingenční tabulka ve které by si měl potom vše.
Více tuna
http://office.lasakovi.com/excel/vlozit/excel-2010-kontingencni-tabulka-uvod/
http://office.lasakovi.com/excel/vlozit/kontingencni-tabulka-pokrocile/

Nebo nahoď jak si to představuješ aby to vypadalo.

jet
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod jet » 20 bře 2014 12:32

Asi by to slo i pres tu kontingencni tabulku ale uplne jednoduse receno, kazdy mesic ve vsech listech (tedy dalsi zapis v radku ve zlute oblasti) by mel v listu rekapitulace zacit odsaneny cca o 4 radky nize a vsechny zapisy v danem sloupci ve vsech listech (ve zlute oblasti) by se zapisovali pod sebe az do doby nez by se zase objevil novy zapis v dalsim sloupci

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Excel - propojeni listu a vzorce

Příspěvekod cmuch » 21 bře 2014 12:20

Nějak si nedovedu představit.
Skus přiložit nějakou přílohu ( jak to má vypadat po jednom měsíci a pak po dalších ).


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
    od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky
    2
    1836
    od kalosek Zobrazit poslední příspěvek
    29 čer 2023 19:39
  • Propojení tabletu se 2 zařízeními
    od zicomp » 24 kvě 2023 15:40 » v Mobily, tablety a jiná přenosná zařízení
    0
    1435
    od zicomp Zobrazit poslední příspěvek
    24 kvě 2023 15:40
  • propojení routeru a switche Příloha(y)
    od sandy22 » 08 říj 2023 18:58 » v Sítě - hardware
    10
    3331
    od ITCrowd Zobrazit poslední příspěvek
    09 říj 2023 12:11
  • 2 monitory na různých místech + propojení
    od Asanoth » 04 bře 2024 11:25 » v Rady s výběrem hw a sestavením PC
    3
    686
    od Asanoth Zobrazit poslední příspěvek
    18 bře 2024 11:19
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5993
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti