auto fill numbers

rollis13 · #1 05-13-2021, 02:39 AM

Then try with this macro:

Code:

Option Explicit
Sub test()
    Dim i      As Long
    Dim x      As Long
    Dim col    As Long
    i = 2
    col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column    'use if there is no data after the last used column in row 1
    'col = Cells(1, 1).End(xlToRight).Column    'use if there are no empty columns before the last used in row 1
    Do Until Cells(i, 1) = ""
        For x = 1 To col
            Cells(i, col * 2 - x + 1) = Cells(i, x) + 1
        Next x
        i = i + 1
    Loop
End Sub

Urraco · #2 05-13-2021, 02:50 AM

It's ok!
Thank you very much

Quote:

Originally Posted by rollis13

Then try with this macro:

Code:

Option Explicit

Urraco · #3 06-17-2021, 02:31 AM

Hi again

I would like to modify your script below in such a way that the even numbers (blue cells) to be generated in the first empty row, as in the example below..can be done?
Thank you

Quote:

Originally Posted by rollis13

Then try with this macro:

Code:

Option Explicit
Sub test()
    Dim i      As Long
    Dim x      As Long
    Dim col    As Long
    i = 2
    col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column    'use if there is no data after the last used column in row 1
    'col = Cells(1, 1).End(xlToRight).Column    'use if there are no empty columns before the last used in row 1
    Do Until Cells(i, 1) = ""
        For x = 1 To col
            Cells(i, col * 2 - x + 1) = Cells(i, x) + 1
        Next x
        i = i + 1
    Loop
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
auto fill up	mare1984	Word	1	06-27-2019 08:09 PM
Auto Fill Forms	pgilbert0824	Excel	2	10-30-2016 01:02 AM
Excel Auto-fill Issues	officeboy09	Excel	8	01-14-2014 05:52 PM
auto fill a word doc from another program	hcubed	Office	0	06-19-2013 09:42 PM
Auto Color Fill Question	Kinar	Excel	3	05-14-2013 07:46 AM