Populate data according to number

[YasserKhalil]

Hello
I have the range("C1:C30") This is the range where I want to populate my data

The numbers which I will distribute the data according is in C33:C37
Say for example (5 - 6 - 4 - 10 - 3)

The total of these number are 28 so the first two cells C1 and C2 will be empty
From C3:C7 should be filled with "A"
From C8:C13 should be filled with "B"
From C14:C17 should be filled with "C"
From C18:C27 should be filled with "D"
From C28:C30 should be filled with "E"

Note that the numbers are variables not constants

I hope that is clear

 

[YasserKhalil]

Give me a hint to the solution if it is difficult
Can it be done by formulas or by code will be easier?

 

[YasserKhalil]

Please do it ... Even reply

 

[Peter_SSs]

Please do it ... Even reply

Please be patient! Two 'bumps' in less than two hours is way too much and you will soon turn people off helping you if appear impatient.
Remember it is weekend and not so many members are on the forum (giving their time for free).

You could try this macro.

Sub Populate_Numbers()
  Dim Data, Results(1 To 30, 1 To 1)
  Dim i As Long, j As Long, k As Long, p As Long
  
  Const sLetters As String = "ABCDE"
  
  p = Len(sLetters)
  Data = Range("C33:C37").Value
  i = 30
  For j = 5 To 1 Step -1
    For k = 1 To Data(j, 1)
      Results(i, 1) = Mid(sLetters, p, 1)
      i = i - 1
    Next k
    p = p - 1
  Next j
  Range("C1:C30") = Results
End Sub

 

[YasserKhalil]

Mr. Peter
I'm so sorry for being impatient . I just need this quickly
Perfect solution.
Thank you very much...

Just one thing I want to extend the range to be C33:G37 and to apply the previous fantastic code to the columns ("C:G")

 

[YasserKhalil]

I'm patient Mr. Peter Did you notice that?

 

[YasserKhalil]

I'm patient .. waited for more than 6 hours
Just one thing I want to extend the range to be C33:G37 and to apply the previous fantastic code to the columns ("C:G")

 

[YasserKhalil]

Waiting for your share Mr. Peter

 

[Peter_SSs]

I'm patient Mr. Peter Did you notice that?

As a matter of fact I didn't, as that post was made at 3:07 AM my time! Even though it does often happen expecting an answer within 4 hours is very demanding.

I'm patient .. waited for more than 6 hours

That 7 hours was from 11:26 PM to 6:20 AM my time. Surprising as it may seem, I tend to sleep during that period.

Waiting for your share Mr. Peter

Now that is a more respectable period to wait before 'bumping'.

See if this does what you want.

Sub Populate_Numbers()
  Dim Data, Results(1 To 30, 1 To 5)
  Dim i As Long, j As Long, k As Long, p As Long, y As Long
  
  Const sLetters As String = "ABCDE"
  
  Data = Range("C33:G37").Value
  For y = 1 To 5
    p = Len(sLetters)
    i = 30
    For j = 5 To 1 Step -1
      For k = 1 To Data(j, y)
        Results(i, y) = Mid(sLetters, p, 1)
        i = i - 1
      Next k
      p = p - 1
    Next j
  Next y
  Range("C1:G30") = Results
End Sub

 

[YasserKhalil]

Mr. Peter
I don't know how to say thanks to you as thank you is a little word for what you offered me
And I'm sorry for being impatient .. I will try to train myself to be more patient
Thanks again Mr. Great Peter