Out of Space in coloum
I have this bit of code that I use and it seams to run without any trouble
until it max's out the coloum that I start in. What I want it to do is when the code reaches lest say row 25000 I want it to move over to the next coloum and pick up where it left off in the previous. I just can't seam to figure ii out. Application.ScreenUpdating = False Sheets("Sheet1").Select Range("A1").Select For card1 = 1 To 30 For card2 = 2 To 30 For card3 = 3 To 30 If Not (card1 = card2 And card2 = card3) Then ActiveCell = card1 & "-" & card2 & "-" & card3 ActiveCell.Offset(1, 0).Select End If Next card3 Next card2 Next card1 TIA -- Pete |
Out of Space in coloum
Pete,
Try this - it moves to next column on 20001st entry .. change as required HTH Sub Macro1() Application.ScreenUpdating = False Sheets("Sheet1").Select Range("A1").Select For card1 = 1 To 30 For card2 = 2 To 30 For card3 = 3 To 30 If Not (card1 = card2 And card2 = card3) Then ActiveCell = card1 & "-" & card2 & "-" & card3 ActiveCell.Offset(1, 0).Select If ActiveCell.Row = 20001 Then Cells(1, ActiveCell.Column + 1).Select End If Next card3 Next card2 Next card1 End Sub "Pete" wrote: I have this bit of code that I use and it seams to run without any trouble until it max's out the coloum that I start in. What I want it to do is when the code reaches lest say row 25000 I want it to move over to the next coloum and pick up where it left off in the previous. I just can't seam to figure ii out. Application.ScreenUpdating = False Sheets("Sheet1").Select Range("A1").Select For card1 = 1 To 30 For card2 = 2 To 30 For card3 = 3 To 30 If Not (card1 = card2 And card2 = card3) Then ActiveCell = card1 & "-" & card2 & "-" & card3 ActiveCell.Offset(1, 0).Select End If Next card3 Next card2 Next card1 TIA -- Pete |
All times are GMT +1. The time now is 06:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com