< návrat zpět

MS Excel


Téma: Import dat v sešitu rss

Zaslal/a 19.2.2015 12:45

Prosím, nemohl by mne někdo pomoci s propojením dat v jednom sešitě - viz příloha, kdde mám i popis - předem děkuji

Příloha: 7z23753_mustr.7z (17kB, staženo 25x)
Zaslat odpověď >

icon #023778
avatar
No, celé sa mi to robiť nechce, ale pichol som aspoň s tým prvým: List1 až List15 obshuje tabulku (pokaždé na jiném místě) kde bych potřeboval propsat data z Listu "přehled" do stanovených buňěk - příklad v List1.
Na Liste1, 2 a 3 máš vzorec, ten stačí skopírovať na ďalšie listy. Potom sa ti budú tie dáta z Listu Přehled zobrazovať na príslušných listoch. Do bunky A1 si musíš podoplňovať názvy jednotlivých listov. Buď ručne, alebo si napíšeš jednoduché makro, ktoré to tam jednorazovo zapíše.

edit: na Liste1 v stĺpci F som omylom nechal nejaké vzorce, tie môžeš zmazať, prílohu už kvôli tomu zipovať a posielať znovu nebudem.
Příloha: zip23778_mustr.zip (21kB, staženo 25x)
citovat
icon #023779
avatar
Ešte som napísal rutinu na zápis názvu listu do bunky A1, pokiaľ by si chcel použiť riešenie z predošlého príspevku. Vlož si do modulu v tom mustri a môžeš spustiť. Pozor: pokiaľ bude v bunke A1 nejaká hodnota, tak makro ju prepíše názvom listu:Sub DoplNazovDoSheetu()
Dim Sh As Worksheet, mySh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Set mySh = Sh
With mySh
.[A1] = .Name
End With
Next Sh
Set mySh = Nothing
End Sub

btw, opäť zavádzajúci názov vlákna - u problému, ktorý riešiš, sa nejedná o importcitovat
#023781
avatar
No to je přesně co jsem potřeboval - moc děkuji a omlouvám se za špatné použití názvu vlákna.
Ještě nedokážu vyřešit ten tisk všech aktivních listů uvedených v tabulce na listu přehled jedním kliknutím. Prosím šlo by ještě toto - děkuji.citovat
icon #023788
avatar
Áno, šlo iste, ale písal som, nechce sa mi 7, dá sa to pochopiť? 1

Tu to máš, ale tým už naozaj končím:Sub doPrint()
Dim MySh As Worksheet, MyRng As Range, MyArr()
Set MySh = Sheets("Přehled")
With MySh
Set MyRng = .[D4]
Set MyRng = MyRng.CurrentRegion
Set MyRng = Intersect(MyRng, .[C:C])
If WorksheetFunction.CountA(MyRng) > 0 Then
Set MyRng = MyRng.Offset(1, 0).Resize(MyRng.Rows.Count - 1, 1)
MyArr = MyRng
MyArr = WorksheetFunction.Transpose(MyArr)
Sheets(MyArr).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1 ', Collate:=True, IgnorePrintAreas:=False
MySh.Select
Set MyRng = Nothing
Erase MyArr
End If
End With
Set MySh = Nothing
End Sub
Doporučujem v názvoch listov nepoužívať diakritiku..citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

přečíst platbu a zapsat

PavDD • 25.11. 14:02

Zrušení podmíněného formátovní vložením do funkc

Jiří497 • 25.11. 12:56

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 9:05

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 8:53

Zrušení podmíněného formátovní vložením do funkc

Krifry • 25.11. 8:52

Prvních 5

Fantasyk • 25.11. 3:57

Vložení na první volnou buňku ve sloupci.

elninoslov • 25.11. 0:45