Poradna - Exportovat pouze neskryté řádky
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
Exportovat pouze neskryté řádky - diskuze na toto téma |
Dobrý den,
připravuji formulář, který na základě vyplněných údajů skrývá řádky. Chtěl bych následně vyplněný formulář vyexportovat do PDF, ale stále se mi exportují skryté řádky jako prázdné stránky.
Nejsem v excelu příliš zkušený, takže jsem to provedl následovně:
Skrytí buněk na základě podmínky:
Sub skrytí()
If Range("BJ4").Value = NEPRAVDA Then
ActiveSheet.Rows("101:149").Hidden = True
Else
ActiveSheet.Rows("101:149").Hidden = False
End If
End Sub
Formulář exportuju na základě následujícího makra:
Sub export()
ActiveSheet.Select
A = Range("B2").Text
soubor = ThisWorkbook.Path & "\Formulář " & A & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=soubor, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Zkoušel jsem googlit, ale bohužel jsem nic nenašel. Máte prosím někdo tušení, co s tím? :)
Předem děkuji za každou odpověď |