(19/30) Excel VBA Absolute Beginner Course (30 For 30)

This course, delivered live and interactive, is aimed at absolute beginners in Excel VBA. Building from the basics, we will explore the power of Excel VBA and appreciate the transformational effect it can have on people's work. I will show you the techniques I use to deliver massive value for my clients in the real-world context using Excel VBA, and give you demonstrations to get you using at least some of them.

💻Download File💻
(scroll down to part 19)
(File Download Link at top of page)

🎬1st Video In The Series🎬

🎬Series Playlist🎬

Yes, I cannot make you a computer programmer in 15 hours but I can help you appreciate the possibilities and equip you with the basic tools and concepts. Welcome to the 30 for 30 Excel VBA Absolute Beginner Course!

In part 19 we will explore how to add a sheet to a file using Excel VBA in the context of the real-world type task we are undertaking in the second half of the course. This means dealing with the challenge of generating the code - will it be recycled, recorded or organic? Join us at 1600 to find out.
---------------------------------------------
🎥RECOMMENDED FOLLOW UP CONTENT🎥
👉Work Through A Real World Type Excel VBA Task
👉A More Advanced Real-World Task
👉Applying Beginner VBA Techniques To Get A Job Done

---------------------------------------------
🎫Get Your Channel Membership HERE🎫

🎥🎁YOUR EXCEL CHEATSHEET
🎁1 Page Summary Of What You Need To Know

[TigerSpreadsheetSolutions]

VBA to create any number of sheets at the click of a button? Cool! Let me know if you have any questions about this stream 👇

[mariyatsvetanova]

I am so, so impressed! Really. I realized how I feel like a first grade pupil who see what miracle is the learn the alphabet and to read. I strive to lean more of this VBA coding. It's really interesting.

[Abdulaziz-eljm]

Great video, yes you can delete group sheets: press ctrl while you are selecting the sheets.

[lllearner]

Thanks for another great session. One thing I noticed in your code was that you are checking if the name of the worksheet exists but you are still continuing with the loop after you find a match. I think it would be more efficient to exit the loop if a match is found as it would be a waste of time checking the rest of the worksheets.

I would just change this single line:
If Chris_Sheet.Name = Target_Sheet Then Sheet_Found = True

to this:

If Chris_Sheet.Name = Target_Sheet Then
Sheet_Found = True
Exit For
End If

[charlesemigh]

My code ended up looking like yours - I didn't use adding the new sheet at the end, since I knew I wanted to alphabetize the category sheets, and ensure the "Data" tab was first and the "Report" tab (where I intend on writing some useful info about what was done) second. I had to cheat a little bit to make Data and Report go where I wanted it. Here's my code for alphabetizing the sheets:


'Alphabetize the category sheets, but put the Data sheet
'and the Report sheet 1st and 2nd

'note - code below keeps the screen from updating
'each sheet creation which slows down the process
'this would be significant if there were a lot more
'things going on
Application.ScreenUpdating = False

Sheet_Count = Sheets.Count

'First - rename the report and data sheets
Sheets("Report").Name = "112Report"
Sheets("Data").Name = "111Data"

'now alphabetize
For counter = 1 To Sheet_Count - 1
For counter2 = counter + 1 To Sheet_Count
If UCase(Sheets(counter2).Name) < UCase(Sheets(counter).Name) Then
Sheets(counter2).Move before:=Sheets(counter)
End If

Next counter2
Next counter

'rename data and report sheets back
Sheets("112Report").Name = "Report"
Sheets("111Data").Name = "Data"

Application.ScreenUpdating = True

'At the end - select the report tab
Sheets("Report").Select