VBA to search multiple cells.

[Giulianeo]

Hey guys,

I have this simple code to export as PDF, range AB52 is where it pulls the file name to save as... is it possible to have multiple ranges for the code to look for? I tried "range ("AB52:AB54")" would not work. Is this even possible? If one cell is empty look on the other ones for the file name?

Thank you!

Sub Saveworksheetaspedfinwalmartfolder()

'Save Active Sheet(s) as PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="V:\DEPARTMENTS\TRAINING\COORDINATION\Invoicing Backup\" & Range("AB52"), openafterpublish:=True

End Sub

 

[James006]

Hi

Sub Saveworksheetaspedfinwalmartfolder()
'Save Active Sheet(s) as PDF
Dim i As Integer
For i = 52 to 54
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="V:\DEPARTMENTS\TRAINING\COORDINATION\Invoicing Backup\" & Range("AB" & i), openafterpublish:=True
Next i
End Sub

Hope this will help

 

[Giulianeo]

Hi

Sub Saveworksheetaspedfinwalmartfolder()
'Save Active Sheet(s) as PDF
Dim i As Integer
For i = 52 to 54
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="V:\DEPARTMENTS\TRAINING\COORDINATION\Invoicing Backup\" & Range("AB" & i), openafterpublish:=True
Next i
End Sub

Hope this will help

Thank you! I was able to resolve it by using the IF statement to test different conditions however this will come in handy for something else I have! Would you happen to know if it is possible to..

Sub Saveworksheetaspedfinwalmartfolder()

'Save Active Sheet(s) as PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="V:\DEPARTMENTS\TRAINING\COORDINATION\Invoicing Backup\" & Range("AB52"), openafterpublish:=True

End Sub

Add regular text to display after Range("AB52"), "_SS", so that the words _SS display after the text pulled from cell AB52?

Thank you!

 

[James006]

You are welcome