Nested Loop

Question

Hi,&nbsp; I am trying to do a nested Loop with a Do Until and a While.&nbsp; See attached.&nbsp;&nbsp;when starting the loop it ignores the outside loop but do the inside loop perfectly.&nbsp; &nbsp;Outside loop to be done for every name while the inside loop do the name for a specified amount of times.Please help&nbsp;

jmb17 · Answer

Neels13286&nbsp;&nbsp;If order isn't important, and assuming your names are in B4:B7, number of tickets is in Column H, and you want the list to start in O3 (change ranges as needed), then you could try:&nbsp;Sub test()
     Dim cell As Range
     Dim dest As Range
     
     Set dest = Range("O3")
     
     For Each cell In Range("B4:B7")
          If Len(dest.Value) &gt; 0 Then
               Set dest = Cells(Rows.Count, dest.Column).End(xlUp)(2, 1)
          End If
          
          dest.Resize(Intersect(cell.EntireRow, Range("H:H")).Value, 1).Value = cell.Value
          
     Next cell
     
End Sub&nbsp;

neels13286 · Answer

JMB17&nbsp;Thanks for your help.&nbsp; It works perfectly.&nbsp; I just had to remove the "end if" statement.&nbsp; It presented a compile error "&nbsp;End If without block If "&nbsp;&nbsp;In your answer, how did you tell the system to dublicate the name eg 7 times ?&nbsp; I don't get that part of the makro.&nbsp;Regards

jmb17 · Answer

By resizing the range: destCell.Resize(rowsize, colsize) where rowsize equals the value that is in Column H. Excel can read/write a block of cells at once - it's Range("O3:O9").Value = "Name" instead of doing one cell at a time.

Forum Discussion

Nested Loop

3 Replies

Resources