Hello..
How can I code copying the 5 row down of StyleNum found in separate worksheet into the StyleFlow with intervals of 7 rows down:
NumItms = 5 (can vary 1 upto 30)
StyleSheet = worksheet with the range:
StyleRecordRange(upto 30 StyleNumbers)
StyleFlow = another worksheet that has the range
where I want to copy the StyleNumbers
at an interval of every 7 rows down...
Code:
Dim NumItms As Integer
NumItms = ActiveSheet.Range("NumItms").Value
For StyleCount = 0 To NumItms
ActiveCell.Range("FirstStyleNum").Value = ActiveCell.Range("StyleRecordRange")(StyleCount).Value
Next
ActiveSheet.Range("StyleSheet").CopyFromRecordset StyleRecordRange
End Sub
Any help is appreciated...
Thanks,
