VBA to Copy and Paste

[rspalding]

Hello,

I have 9 cells that have copy in them AE8 thru AE16 and 9 corresponding cells that indicate how many time to repeat that copy AC8 thru AC16. The maximum number of cells to paste into is 9 so AC8 could say 5 and AC9 could say 4 for a total of 9. Likewise AC8 thru AC16 could each have a qty of 1 for a total of 9 or any other combination for a total of 9. The corresponding cells to paste into F11, F22, F33, M11, M22, M33, T11, T22 and T33 in that order.

Than you,

 

[ravishankar]

try the following c codes

Sub rspalding()
Dim a As Long, b As Long, c As Long, e As Long
Dim d As String
a = Application.WorksheetFunction.Sum(Range("AC8:AC16"))
    If a <> 9 Then
    MsgBox "cells not totalling 9"
    Exit Sub
    End If
        For b = 1 To 9
        c = Cells(b + 7, "AC")
        d = Choose(b, "F11", "F22", "F33", "M11", "M22", "M33", "T11", "T22", "T33")
            For e = 1 To c
            Range(d) = Cells(b + 7, "AE")
            MsgBox d
            Next e
        Next b
MsgBox "complete"
End Sub

ravi shankar