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

Příspěvky uživatele

Děkuji

Dobrý den,
v příloze jsou tři pojmenované oblasti (oblast1, 2 a 3). Potřebuji vypsat např. do msgboxu obsah sloupce A a D vždy z jedné určité oblasti, která by byla dána pozicí aktivní bunky (je-li to možné). Výpis oblasti2 by měl vypadat asi takto:
F 1
G 7
H 9
I 8
J 2

Dobrý den,
v excelu mám buňku (formát hh:mm) pak mám makro, které vytvoří e-mailovou zprávu s vyplněným příjemcem, předmětem, a vlastním tělem, kde chi mít
"text1:" hodnotu buňky (ve formátu hh:mm)
"text2:"

Dim ObjOutlook As Object
Dim objMail As Object
Dim strBody As String
Dim lngRetVal As Long
Dim bunka As Range
Dim Hodiny As Date
Dim Radek As Integer

Radek = ActiveCell.Row
Hodiny = (ActiveSheet.Cells(Radek, 9))



If lngRetVal <> 0 Then
Set ObjOutlook = GetObject(, "Outlook.Application")
Else
Set ObjOutlook = CreateObject("Outlook.application")
End If

On Error GoTo MailErr

Set objMail = ObjOutlook.CreateItem(0)
objMail.To = "jan.novak@seznam.cz"
objMail.Subject = "text"
objMail.htmlBody = "text1: " & Hodiny & "text2:"
objMail.Display

Nedaří se mi hodiny zobrazit ve formátu hh:mm a text2 na novém řádku.

Děkuji za případné odpovědi

Ahoj, mám vytvořenou docházku a v ní makro pro tisk, které přidá do zápatí datum a naskenovaný podpis. Já chci zajistit, že pokud podpis.jpg nebude k dispozici, makro na to upozorní a umožní buď pokračovat, nebo ukončit. Zde je makro:
Sub TiskDatumPodpis()
'
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ActiveWorkbook.Path & "\" & "podpis.jpg"
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$43"
With ActiveSheet.PageSetup
.LeftFooter = "&D&G" & Chr(10) & "datum a podpis pracovníka"
.RightFooter = "datum a podpis vedoucího"
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ""
With ActiveSheet.PageSetup
.LeftFooter = ""
.RightFooter = ""
End With

End Sub

Děkuji, to VBA je asi to, co jsem chtěl.

To mám nastavené, ale bunka je ve skrytém sloupci.Potřebuji okno s upozorněním "překročil jste ..."

Dobrý večer,
řeším "jeden" problém: A1=A2-A3 a já potřebuji, aby vyskočila varovná hláška v případě, že A1 bude záporné číslo. Zkoušel jsem ověření dat, ale to funguje pouze na buňku s přímým zápisem (do A1 zapíšu -5 a objeví se okno s výstrahou), když je v A1 vzorec, tak to nefungzje. Poradíte prosím někdo? Děkuji

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse