Nefunguje mi makro na odeslani listu z excelu Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
Snekment
nováček
Příspěvky: 35
Registrován: srpen 12
Pohlaví: Muž

Nefunguje mi makro na odeslani listu z excelu

Příspěvekod Snekment » 13 bře 2018 10:51

Dobrý den, mám makro v excelu ,ktere mi fungovalo az do prechodu z office 2007 na 2016

Po spusteni makra se ukaze tato chybova hlaska :

Run-time error 1004
Obecna chyba posty. Ukoncete aplikaci excel, spuste znovu postovní system a opakujte akci.

Po zmacnuti tlacitka debug se objevi toto makro a zlute je oznacena posledni veta viz :

Sub skryj()
'skrývá a zobrazuje řádky podle výsledku vzorců ve sloupku C
Dim a As Integer, i As Integer
Dim wsh As Worksheet

Application.ScreenUpdating = False
a = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row

Worksheets("vysledek").Select
For i = 2 To a
If Cells(i, 3) = "" Then
' skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
ElseIf Cells(i, 3) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
End If
Next

Worksheets("list3").Select
For i = 2 To a
If Cells(i, 3) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
ElseIf Cells(i, 3) = "" Then
'skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next

Worksheets(1).Select
Application.ScreenUpdating = True

Sheets("vysledek").Select
Range("F1").Select

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\pkment\AppData\Local\Temp\kontrola cen masa křeček.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

Pokud vite tak prosim pomožte . Fakt nevim co s tim.
Diky Snek



Reklama
Uživatelský avatar
atari
Level 4.5
Level 4.5
Příspěvky: 1793
Registrován: říjen 08
Pohlaví: Muž

Re: Nefunguje mi makro na odeslani listu z excelu

Příspěvekod atari » 13 bře 2018 12:27

S tím VBA neporadím, ale nedávno se tady objevil tento odkaz, třeba pomůže: https://proexcel.cz/jak-odeslat-e-mail-z-excelu/

Uživatelský avatar
Snekment
nováček
Příspěvky: 35
Registrován: srpen 12
Pohlaví: Muž

Re: Nefunguje mi makro na odeslani listu z excelu  Vyřešeno

Příspěvekod Snekment » 13 bře 2018 12:37

Děkuji zkusím to ...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL 2010 - odeslání emailu z excelu s určitými buňkami
    od zlejKluk » 28 úno 2018 14:50 » v Kancelářské balíky
    3
    480
    od xlnc
    28 úno 2018 20:26
  • Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
    od Pavel Křivánek » 26 lis 2018 15:04 » v Kancelářské balíky
    3
    409
    od MePExG
    28 lis 2018 21:30
  • Makro - zaznamenání data zápisu do buňky v excelu
    od slama.fortunes » 14 úno 2018 13:11 » v Kancelářské balíky
    14
    935
    od slama.fortunes
    15 úno 2018 15:42
  • Úprava kodu pro odeslání pdf.
    od luko02420 » 05 zář 2018 07:48 » v Kancelářské balíky
    6
    472
    od luko02420
    05 zář 2018 11:01
  • Úprava kódu pro odeslání emailu.
    od luko02420 » 01 zář 2018 20:10 » v Kancelářské balíky
    6
    650
    od luko02420
    04 zář 2018 20:14

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů