Příspěvky uživatele

Zdravím po dlouhé době :o)

Delší dobu jsem tu nebyl ale ted tu nějaký čas zas budu, takže rád i pomůžu ale ted bych potřeboval sám pomoci :o)

Dá se nějak pracovat se zavřenými sešity excelu i bez CreateObject ?

Potřeboval bych nějaký kod aby mi zjistil hodnotu jedné buňky na jednom sešitu který mám zavřený a cretaobject nechci moc používat.

Šlo by to nějak jinak? :o)

Díki N.

Ne ne to není ono :-) Potřeboval bych aby se mi v buňce zobrzilo jen číslo, třeba kdž do bunky zadám 30 tak aby se mi v buňce zobraaazilo jen těch 30, né 00:30:00. Jen abych sem mohl z bunkou pracovat jako ve formatu času(minuty).

Potřebuji pak třeba s touto bunkou pracovat.

Zdravím, řeším tu jeden problém, možná banální.

Potřebuji zapsat do buňky počet minut tak aby to v té buňce ukázalo jen celé číslo minut, které zadám.

Př. zadám do buňky 40(jako 40 minut) tak aby se mi v buňce ukázalo "40" ale aby to mělo formát buňky jako 00:00:00

Co vy na to?

Zdravím,

na toto žádný kódík nepotřebuješ ;-)

Stačí si najet na properties na daném textboxu a najít si kolonku passwordchar a tam si zadej hvězdičku(jen jednu) - hvězdička je na numerické klávesnici značeno jako krát.

Kdyžtak dej vědet...

Ahoj N.

Děkuji za odpovědi. Mám ho.

Takhle to funguje ve wordu, ale potřeboval bych aby to šlo i v excelu. Tam je to obdobné, jenže v kolonce není křížek, ale fajfka. Dá se tam nějak dát křížek místo té fajfky v excelu?

Díki

Zdravím a prosím o radu.

V příloze mám jeden soubor a v něm tabulku ve wordu. Potřeboval bych vědet jak se to taká podobná tabulka dá vytvořit? :-)

Jde mi hlavně o to, jak tam jsou ty křížky pro výběr. Když se to vybere tak je tam křížek, a když ne tak tam je jen obdelník bez křížku :)

Hledám všude možné ale né a né to najít , pomůže mi někdo?

Díki N.

Napiš mi do vzkazu všechno co potřebuješ a já se ti na to přes víkend možná podívám. Zdá se že tento víkend budu taky doma a budu mít chvilku :-D

Zdravím, u inputboxu jsem to ješte nezkoušel tak neporadím.

Já to nakonec vyřešil tak že jsem si vytvořil userform, páč jsem potřeboval i jiné věci ještě a to u inputboxu nešlo.

Myslím si, že jedna z věci byla že v userformu jsem si mohl zadat "hvězdičky".

Tak už jsem to vyřešil :o)

A to tak, že na konci makra napíšu at se vyberou jen prázdné buňky(přejít na) a pak označené buňky skryji celý řádek :o)

nebo máte jiné návrhy jak ještě?

Zdravím, po dlouhé době jsem tu zas a potřeboval bych poradit.

V příloze mám zmenšenou tabulku kde jsem si sestavil makro, který mi odflirtuje jen ty řádky, které se rovnají pravdě a potom se vykoná nějaká operace a zas se filtr zruší.

Jenže mezi stroji jsou pokaždý skryté řádky (v originálu jsou cca 200 prázdných řádků.
Pokus spustím toto makro tak se mi sice odflirtují řádky, provede se operace ale zobrazí se mi všechny řádky i ty, které byli skryté.
Potřeboval bych něco sestrojit co mi vrátí původní stav řádků (ty řádky co byli skryty zůstanou skryty).

Zkoušel jsem screnupdating ale to taky nepomáhá.

A setrojit makro , které mi skryje prázdné řádky taky nechci napsat, pří velkém počtu řádků by to trvalo až moc dlouho.

Poradí mi prosím někdo? Budu moc rád za všechny rady.

Díki

N

Tak v tom případě se na to taky vyse....

Zdravím lidičky,

potřeboval bych zmenšit velikost písmena v názvu listu. Jde to nějakým způsobem. Zatím na to nemohu přijít.

Díki

N.

Jo ba jo, moje chyba, omlouvám se..

Kody typu:
Do
If Sheets("Nastavení").Cells(startpodkat, 8) <> "-" Then
PodkateroieList.AddItem Sheets("Nastavení").Cells(startpodkat, 8).Value
startpodkat = startpodkat + 1
Else
startpodkat = startpodkat + 1
End If
Loop Until Sheets("Nastavení").Cells(startpodkat + 1, 8) = ""
Exit Sub

nahraď tím to kodem
Do Until Sheets("Nastavení").Cells(startpodkat, 8) = ""
If Sheets("Nastavení").Cells(startpodkat, 8) <> "-" Then
PodkateroieList.AddItem Sheets("Nastavení").Cells(startpodkat, 8).Value
startpodkat = startpodkat + 1
Else
startpodkat = startpodkat + 1
End If
Loop

Rozdíl je v tom to: Starý kod má až na konci until.... nový na začátku cyklu...

Potřeba přepsat u všech těch to kodu...

Tak trochu připomínáš mě před 4 měsíci

Zkus se ješte podívat na funkci application.WorksheetFunction.Match - tato funkce vyhledá kategorii v nastavení..

A skládá se ze tří částí...
(1. co má hledat(takže kategorie_NP.Value) *Value v překladu hodnota
2. kde to má hledat(Range("B:B") nahraď tedy na Range("C:C")
3. shoda - vždy piš jen nulu

zkus to

Kecám, možná tak 3-4 měsíce se věnuji VBA

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje