• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Skvělé!! Ohromné díky, funguje přesně tak jak jsem potřeboval

Dobrý den,
chtěl bych asi pomocí makra (bez něj to asi nepujde) zde v sešitu: www.propetra.tym.cz/www/sesitexcell.xls Udělat aby se pomocí stisku tlačítka automaticky nastavilo tiskové pole na hodnotu v bunce "N5" A poté stačilo dát tisk a automaticky se začnou tisknout stránky až do uvedeného řádku v bunce N5 věděl by někdo ?

Předem děkuji za snahu.

Ano skvělé přesně něco takového jsem potřeboval, Dekuji!

Dobrý den, měl bych takový problem, vše jsem pospal v souboru zde: www.propetra.tym.cz/www/Generat.xls

V kostce bych potřeboval zakazat přepočítavaní, a udělat buňky kopirovatelnými.

Děkuji za pomoc

Tak jak jsi to udělal je to super, Díky moc!

Dobrý den, mám takový problém zde: www.propetra.tym.cz/www/Calendar2013.xls mam kalendář, snažil jsem se to v souboru popsat. Potřeboval bych aby vždycky když si napíšu k určitému datumu poznámku třeba jak tam mám toho 5.2 - TPV tak aby mi to zobrazilo vždy poznámky na aktuální týden, pokud mám nějaké zapsané a dalo to do vyznačeného žlutého řádku.

Pokud by to šlo bez makra klidně pomocí tabulek tak by to bylo super, mě se to nepovedlo tak, aby to fungovalo ve všech měsících.

Děkuji moc

Díky moc, funguje skvěle :-)

Dobrý den,
Měl bych takový dotaz. Mám soubor ve kterém mam červenou barvou označené bunky, v těch bunkách jsou napsané čísla, ale ty mě nazajímájí. Já bych chtěl aby mi to vrátilo počet takto obarvených buněk, šlo by to bez makra ?

Viz. soubor: www.propetra.tym.cz/www/barevnebunky.xls
Děkuji

Ohromné Díky!
Funguje to skvěle!

Zde dávám ten kod:

Sub import_cyklus()
Dim i As Long, Sloupec As Long

Sloupec = 1 'sloupec E

For i = 2 To Worksheets("UVOD").Cells(1000000, Sloupec).End(xlUp).Row

ActiveWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "tým " & Worksheets("UVOD").Cells(i, Sloupec)

With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.peloton.cz/soutez?tym=" & Worksheets("UVOD").Cells(i, Sloupec), Destination:=Range("$A$1"))
.Name = "soutez?tym=" & Worksheets("UVOD").Cells(i, Sloupec)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next i
End Sub



Co mám změnit, aby to fungovalo tak jak jsem psal výše?

Dobrý den,
chtěl bych poprosit o upravu makra z tohoto tematu
http://wall.cz/index.php?m=topic&id=8588
Poki to tam krásně vyřešil, ale ja bych potřeboval jemnou upravu a to aby se nevytvářeli další listy ale vytvořil se jeden nový list a do něj by se ty data kopírovaly pod sebe.
Nevíte prosím někdo ?
Děkuji moc.

Nevím jestli to pomuže, ale tedy zasílám
www.propetra.tym.cz/www/Makros.7z

Soubor: A-Multi-OK - Kopie.xls - je sešit s makrem od Milan-D které nefunguje jak jsem psal výše.

Ostatní soubory jsou testovací, které jsem zkoušel načítat, zkoušel jsem jich mnohem víc ale pro ukazku jsem vybral tyto tři.

marjankaj
Jaký soubor konkrétně myslíš ?

Zdravím omlouvám se, že jsem se neozval byl jsem pryč.
Milan-D
Ten postup jsem zkoušel a sledoval co se děje, bohužel nevim které proměné bych ti měl poslat. Snad pomohou mé postřehy začátek je bez problému zapnu makro načtu jakykoliv xls soubor pak sem to krokoval a zjistil jsem takovou věc, v tom bodě když to má skopírovat obsah sešitu(listu) tak to v mém sešitu z makrem ze kterého to spouštím pouze označí oblast buněk třeba A1-T90 ty bunky jsou vybrané, ale nic to neskopiruje do nich žadný obsah, jen se označí. a poté už se napíše skopírovany oblasti z X listů. A tim to končí. Todle je v práci v excelu 2000.

Doma jsem to zkoušel excel 2007 to samé. Zase se nic nezkopíruje. Nutno podotknou že jsem zkoušel X ruzných souborů a ani jeden se mi nepovedlo zkopírovat.

Nejsem si jistý čím to muže být bud je to blbost možná moje blbost, ale nevímk proč to nefunguje. Napadá mě ještě pokud to tobě jde tak mi tady uplouduj ten sešit kde maš to makro a maš to odzkoušené, že to funguje a já to zkusím. Víc mě nenapadá

Díky moc všem za pomoc a makra,

Milan-D - zkoušel jsem to makro ale bohužel mi to nefunguje, nevím proč vyberu listy dam ok a chvili to něco dělá napíše že je načteno tolik a tolik listu dam ok. Ale nikde se nic neobjeví, žadné importované listy nikde. zkoušel jsem s tim trochu laborovat ale marná snaha. ( zkoušel sem i ten druhy import co tam maš v poznamkach a taky nic) bude to asi nějaká blbost.

marjankaj - tvé makro jsem taky zkoušel ale to se asi musí upravit jinak mi to hazi error na což ja nejsem odborník.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse