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ž
Stav:
Offline

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 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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ž
Stav:
Offline

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
  • Odeslání peněz na paypal
    od Myerina » 28 dub 2023 20:19 » v Vše ostatní (sw)
    11
    1780
    od Myerina Zobrazit poslední příspěvek
    28 dub 2023 21:09
  • Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
    od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky
    2
    1832
    od kalosek Zobrazit poslední příspěvek
    29 čer 2023 19:39
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3255
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Poškozený soubor excelu Příloha(y)
    od Jsimi » 06 úno 2024 22:43 » v Kancelářské balíky
    0
    614
    od Jsimi Zobrazit poslední příspěvek
    06 úno 2024 22:43

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů