Autofill of single cells

[Dannie]

I have a workbook that is read only and needs to have 1 cell autofilled in
with the next ascending number everytime we access the workbook.

 

[Sheeloo]

Use this
Private Sub Workbook_Open()
If Sheets("Sheet3").Cells(1, 1) <> 0 Then
Sheets("Sheet3").Cells(1, 1).Value = Sheets("Sheet3").Cells(1, 1).Value + 1
Else
Sheets("Sheet3").Cells(1, 1).Value = 1
End If
End Sub

To enter this code
Open your workbook
Press ALT-F11 to open VBE
Click on This Workbook under your workbookname
Paste the above macro
Save your workbook, close and open it.
This will increment the no. in A1 of sheet3...

 

[ShaneDevenshire]

Hi,

I think you need code like this:

Private Sub Workbook_Open()
Dim x As Long
x = Sheets("Sheet1").Range("A1")
Sheets("Sheet1").Range("A1") = x + 1
End Sub