Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how can i group coloum | New Users to Excel | |||
Formula in a coloum | New Users to Excel | |||
Delete coloum in VB | Excel Discussion (Misc queries) | |||
how to change coloum to row | Excel Worksheet Functions | |||
Regonise coloum A while adding up coloum B to give a result in C | Excel Discussion (Misc queries) |