Posts by jolivanes

    Code
    Sub Maybe()
    Dim ws As Worksheet, shp As Shape
    Set ws = ActiveSheet    '<---- Change to proper sheet name if so desired
    For Each shp In ws.Shapes
    If Not Intersect(shp.TopLeftCell, Range("A2:C100")) Is Nothing Then shp.Delete
    Next shp
    End Sub

    If you prefer to have 30 Buttons rather than 1, this should do that.

    Link all Buttons to this macro and you should be good to go.

    Put this code in a regular module (i.e. Module1)

    I cleared "Products" sheet.

    I copied columns A to I data from "Label" sheet into "Products" sheet.

    I cleared the data (Columns A to I) in "Label" sheet. "Label" sheet is now totally empty.



    Re: contains lots of company sensitive information

    That's the advantage of having a keyboard with a computer. That can be changed to non sensitive text.


    Your attachment has in the one sheet 10 headers and in the next sheet 9 headers.

    In Post #4 you say 3 columns = sizes(5) = 8 + total = 9

    So is it safe to assume that the 2nd sheet (label) is the setup to go by?

    Re: Hi, No in the actual file only the required columns for the labels are copied across. There are many cols that are irrelevant. Cheers

    Tells us totally nothing.

    If you don't attach an exact copy of your workbook explaining in detail what needs to be included and what needs to be excluded, you'll end up with

    a multitude of posts that needs to change to get your desired result.

    A proper explanation should only need one or two answers that give you the desired result.

    Change the "lr" to the actual last used row if you don't want the code to find the last used row.

    I don't have a Folder to try this on but you have it setup to loop through a Folder.

    Change to loop through your Folder instead of a Range as in this example.

    We want to make sure you have something to think about this coming weekend.

    Code
    Sub Or_Simply()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name <> "Instructions" And sh.Visible = True Then
    sh.PrintOut , , , , , True, , "C:\PDF Folder\" & sh.Name & ".PDF"    '<---- Change as required
    End If
    Next sh
    Application.ScreenUpdating = True
    End Sub

    Select the Folder to save into.

    Try


    Code
    Sub Save_As_PDF_To_Desktop_4()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
    If sh.Name <> "Instructions" And sh.Visible = True Then sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\PDF Saved Files\" & sh.Name & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
    Next sh
    End Sub


    Change

    Code
    C:\PDF Saved Files

    to the folder name where you want the PDF files saved into.