Loop Question

[WorkMC]

I'm using the code below to loop through a range of cells, which is currently based on one column. It puts the value in from the loop into cell T1. I need to expand the loop so that columns P & Q are used, the values then need putting in cells T1 and U1.

I have tinkered around with the code but cannot get U1 to show the correct value.

As always any help would be appreciated.


Sub Cells_Loop()
Dim i As Range
Dim LastRowColP As Long

LastRowColP = Sheets("Menu").Range("P65536").End(xlUp).Row
For Each i In Sheets("Menu").Range("P8:P" & LastRowColP) 'or whatever your range is
Sheets("Menu").Range("T1").Value = i.Value
'Call Get_Data
Application.StatusBar = i
Next i
Application.StatusBar = False
End Sub

 

[bstory84]

I added 1 line of code.
Although i don't quite understand what this is accomplishing. The loop put all values into T1 & U1 and you will always end up with the last rows data in T1 & U1. Is this what you wanted?

Sub Cells_Loop()
Dim i As Range
Dim LastRowColP As Long


LastRowColP = Sheets("Menu").Range("P65536").End(xlUp).Row
For Each i In Sheets("Menu").Range("P8:P" & LastRowColP) 'or whatever your range is
Sheets("Menu").Range("T1").Value = i.Value
Sheets("Menu").Range("U1").Value = i.Offset(0, 1).Value
'Call Get_Data
Application.StatusBar = i
Next i
Application.StatusBar = False
End Sub

 

[JackHoff]

Do you want last row P data to go into T1, and do you want last row Q data to go into U1? Can you just duplicate your loop again to loop through Q and put the data into U1, although better code may be written to do both loops at the same time.