Trying to make a looping VBA statement

[reasem]

Hello I have a code that downloads pdfs from a URL in column F but I'm trying to get it to loop through multiple URLs and name each file based on the values adjacent in column E. Would it be 2 for each statements? or could I use an offset to pull the cells for the name?

Dim c As Range

For Each c In Range("E3218:E3251")
mainUrl = "https://www.mysite/authenticate/credentials"
fileUrl = c
filePath = "C:\Users\reasem\Documents\files\" & "\" c.Offset(RowOffSet:=0, ColumnOffset:=1) ".PDF"

**REST OF CODE**

Offset isn't working because c.Offset is making it think the statement has ended.

Any help?

Thanks

 

[Leandroarb]

Hi! Are you ok?

Do you want that him get the text from first right column?

If this no work, do you can post a sheet image?

Dim c As Range

For Each c In Range("E3218:E3251")
mainUrl = "https://www.mysite/authenticate/credentials"
fileUrl = c
filePath = "C:\Users\reasem\Documents\files\" & "\" c.Offset(0,1).Value & ".PDF"

**REST OF CODE**

 

[reasem]

sorry i meant c.Offset(0,-1) but it says unexpected end of statement

 

[mikerickson]

I think that you need ampersands around that offest

filePath = "C:\Users\reasem\Documents\files\" & "\" & c.Offset(RowOffSet:=0, ColumnOffset:=1) & ".PDF"

 

[Leandroarb]

If the loop is in the column E, when him get OffSet(0,-1), this is null. Is correct?

 

[reasem]

I think that you need ampersands around that offest

filePath = "C:\Users\reasem\Documents\files\" & "\" & c.Offset(RowOffSet:=0, ColumnOffset:=1) & ".PDF"

yup this was it. I should proof read my code before making a post. Thanks!