Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4   další »
VBA Skrýt / zobrazit listy na základě hodnoty (31.3.2020 22:01)

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.

VBA název cílového listu z buňky (29.3.2020 10:15)

Mockrát děkuji!

VBA název cílového listu z buňky (28.3.2020 22:36)

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

Podmíněné formátování - zcela divné chování (11.3.2019 13:24)

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

Podmíněné formátování - zcela divné chování (10.3.2019 19:57)

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.

Pozice poslední nenulové hodnoty (7.6.2018 20:43)

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

Pozice poslední nenulové hodnoty (7.6.2018 20:31)

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

Pozice poslední nenulové hodnoty (7.6.2018 12:59)

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

Jak odstranit staré připojení? (11.3.2018 20:51)

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

Jak odstranit staré připojení? (11.3.2018 20:09)

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

VBA PPT oprava kódu Expect End Sub (27.2.2018 19:48)

Perfektní, moc děkuju

VBA PPT oprava kódu Expect End Sub (27.2.2018 19:23)

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.

Powerpoint - Excel embed object - auto update (21.2.2018 12:22)

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

Powerpoint - Excel embed object - auto update (20.2.2018 21:15)

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

MINIFS napříč listy (24.3.2017 12:49)

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


Strana:  « předchozí  1 2 3 4   další »

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje