Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Autofill of single cells
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. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Autofill of single cells
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... -- Always provide your feedback so that others know whether the solution worked or problem still persists ... "Dannie" wrote: 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. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Autofill of single cells
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 -- Thanks, Shane Devenshire "Dannie" wrote: 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I can't autofill cells in a column if blank cells in between | Excel Worksheet Functions | |||
Copy column range of "single word" cells with spaces to a single c | Excel Discussion (Misc queries) | |||
Autofill: Need to autofill one week block, (5) weekday only into cells. | Excel Discussion (Misc queries) | |||
autofill cells without a pattern? | Excel Discussion (Misc queries) | |||
Autofill skipping cells | Excel Worksheet Functions |