Nefunguje mi makro na odeslani listu z excelu
Napsal: 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
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