Saving Reports into Different Folders With Different Logos and Title

DMGRealEstate

New Member
Joined
Sep 7, 2011
Messages
2
I have 40+ reports that I generate weekly for different clients.

I have the workbook set up so that each report is in a new sheet/tab and have a macro that runs through and saves each report as a PDF using the file name I desigate in a cell within the sheet.

My clients are now wanting the reports individualy branded to them.

My thinking is that I can list each clients name, phone, website, etc. in a new sheet then develope a marco that runs through and save the reports with row 2's infomation filled in on the reports, then row 3's and so on but one I don't know how to create a marco to do that :) (Please help) and two they also want their logos on the reports.

Can I place an image in a cell and have it called into another cell? Can I place them all in a folder and have it call the image in based on the location and name?

Thanks for all of your help guys and gals! You always have the answers!! :)
 

Worf

Well-known Member
Joined
Oct 30, 2011
Messages
3,795
Hi
See if the following example is useful for you. Naturally this has to be customized to meet the needs of your actual project, such as image formatting. If you prefer, post your current macro and I’ll make the modifications.

Code:
Sub Logos()
Dim shp As Shape, i%, crow%
crow = 25


' first workbook sheet contains logos and client info
' other sheets are the reports /// logos are inserted as images
' client data is at range b26:d28


For i = 1 To 3          ' loop through clients
    ThisWorkbook.Sheets(1).Shapes(i).Copy       ' logo
    ThisWorkbook.Sheets(i + 1).Paste            ' logo now is at report
    ' row with client data is placed on each report
    Sheets(i + 1).Range("L2:N2").Value = Sheets(1).Range("b" & (crow + i)).Resize(1, 3).Value
Next


End Sub
 

Forum statistics

Threads
1,081,441
Messages
5,358,705
Members
400,508
Latest member
fish31

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top