Snasui Excel Forum

Code: Select all

Sub test()

With Worksheets("StaffName")
         .Range("E2").Select
        y = .Range(Range("E2"), Range("E2").End(xlDown)).Count
        
End With

For x = 1 To y
    Range("E2").Offset(x - 1, 0).Select
    If ActiveCell.Value <> 0 Then
        Z = ActiveCell.Value
        Range("g2").Select
        For i = 1 To Z
            ActiveCell.Value = i
            ActiveCell.Offset(1, 0).Select
         Next i
    Else: End If
Next

End Sub

Code: Select all

Sub test()
    With Worksheets("StaffName")
             .Range("E2").Select
            y = .Range(Range("E2"), Range("E2").End(xlDown)).Count
    End With
    For x = 1 To y
        Range("E2").Offset(x - 1, 0).Select
        If ActiveCell.Value <> 0 Then
            Z = ActiveCell.Value
            Range("g" & Rows.Count).End(xlUp).Offset(1, 0).Select
            For i = 1 To Z
                ActiveCell.Value = i
                ActiveCell.Offset(1, 0).Select
             Next i
        End If
    Next
End Sub