Yecart77
New Member
- Joined
- Nov 8, 2022
- Messages
- 20
- Office Version
- 365
- 2021
- 2019
- 2016
- Platform
- Windows
Hi Experts,
I'm really loving learning Excel and VB but need some input from the experts. Using 365 at home but this file will be in Excel 2016.
sh.Range("A" & last_Row + 1).Value = "=Row()-1"
The formula above puts numbers 1,2,3,etc in Cells A2, A3, A4 of the form.
I have this formula that works great in a normal Excel worksheet.
="ABCD-"&""&TEXT(ROW()-ROW($A$1),"0000")&"/"&2024
The outcome is:
A1: Heading
A2: ABCD-0001/2024
A3: ABCD-0002/2024
A4: ABCD-0003/2024 etc etc
When I replace red text with the purple text and add " " marks each end it returns an error.
How do I correct it? I am wanting the outcome ABCD-0001/2024 etc.
I have attached a copy of the VBA from the 'Add' button.
Thank you for any ideas in advance.
I'm really loving learning Excel and VB but need some input from the experts. Using 365 at home but this file will be in Excel 2016.
sh.Range("A" & last_Row + 1).Value = "=Row()-1"
The formula above puts numbers 1,2,3,etc in Cells A2, A3, A4 of the form.
I have this formula that works great in a normal Excel worksheet.
="ABCD-"&""&TEXT(ROW()-ROW($A$1),"0000")&"/"&2024
The outcome is:
A1: Heading
A2: ABCD-0001/2024
A3: ABCD-0002/2024
A4: ABCD-0003/2024 etc etc
When I replace red text with the purple text and add " " marks each end it returns an error.
How do I correct it? I am wanting the outcome ABCD-0001/2024 etc.
I have attached a copy of the VBA from the 'Add' button.
Thank you for any ideas in advance.
