Do Until Cell IsEmpty

**fa888** · 10-14-2010, 10:07 PM

I am trying to break up a bigger question into smaller bit so that I understand the steps.

I have:

Cell
A1 = 1 B1 = 2
A2 = 3 B2 = 4
A3 = 5 B3 = 6

How do I write a code such that

E1 = A1 and F1 = B1
Then
E1 = A2 and F1 = B2
Then
E1 = A3 and F1 = B3
Then
It stops because A4 is empty.

I really feel like a baby because I know what I want but find it hard to convey the message, I really hope someone would help me. I had a bigger problem which I had posted earlier but made no progress so I'm breaking down to this bit size first.

Thanks.

**rylo** · 10-14-2010, 10:13 PM

Hi

Here's one way. It doesn't look for a blank cell, but processes all the data in column A, regardless.

Sub aaa()
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("E1").Resize(1, 2).Value = Cells(i, 1).Resize(1, 2).Value

  Next i
End Sub

Went back and looked at your earlier post and am not sure what you are trying achieve. Do you just want to output a list of all the pairings of the numbers from 1 to 45? As in 1,1; 1,2;...1,45; 2,3; 2,4; ...2,45; 3,4;...

rylo

**fa888** · 10-14-2010, 10:42 PM

Hi rylo,

Thanks for your input, I will try to work it out. Meanwhile, my earlier post's object was to go down the list like you said .... 1,2;...1,45; 2,3; 2,4; ...2,45; 3,4;...

Each time the 2 two numbers will fed into PAIRS!D1 and PAIRS!E1

They are, in turn, equal to Analysis!BA19 and Analysis!BB19.

Now, when they are fed into it, it churns out a value in Analysis!BF22 (from a countif forumla),

Then I want to copy the value of Analysis!BF22 into PAIRS!C1.

At the end of the day, I would like my PAIRS worksheet for be filled with column C which is the value of Analysis!BF22. (This cell is constant, always Analysis!BF22, though the value will change as different pairs give different values), corresponding to the different pair combos.

I am looking at your code for now. Thanks.

**rylo** · 10-14-2010, 11:13 PM

Hi

If you just want a pairing listing then try

Sub aaa()
  For i = 1 To 44
    For j = i + 1 To 45
      outrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      Cells(outrow, 1).Value = i
      Cells(outrow, 2).Value = j
    Next j
  Next i
End Sub

Adjust the output place to suit.

rylo

**fa888** · 10-19-2010, 11:29 PM

Originally Posted by rylo

Hi

If you just want a pairing listing then try

Sub aaa()
  For i = 1 To 44
    For j = i + 1 To 45
      outrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      Cells(outrow, 1).Value = i
      Cells(outrow, 2).Value = j
    Next j
  Next i
End Sub

Adjust the output place to suit.

rylo

Thanks rylo, I can use this for other parts of my projects!