Příspěvky uživatele

hmm tak se omlouvám.. už jsem na to přišel, nepoužiju totiž ActiveCell.Address, ale Targe.Address.

No možná se to bude někdy někomu hodit, ale klidně to smažte ten můj spam

Zdravím,
chci si v práci udělat něco jako změnový list pro jednu tabulku. Vypisuje mi to datum, čas a jméno uživatele, který změní obsah buňky:

Private Sub Worksheet_Change(ByVal Target As Range)

aa = Sheets(3).Cells(1, 1)

Sheets(3).Cells(aa + 1, 1) = Now() & " - " & Application.UserName

aa = aa + 1
Sheets(3).Cells(1, 1) = aa

End Sub

chtěl požádat o pomoc jak lokalizovat právě tu změněnou buňku. Když použiju "ActiveCell.Address" tak mi to ale ukáže buňku až po provedené změně, tedy pokud uživatel zmáčkne po zadání textu do buňky Enter, tak to vypíše buňku pod. Což by ani tak nevadilo, ale problém nastane, když uživatel potvrdí změnu v buňce kliknutím myší někam. Vypíše to totiž právě aktivní buňku po potvrzení změny.
Takže otázka zní jak lokalizovat právě tu měněnou buňku.
Díky, s pozdravem

problém je ža na to nemám práva a naši ajťáci jsou neschopní a tvrdí, že tam nikde problém není, že mi to musí fungovat.. no nic, nakonec jsme přepsali hyperlinky na relativní odkazování a to už problém nedělá.. holt já si budu muset te soubor otvírat ručně.. Každopádně díky

Zdravim,
máme tu problém s jednou tabulkou, kde máme cca 250 smluv a hyper odkazy na ně. Jedná se o soubory .doc a .pdf. (excel 2003)
Tabulka je uložena: F:\smlouvy
Soubory jsou uloženy: F:\smlouvy\smlouvy texty

Problém je s otvíráním pdf přes hyperlink. Píše to, že není registrovaný žádný program pro otevření tohoto souboru. Nevím kde se nastaví, aby to bralo pro otevření pdf jako výchozí program Adobe reader (ten mám samozřejmně instalovanej)

Další problém nastává při každé půlnoci, kdy tady u nás dojde k nějakýmu restartu serveru. Takže ráno hyperlinky nejdou a v odkazované cestě je na začátku ..\..\..\..\smlouvy\smlouvy texty.
Nedá se nějakým způsobem odkazovat jinak než absolutním odkazováním (celou sestou)?

Díky, určitě je to lepší než co jsem měl já..
Ještě se o víkendu na to podívám a zkusim vymyslet jak to udělat pro jakoukoliv tabulku (mám tabulky kde sou sloupce jinde). Něco jako hledání textu "revize" a pak použití termínu s určitého řádku.
Každopádně díky budu informovat o vývoji

pardon ještě příloha v excel 2003

Zdravim,
mám funkční export termínů z konkrétní tabulky excelu do kalendáře MS Outlooku, kde mi to vytvoří položku v kalendáři s upozorněním 43200 min (30 dní) před začátkem události.

Potřeboval bych aby se to dalo použít v každé tabulce, takže jsem to zkoušel udělat jako public function (aby se hodnoty daly vybrat jako je to v ostatních fcí). Ale vba mi hází chybu, že proměnná :

Dim olApp As Outlook.Application

nelze definovat. Neporadil by mi prosím někdo jak to elegantně vyřešit? Nemusí to být tou funkcí, ale chtěl bych, aby se dali zadat/vybrat tři hodnoty (datum, subject a locati), který jsou třeba pro export do kalendáře.

Teď mi to funguje v tbl viz. příloha (makro se pouští tlč._1)

Díky za radu. Byl bych vděčný za nasměrování, nemusíte to dělat za mě, rád se s tim poperu, ale nevim jak začít. H.

Co zkusit zamknout graf, 2007 nemam.. takze jen napad

Jo přesně todle jsem měl na mysli.. Díky

Rovnou toho využiju a zeptám se jak se dá vypnout "vizualizace" při běhu makra. Aby to ukázalo až výsledek..
Díky

no tak nakopirovat vsechny firmy do jednoho sloupce a vyfiltrovat jen aby byly jedenkrat a pak v tom countif jako kriterium date bunku s tou firmou..
aby jste nemusel vypisovat ty firmy..

delam takovou pitomouckou hru a hrac bude v nekolika kolech odkazovan na ruzne casti listu.. Zoomovanim by mohl videt co ho ceka:)

Kazdopane diky za ten scroll, to doufam bude stacit..

Dobrý den,
podle mě to bude nejjednodušší fci countif(oblast;kriterium)

V listech budete mít určitě název dodavatele.. třeba ve sloupci A.
Tak bych si na poslední list dal všechny dodavatele a k nim přiřadil následující vzorec:

pro dodavatelexy, misto A:A zadejte sloupec kde mate ty dodavatele

=COUNTIF(List1!A:A;dodavatelxy)+COUNTIF(List2!A:A;dodavatelxy)..až poslední list

pak už stačí na posledním listě použít sortování od největšího..

Takže asi tak..

možná si dejte pozor, ať máte dodavatele všude psaný stejně..

pokud je to nejasný pošlete tabulku a já vám tam hodím aspoň první řádek..

Tak ještě jeden dotaz prosím..

mám zamčenej list a chci zamezit uživateli samovolny pohyb po listu (scroll, šipky, pageUP, atd) a možnost měnit zoom. Aby to fungovalo hned od otevreni mam to dat do?:

Private Sub Aplikace_SheetActivate(ByVal Sh As Object)

(pokud bude aktivovan list........)

jak tedy zamezit pohybu a zoomu?

diky moc

Hmm škoda, no nedá se nic dělat, bude to trochu složitější.. Každopádně díky za rychlou odpověď.
Nebo jesště do msgboxu do toho textu napsat i instrukce co zmačknout při dánné odpovědi, ale bude to vypadat prasácky.. Takže radši UserForm

Díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje