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
Nefunguje mi makro na odeslani listu z excelu Vyřešeno
Re: Nefunguje mi makro na odeslani listu z excelu
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/
Re: Nefunguje mi makro na odeslani listu z excelu Vyřešeno
Děkuji zkusím to ...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 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
-
-
- 18
- 3255
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 1111
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 0
- 614
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů