Need support with "VBA For Loop":

[pedie]

Hi Currently my code looks like this.
But what i want is to start from J4 till J12 and then J3.
The range will be within J3:J12 however i want the loop to startfrom J4 and end in J3....


Thanks for advice.

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub t()
Dim i As Range
For Each i In Range("j3:j12")
 If i <> "" Then
  Dim x As Integer
  Dim y As String
   x = i.Value
   y = i.Offset(0, -3).Value
   Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select
   Selection.Resize(x, 1).Value = y
 End If
Next i
End Sub

 

[kkhambhalia]

you can't for each backward. it should go forward

It's not like for loop
e.g. For i = 10 to 1 step -1

 

[pedie]

Do we alternative to achieve this?thanks again

 

[Dryver14]

Pedie,
you could try the following as the Macro is not too big

Option Explicit
Sub t()
Dim i As Range
For Each i In Range("j4:j12")
 If i <> "" Then
  Dim x As Integer
  Dim y As String
   x = i.Value
   y = i.Offset(0, -3).Value
   Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select
   Selection.Resize(x, 1).Value = y
 End If
Next i
Call t1
End Sub
 
Sub t1()
Dim i As Range
For Each i In Range("j3")
 If i <> "" Then
  Dim x As Integer
  Dim y As String
   x = i.Value
   y = i.Offset(0, -3).Value
   Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select
   Selection.Resize(x, 1).Value = y
 End If
Next i
End Sub

 

[pedie]

Thanks for the quick n simple solutions....thanks a lot!