clif
08-14-2013, 07:54 AM
What is the error in below loops
Sub loop()
Dim a As Integer
Dim c As String
Dim d As Integer
Dim e As Integer
For a = 1 To Workbooks("update").Worksheets("update").Range("AY2").Value
c = a
e = a * 3
On Error GoTo label1:
For d = 2 To 1000
Windows(Workbooks("update").Worksheets("update").Range("E7").Value).Activate
Sheets("LSCH2").Select
Columns("A:A").Select
Selection.find(What:=Sheets(c).Cells(d, 1).Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(0, 13 + e).Value = Sheets(c).Cells(d, 2).Value
ActiveCell.Offset(0, 14 + e).Value = Sheets(c).Cells(d, 3).Value
ActiveCell.Offset(0, 15 + e).Value = Sheets(c).Cells(d, 4).Value
Next d
label1:
Next a
End Sub
Sub loop()
Dim a As Integer
Dim c As String
Dim d As Integer
Dim e As Integer
For a = 1 To Workbooks("update").Worksheets("update").Range("AY2").Value
c = a
e = a * 3
On Error GoTo label1:
For d = 2 To 1000
Windows(Workbooks("update").Worksheets("update").Range("E7").Value).Activate
Sheets("LSCH2").Select
Columns("A:A").Select
Selection.find(What:=Sheets(c).Cells(d, 1).Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(0, 13 + e).Value = Sheets(c).Cells(d, 2).Value
ActiveCell.Offset(0, 14 + e).Value = Sheets(c).Cells(d, 3).Value
ActiveCell.Offset(0, 15 + e).Value = Sheets(c).Cells(d, 4).Value
Next d
label1:
Next a
End Sub