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

Příspěvky uživatele

Děkuji, že se mi snažíte pomoci. Vážím si toho..

poslední aktualizace 2015
Nenašla jsem verzi...
Zjistila jsem, že bohužel mi nejde spustit outlook, ale v liště mám "pošta" a ta ten outlook spustí

MS office 2016 pro
Excel 2016 MSO 32 bit
Win 10

sekne se to nyní i v tom původním

Set Zprava = Outapp.CreateItem(olMailItem)

Private Sub Send_mail_Click()
'On Error Resume Next
Dim Outlook As Outlook.Application
Dim Zprava As Object
Dim PDF_path As String
'PDF_path = ActiveWorkbook.Path & "\logfile.txt" '"\Objednávka.pdf"
PDF_path = "C:\EXCEL\logfile.txt" '"\Objednávka.pdf"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_path _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Set Outlook = New Outlook.Application
Set Zprava = Outlook.CreateItem(olMailItem)
Set myAttachments = Zprava.Attachments
On Error GoTo ERR1
myAttachments.Add PDF_path, olByValue, 1, ""
With Zprava
.To = Range("b1") 'adresát
.Subject = Range("b2") 'předmět
.Body = Range("b3") 'obsah
.CC = Range("b4") 'kopie mailu
.BodyFormat = olFormatPlain 'format mailu
.Display 'zobrazit okno
.Send 'odeslat
End With
GoTo konec
ERR1:
MsgBox "e-mai nebyl odeslán, něco je špatně"
MsgBox PDF_path
konec:
End Sub

Omlouvám se

Dobrý den. Dlouho jsem využívala k odesílání mailu i s přílohou outlook. Nyní používám pro připojení Edge. Nevím si rady, nejde mi odeslat přes VBA ani už i ten outlook....
Děkuji za pomoc

Celé je to špatně, bo když změníš buňku na DDD nic se neděje

Děkuji všem za radu!
A protože to bez makra nejde, obešla jsem to přes komentáře, které se otevřou v dané buňce vždy, když je aktivována přes TAB (odemčená).
Úprava je v sešitě s makrem a pak zkopírovány data včetně komentářů do sešitu bez maker, zamšený list.

Tabulka je zamčená a pomocí TAB přeskakuje postupně na odemčené buňky. Připraven výsledek s rozepsanými daty podrobně a na základě indexu dané pozice aktuální buňky či její hodnoty atd.
Jenže bez makra nemohu zadat pozici activecell v listu. Existuje řešení, např.class ale hlavně bez makra. Děkuji

Tabulka je zamčená a pomocí TAB přeskakuje postupně na odemčené buňky. Připraven výsledek s rozepsanými daty podrobně na základě indexu dané pozice aktuální buňky či její hodnoty atd.
Jenže bez makra nemohu zadat pozici activecell v listu. Existuje řešení, např.class ale hlavně bez makra. Děkuji

S velkou prosbou se obracím na všechny o pomoc s problémem, jak zjistit BEZ MAKRA aktuální pozici aktivní buňky ( řádek, sloupec ) v daném listě!
Děkuji

Máte pravdu, zbytečná komplikace.
Otevření zdrojového sešitu a načtení cca 3000 dat do dim trvalo 0,5s včetně zavření!!
Děkuji

Dobrý den.
Žádám vás o pomoc při řešení připojení - načtení dat z jiného sešitu na pozadí, bez otevření zdrojového sešitu.
Klasické propojení v listu mám
'=MAXA('C:\Excel\[data01.xlsb]List1'!A:A)
Potřebovala bych však vytvořit čerpání dat ve VBA
např. SUBTOTAL, MATCH ....
Nedaří se mi nastavit cestu k zdroj.datům ve VBA.
Děkuji za pomoc

Díky.
Žádný kód, jen si buď dokument vytisknu nebo prohlédnu a klasicky zavřu přes X křížek v okně. Bohužel dokument zmizí, ale nikoliv zmiňované menu.
Děkuji za váš čas a budu ráda, pokud by otevírání fun govalo přímo z VBA nikoli s dvojklikem na dokument, to samé při uzavření.
Budu se těšit na odpověď

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje