Příspěvky uživatele

Dobrý den elninoslov,

moc děkuji, už mi to funguje.

Dobrý den, vím že se to tu již omílalo stokrát, ale já to pořád nechápu.

Chtěl bych kopírovat data z více souborů s datumem do druhého sběrného souboru pod sebe. Už jsem makro začal, ale dál si nevím rady. Mohli by jste mi prosím pomoci?

Děkuji

elninoslov, to mě nenapadlo. Zase to máte namakaný do konce.

Určitě tu budou i lepší řešení, ale pokud by Vám to stačilo, tak třeba takhle.

Je to bomba.

Moc děkuji.

Dobrý den,

mohli by jste mi prosím pomoci s úpravou makra?

Myslel jsem, že makro jednoduše upravím a bude fungovat, ale opět jsem tvrdě narazil.

Do sloupce P by se mělo automaticky vkládat "ne" pokud je hodnota ve sloupci R vyšší jak 14.

A ještě když přidávám řádky do tabulky, makro hodí chybu, nevím proč.

Děkuji za pomoc

Jste profíci, je to vidět. Já se to učím pokus omyl a co tu od vás pochytím.

Děkuji moc za pomoc

Já jsem naprostý amatér co se týče makra.

Tohle co jste mi poslal, je už pro mě vyšší dívčí.

Ale moc děkuji, zase je to pecka.

Děkuji oběma

Dobrý den,

vytvořil jsem si své první makro. Vím, že je to amatérské.

Jen bych potřeboval poradit s jednou podmínkou.

"Když bude v buňce text, tak ...."

Sub kurz()

a = ActiveCell
b = Range("C2")
c = a * b * 1000

If a = "" Then

i = MsgBox("Vybraná buňka musí obsahovat data!", vbOKOnly + vbExclamation)

'když bude v ActiveCell jakýkoliv text
ElseIf a = Text Then

i = MsgBox("Vybraná buňka musí obsahovat číslici!", vbOKOnly + vbExclamation)

ElseIf b = "" Then

i = MsgBox("Zadejte kurz.", vbOKOnly + vbCritical, "POZOR!")

Else

i = MsgBox(Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč"))

End If

End Sub

Děkuji za pomoc

Paráda, děkuji. :-)

Dobrý den,

mám podobné rozdělení do věkových kategorií.

Používám na to maticový vzorec.

Ale už nevím jak bych, to měl udělat abych ještě rozdělil muže a ženy.

Mohli by mi někdo poradit?

Děkuji

Děkuju

Bohužel z toho nejsem moudrý, ale děkuju.

Našel jsem toto. Je to pro gmail, ale nejsem z toho moudrý. Šlo by to nějak zbastlit dohromady?

https://www.launchexcel.com/sending-e-mails-from-gmail-and-outlook-using-excel-vba/#gmail

Sub SendGmail()

'creating a CDO object
Dim Mail As CDO.Message
Set Mail = New CDO.Message

'Enable SSL Authentication
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Make SMTP authentication Enabled=true (1)
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port Details
'Get these details from the Settings Page of your Gmail Account
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your credentials of your Gmail Account
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
"username@gmail.com"
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
"*********"

'Update the configuration fields
Mail.Configuration.Fields.Update

'Set All Email Properties
With Mail
.Subject = "Write subject here"
.From = "username@gmail.com"
.To = "user1@gmail.com;user4@gmail.com"
.CC = "user2@gmail.com"
.BCC = "user3@gmail.com"
.textbody = "write your mail here"
.AddAttachment ("Folder Address") 'To attach Documents in mail
End With
'to send the mail
Mail.Send

End Sub

Dobrý den,

mám makro které vytvoří PDF a odešle jej mailem. Vše funguje dokonale. Odesílá přes aplikaci Outlook. Problém je, že v práci nyní Outlook nainstalovaný nemáme a mít nebudeme. Šlo by nastavit makro tak, aby odesílal přes online Outlook tedy přes Outlook.com?

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje