Help on generating a number series using a macro
Solved/Closed
sbhambra
Posts
1
Registration date
Monday 12 November 2012
Status
Member
Last seen
12 November 2012
-
12 Nov 2012 à 06:38
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 15 Nov 2012 à 19:53
venkat1926 Posts 1863 Registration date Sunday 14 June 2009 Status Contributor Last seen 7 August 2021 - 15 Nov 2012 à 19:53
Related:
- Help on generating a number series using a macro
- Comedy series prime video - Guide
- How to zoom out on xbox series x - Guide
- How to create a serial number generator in excel - Guide
- Apple watch series 8 specs - Guide
- Superhero series - Guide
2 responses
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
15 Nov 2012 à 19:51
15 Nov 2012 à 19:51
try this macro (result will be in columns F and G
Sub test()
Dim r As Range, c As Range, dest As Range, x As Long, y As Long
Range(Range("F2"), Range("F2").End(xlToRight)).EntireColumn.Delete
Set r = Range(Range("C1"), Range("C1").End(xlDown))
For Each c In r
x = c.Value
Set dest = Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)
Range(dest, dest.Offset(x - 1, 0)).FormulaArray = Cells(c.Row, "A")
Next c
Range("G2") = 1
y = WorksheetFunction.Sum(r)
Range(Range("G2"), Range("G2").Offset(y - 1, 0)).DataSeries , Step:=1, Trend:=False
End Sub
venkat1926
Posts
1863
Registration date
Sunday 14 June 2009
Status
Contributor
Last seen
7 August 2021
811
15 Nov 2012 à 19:53
15 Nov 2012 à 19:53
basic data are in columns A TO c IN rows 1 to 4
