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

Příspěvky uživatele

Dobrý den,
v buňce A1 je číslo 1
z něj vzorcem vyjedu název: list1 (=list&A1")
Znamená to,že list1 bude zobrazen a ostatní list2-list15 se skryjí.
Zkoušel jsem něco matlat, ale nebylo to ono.
zadám-li např. 5, list 1-5 bude zobrazen, 6-15 se skryjí.
Děkuji moc za kódy, já jsem v koncích.
Děkuji předem.

Mockrát děkuji!

Dobrý den,

v příloze mám tabulku, rozsah je dynamický, kterou chci klasicky kopírovat do listu téhož sešitu, který je ovšem definovaný v buňce AB2. Název listu se mění dle číselné hodnoty v A1. Z A1 mám vzorec na název listu, kam chci data poslat (kolo1, kolo10 atd.)
Mám klasický vzorec VBA s pevně daným názvem. Prosím, poraďte, nedokážu to. Pro odborníky hračka, já už na tom takhle strávil dost a na tohle jsem teď krátký.
Tady vzorec s listem "napevno" daným. Takže Sheets ("kolo10") chci nahradit dynamickým názvem v buňce v AB2.

Sub Copy2Sheet()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Sheets("TABKOL").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("TABKOL").Range("B1:Z" & LastRow).Copy
Sheets("kolo10").Range("A1:Y" & Rows.Count).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues
Application.Goto Sheets("kolo10").Range("A1")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Díky moc, poklona předem.
Edit: nejde vložit, sdílím odkaz
https://1drv.ms/x/s!AkEGAWH1Hfp0jooMEqcIOMGSCB05JA?e=gRyIeP

P.S. Office 2010 v pořádku, takže je to nějaká souvislost s Office 365.

Dobrý den, v souboru dole mám tabulku, kde měním v buňce A3 počet, dle něj se pak podmíněně formátuje (již několik let) tabulka - ohraničení, barva písma. Náhle se mi stalo, že vzorec, které podmiňuje formátování, se spočítá, ale náhle zase se vrátí ohraničení do původního stavu - stačí zaskrolovat - a ohraničení se vrátí zpět (barva písma nikoliv). Pro mne zcela nepochopitelné tím spíš, když ve verzi online jde vše OK. Ale na verzi desktop 365 bohužel ne. Pokud na to mrknete, budu rád, děkuji moc.

lubo, také skvělý vzorec, díky!

AL, děkuji moc, to je přesně ono. Paráda

Dobrý den.
A1:A100 obsahuje číselné hodnoty, vzorce s výsledkem prázdných buněk (""), které ovšem vyhazuje je.prazdne jako nepravdu a nulové hodnoty.
Potřeboval bych nalézt pozici poslední nenulové hodnoty.
Děkuji, moc
Pavel

Díky, vše jsem prošel, podmíněné formátování i správce názvů, nikde nic...

Dobrý den,
mám jeden sešit, který už edituju dlouho, ale zůstalo v něm viset staré připojení, které nemohu odstranit standardní cestou, i když soubor stále existuje.(Upravit propojení na soubory > Zrušit propojení) Nemá někdo k dispozici funkční kod VBA, který připojení odstraní?
Děkuju moc, Pavel

Perfektní, moc děkuju

Dobrý den, mám funkční kód, které bych rád používal na stisk tlačítka v PPT. Nyní funguje jako Module

Sub UpdateExcelLinks()
Dim oShape As Shape
Dim oSlide As Slide

For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = msoLinkedOLEObject Then
oShape.LinkFormat.Update
End If
Next oShape
Next oSlide
End Sub

Ale pokud vložím jako CommandButton, vyhodí mi chybu Expect End Sub,

prosím zkušené o kontrolu a opravu, nevím, jak funkci ukončit, aby fungovalo na stisk. Děkuji moc.

Ahoj, díky za předání zkušeností, vlastně touto cestou bych to taky mohl zkusit. Pokusím se, díky

Ahoj,
řeším pro mě zatím nevyřešitelné. V Powerpoint 365 mám vložený object Excel365 (pár řádků). Potřebuji nastavit pomocí VBA automatický update tohoto objektu, abych nemusel používat stále ruční update (pr. tl. na objekt a Aktualizovat propojení). Protože do propojeného excelu házím data, které chci, aby prezentovány a aktualizovány. Hledal jsem, ale nejde mi. Stačilo by, aby v PPT byla možnost nahrát makro a nemusím se dotazovat, škoda, já ho napsat neumím.
Zkoušel jsem bezvýsledně něco podobného. Díky moc za pomoc či odkaz.

Public Sub UpdateEmbededWorkbooks()
Dim obj As OLEObject
For Each obj In ThisDisplay.OLEObjects
If TypeName(obj.Object) = "Workbook" Then
Call obj.Object.RefreshAll
End If
Next
End Sub

Fantazie, šlape to, díky moc pánové! Potlesk

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse