trouble with autofilter

[9599lorenzo]

dear all,
here below part of my code that should filter data based on textbox1.value inside a userform.
this code is a part of macro that create a pdf file .
strange things is that every time i run the macro the first time the pdf file is blank..if i run the macro a second time than all filtered data appears

can someone help to understand why ?and what is wrong ?

ActiveSheet.AutoFilterMode = False
Rows("13:1000").Select
Selection.AutoFilter
ActiveSheet.Range("N13:N1000").AutoFilter Field:=1, Criteria1:=TextBox1.Text

ActiveSheet.Range("P:R").EntireColumn.Hidden = True
ActiveSheet.Range("K:M").EntireColumn.Hidden = True
ActiveSheet.Range("AC:AC").EntireColumn.Hidden = True

[davesexcel]

You have not supplied the code that PDF's just the code that autofilters

    With ActiveSheet
        .AutoFilterMode = False
        .Range("N13:N1000").AutoFilter Field:=1, Criteria1:=TextBox1.Text
        .Range("K:M,P:R,AC:AC").EntireColumn.Hidden = True
    End With

[9599lorenzo]

dear dave sorry,this is the code to generate pdf
with ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FileFullPath, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterpublish:=false
end with

[davesexcel]

Attaching a sample workbook enables others to work on your problem:

To attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

To add a file to a new post

To add a file to an existing post.

[9599lorenzo]

hi dave ,

here attchd my file.

just insert in the sheet some data at your discreption then
click on the logo and the user form wll pop up . then enter in the
textbox the value that you want to filter (column N ) .
you wll se that most of the time when you enter something new and then run the macro the pdf
(create to be sent by email) is empty . but if you then run agai the macro everithing show up in the pdf .

..in the meantime tks for your help

[davesexcel]

I was getting that as well and the PDF part was freezing my excel.,When I looked through the code, your file location was not correct.

"F:\BOOKING "
I changed it to
"F:\BOOKING\"
and the problem went away.

I assume when the code was in error, it was not finishing, and the sheet was not resetting.

[9599lorenzo]

hi Dave ...tks so much .....just for your info in the meantime i solved the problem setting the print area before creating the pdf using the below code.....as per your suggestion i focused the problem to the pdf setting and not to the filters....I tried right now to change as per your suggestion but i get an error..if i put the second slash.......anyway tks so much for your help

Dim iRow As Integer, iRowL As Integer, iPage As Integer
    iRowL = Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("mxp").PageSetup.Orientation = xlLandscape

  ActiveSheet.PageSetup.PRINTAREA = Range("A1:Ac" & iRowL).Address