Need to find way to loop code

[emjay973]

Hi
Is there a way to loop this? The only thing changing is the range and only the letters change alphabetically.

Please Login or Register  to view this content.

Thanks

[MarvinP]

Hi emjay,

Instead of using Range("F4") and Range("G17") use instead the Cells(RowNum, ColNum) format

Then something like
For ColNum = 6 to columns("AZ").column Step = 2
..
IE.document.All("itemCodeTextField").Value = ThisWorkbook.Sheets("Inventory Outlook").Cells(4,ColNum)
IE.document.All("quantityTextField").Select
IE.document.All("quantityTextField").Value = ThisWorkbook.Sheets("Order Sheet").Cells(17,ColNum +1)
...

Next ColNum

I hope that makes sense. If not keep asking.