MS Excel

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

AL(19.2.2015 21:42)#023778

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: zip

23778_mustr.zip (21kB, staženo 27x)

citovat

AL(19.2.2015 22:29)#023779

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

frenk67(20.2.2015 7:40)#023781

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

AL(20.2.2015 13:06)#023788

Áno, šlo iste, ale písal som, nechce sa mi

, dá sa to pochopiť?

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 SubDoporučujem v názvoch listov nepoužívať diakritiku..citovat

Téma: Import dat v sešitu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje