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

Příspěvky uživatele

Jak píše JOHAN.

Já jsem ale líný a podmíněné formátování je "moc pracné".
Takže
Zkopírujte tabulku ještě potřetí a do levé horní buňky napište vzorec porovnání levých horních buněk (nevím jak to jinak napsat)
např
=List1!A1=List2!A1
a pak zkopírujte
mno a tam kde je výsledek NEPRAVDA, tak tam se to liší
pokud je vše PRAVDA, novou tabulku smažu (resp neuložím)

Např.:
Maticově
=SUMA((KÓD("D")=KÓD(D10:BI10))/1)

Pěkné - kde jste na to přišel? ;)
Sám?

Jinak opravím
místo (funguje jen pro názvy definované v listu
For Each n in ActiveSheet.Names
patří
For Each n In ActiveWorkbook.Names
a jedná se o výpis názvů, pod které buňka spadá

Musíte být registrován a musíte vložit v povoleném formátu (nejlépe zip)

range(XY).specialcells(xlCellTypeFormulas,xlerrors).entirerow.delete
taky z brucha

Makro není potřeba, toto řeší dynamická pojmenovaná oblast.
A s přílohou vám tu někdo ukáže jak.

Nevím, k čemu to má být, ale pokud mám odpovědět na otázku:
Lze nějak udělat abych, když vyberu jeden konkrétní vůz ze seznamu npř. fiat abych já v buňce viděl fiat, ale excel v té buňce viděl číslo(průměrná spotřeba) se kterým by potom dál počítal ve vzorci?
Tak ano lze to, ale poněkud vachrlatě a to pomocí vlastního formátu
;;;"FIAT"
Ale do formátu proměnnou nedáte (bez VBA), takže byste pokaždé musel ručně. Takže doporučuji (jak psal Opičák) - "někde jinde"

Tady je třeba si uvědomit, že buňka může být podmnoožinou více názvů - jak by tedy excel věděl, na který se ptáte.

Jednou možností je následující test
(píšu od boku, bez excelu - takže za případné chyby se omlouvám - dolaďte si ;)
For Each n in ActiveSheet.Names
If Union(n.RefersToRange, ActiveCell).Address = n.RefersToRange.Address Then
Debug.Print n.Name
End If
Next n

Mimochodem
tady bude asi špatně princip celé činnosti
Proč zadáváte data z jiné aplikace,k tomu máte ještě spuštěný kód VBA a k tomu ještě zadáváte něco ručně?

Sub subSetValues()
Dim iValuesCount As Integer
iValuesCount = Sheets("admin").Cells(3, 6)

Dim nStart As Single, nInterval As Single
nStart = Sheets("ozsp_2013").Range("I7").Value
nInterval = Sheets("admin").Range("F2").Value / 24 / 60

Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range("a30").Resize(iValuesCount, 1).Value = Evaluate(sFormula)
End Sub

Mno to se tu taky řešilo - stačí dát
do gúglu site:wall.cz instance
První odkaz a tam se píše něco o registrech.
Mně se to vlákno nelíbí, ale zrovna v tomhle případě by to mohlo být řešení problému (jen opačně) ;))

Na zacyklení to nevypadá - píše že kód skončí
Kdyby se zacyklilo - tak excel nakonec zešedne a nepude nic dělat
Ještě někdy funguje Esc na přerušení běhu

Příloha je 7z a tu tu nemám a instalovat nebudu.

Je to ukázka - dejte si tam proměnné.
Nebo vám je tam někdo dá na základě té přílohy.

Ukázka:Sub subSetValues()
Dim iValuesCount As Integer
iValuesCount = 20

Dim nStart As Single, nInterval As Single
nStart = CSng(CDate("12:00"))
nInterval = CSng(CDate("0:30"))

Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range(Range("A1"), Cells(iValuesCount, 1)).Value = Evaluate(sFormula)
End Sub

Tady vám nikdo asi neporadí - muselo by se přesně vidět co děláte.

Nicméně - jestli makro končí regulérně zjistíte tak, že před End Sub vložíte Stop (nebo na End Sub nastavíte BreakPoint).
Pokud se tam kód zastaví, je to dobrá zpráva a máte nějakou chybu v kódu.
Pokud ne, budete muset proceduru přepsat jinak - my odsud nezjistíme, co to způsobuje.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje