Thread: auto fill numbers
View Single Post
 
Old 05-13-2021, 03:39 AM
rollis13's Avatar
rollis13 rollis13 is offline Windows 10 Office 2016
Competent Performer
  
Join Date: Jan 2021
Location: Cordenons
Posts: 143
rollis13 will become famous soon enough
Default
Change the line of code to:
Code:
If Cells(i, x) <> "" Then Cells(i, col * 2 - x + 1) = Cells(i, x) + 1
Reply With Quote