Příspěvky uživatele

Zdravím všechny,
potřebuji pomoc s makrem. Zároveň musím říct, že v tom nejsem moc dobrý a většinou hledám makra, která následně spojuji, abych dosáhl výsledku. Proto se obracím na Vás tady.

Co by mělo být výsledkem?

Potřeboval bych makro, které při otevření sešitu spustí požadovaná makra dle rozpoznaného uživatele - Username (Josef Novak - vždy dle registrace).

To spustí makra dle uživatele, např. u rozpoznaného uživatele Josef Novák spustí makro 1, které schová list 1 a 2 a nechá zobrazený list 3 a 4.
U jiného uživatele, např. Katerina Nova spustí makro2 a schová list 3 a 4 a zobrazí 1 a 2.

Ovšem před spuštěním makra se to zeptá, zda opravdu chci spustit dle uživatele Josef Novak. Dvě možnosti - ano - spustí makro, ne - zůstane na listu 1.

Pokud uživatele nerozpozná (přihlásí se někdo jiný, než je mnou definováno) vyskočí např. MsgBox "Přístup zamítnut, volej L.129" a zůstane na prvním listu a nespustí žádné makro.

Jde toto nějak řešit?

Moc děkuji za každou radu.

Pavel

Dobrý den,
existuje nějaké makro, které vždy při kliknutí na předem definovaný list - např. list1 spustí požadovanou akci?

Děkuji moc za pomoc.

Pavel

Děkuji, moc mi to pomohlo!
PaS

Private Sub Workbook_BeforeSave(ByVal Saved As Boolean, _
Cancel As Boolean)
Dim PrazdnyRadek As Long
' prvni prazdny radek
PrazdnyRadek = Worksheets("list1").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
' zapiseme kdo
Worksheets("list1").Cells(PrazdnyRadek, 1) = Application.UserName
' zapiseme kdy
Worksheets("list1").Cells(PrazdnyRadek, 2) = Now

ThisWorkbook.Save
End Sub

Zdravím.
Mám nějaký soubor na společném disku, do kterého zapisuje více uživatelů - cca 10 uživatelů.
Potřeboval bych kód, který před uložením zapíše jméno uživatele a datum a čas do listu 1.
V příloze jsem někde něco našel, ale nevyhovuje mi, že se dopisuje každé uložení vždy pod sebe.
Potřeboval bych kód, který u stejného uživatele pouze ve vedlejší buňce aktualizuje datum a čas uložení.
Pokud by byl nový/jiný uživatel a soubor by také uložil - dopíše ho to na konec - do volného řádku.

Dokáže mi s tím někdo pomoc.

Cílem by mělo být, abych neměl každé uložení v novém řádku, ale aby se to omezilo, např. u 10 uživatelů na 10 řádku.
Děkuji moc za každou pomoc
Pavel

Na prvom liste má byť zoznam mien listov A1:A6 ? - ANO
Kontrola zmeny bunky sa má diať práve a len na prvom liste, a podľa týchto hodnôt v A1:A6 sa premenujú listy ? - ANO
Bude vždy presne 6 listov ? - NE
Alebo kontrola zmeny nejakej bunky má prebiehať v celom zošite, na každom liste ? - ANO
Ak áno, tak na každom liste sa kontroluje bunka s rovnakou adresou, napr. A1 ? - ANO

..příloha

Dobrý den,
v příloze soubor s kódem pro pojmenování listů - hodnotou v určité buňce.
Moc tomu nerozumím, ale potřeboval bych:
1) když dvě buňky obsahují stejný název - text, tak to makro zastaví - a já potřebuji pouze, aby to upozornilo či nedovolilo přepsat druhou buňku
2) když hodnotu z dané buňky vymažu a nechám prázdné - tak to makro také zastaví - já potřebuji aby se to pojmenovalo na původní list1 např.

Děkuji moc za pomoc

P.Š.

Ahoj, tak mi nejvíce vyhovuje toto - viz níže. Pouze mi u toho nevyhovuje to, že když kliknu na odeslat, tak to zůstane v poště k odeslání a dokud neotevřu OUTLOOK, tak se to neodešle.Lze to ještě ke kódu nějak přidat?

Sub odeslat()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.display
.to = "story@seznam.cz"
.CC = ""
.BCC = ""
.Subject = "TOTO je ONO"
.HTMLbody = " " & "<br>" & "<br>" & " " & "<br>"
ActiveSheet.Range("B2:J87").CopyPicture xlScreen, xlBitmap
Set vInspector = OutMail.GetInspector
Set wEditor = vInspector.wordEditor
Set wEditor = OutApp.ActiveInspector.wordEditor
wEditor.Application.Selection.Start = Len(.HTMLbody)
wEditor.Application.Selection.End = wEditor.Application.Selection.Start
wEditor.Application.Selection.Paste
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Ahoj všem,
prosím o Vás o pomoc. Každý den odeslílám jednu tabulku, která je v buňce B2:J87. Tuto tabulku potřebuji zkopírovat jako obrázek a vložit do emailu. Moje představe je, že kliknu na tlačítko "příprava odeslání" a následně se mi otevře OUTLOOK a automaticky mi předdefinuje příjemnce, příjemce v kopii a předmět. Do textu bude vložena již zkopírovaná tabulka jako obrázek - jako obrázek to potřebuji záměrně.

Následně si tuto tabulku zkontroluji a ručně email odešlu.
Děkuji.
Pavel

Dobrý den,
potřeboval bych pomoci s tímto kódem níže.
Tedy mám 10 listů a na 11 listě zadávám hodnoty do buněk, podle kterých by se měli jednotlivé listy přejmenovávat. Např. T6 - zadám ALFA, tak list číslo 2 se přejmenuje na ALFA. To stejné potřebuji "nakopírovat" aby to fungovalo úpně stejně např. u T8 - které přejmenuje list č.3
T10 - které přejmenuje list č.4, atd...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$T$6" Then Exit Sub
Sheets(2).Name = Range("T6").Value
End Sub

Díky za pomoc!!

Pavel

Sorry, ještě přikládám soubor.

Pavel

Ahoj,
prosím o radu jak vzájemně propojit, popř. zda by mi někdo nepropojil.

Moje představa je, že vyberu buď ovoce, nebo zelenina.
Poté v comboboxu budou vidět pouze data z druhého listu, tedy jednotlivé položky zastupující buď Ovoce, a nebo Zeleniny.
Dále se ještě změní obrázek.

Výsledek
Např. Vyberu ovoce, dále v seznamu vyhledám např. Banány a obrázek se změní na Banány.

U další položky zase vyberu např. zelenina, dále vyberu cibule, obrázek cibule,....

Děkuji mnohokrát

Pavel

Děkuji moc mi to pomohlo.

D.d.,
mám makro např. tlačítko DELETE, které po stisknutí smaže danou oblast. A chtěl bych po stisku tlačítka, tzv. před spuštěním makra, aby vyskočila informační tabulka s volitelným textem, která bude požadovat heslo či zadání určitého textu, kódu (např. 1206) a po zadání správného hesla, kódu spustí makro.

Děkuji za každou opověď.

Pavel Šejnoha

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje