Příspěvky uživatele

Děkuji oběma,
použiju asi vezri od Poki, má ošetřeno i když se snažím uložil nevypsaný form.

Dobý večer,
v přiloženém souboru jsou dva listy akt.stav a data. Do listu data ručně zapisuji, kolik "č" jsem udělal. Jde mi o to, abych data mohl zapisovat přes formulář (který jsem již zkusil navrhnout). Má představa je taková, že pokud na formuláři vyberu měsíc září a do č3 napíšu "15", tak se uloží do listu data sloupce AQ a první volné bunky. Děkuji

Dík, použiju to.

Cau, Romane, Tvé řešení se mi zdá mnohem lepší a pro můj účel vhodnější, ale ještě bych potřeboval, aby v tom výpisu byly JEN určené sloupce, tedy A a D, protože v B a C budou také data, ale ty ve výpisu nechci.

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje