(23/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 23)
(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!

Our solution to the real-world type problem we have been dealing with is certainly accurate and functional, but lacks efficiency and 'slickness'. In this stream, we will consider an alternative approach and look at how to create code to sort datasets. We'll record some code then explore how to tweak it to get it working perfectly. See you at 1600!
---------------------------------------------
🎥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]

Just a week to go! Let me know your impressions of the 30 for 30 Excel VBA Absolute Beginner Course right here 👇 I will get back to you

[mmakerpro]

I learned so much of VBA in the past 23 days.

[gass-tube]

I felt the power with that efficency improvement.. Lavish programming...

[heathfagan]

Very funny that you ran this recording for the Sort Test today. I had a request at work today in which i too recorded the macro to sort data very much the same way you did here. I then built in a few call macros. The report worked great. It isn’t a polished piece of work, but from watching your 30 for 30 stream I was aware of some methods to get the code and make the report work for now. However, while doing this and seeing how many lines of code were written I was thinking of how can I make the data selection dynamic. Just wanted to say you are doing a great job with your website and your trainings. I will continue to follow your teachings.

[christianvaiana]

really love your videos and you as person

[charlesemigh]

and by the way, what Anup and others were trying to say about the headers - you do not (at least so far) copy the header labels over into the individual category sheets. I suspect your customer would want those ;-)

[charlesemigh]

as expected, I'm finding my code posted yesterday could be a bit more efficient...I'll have to work on that. I'll just remind folks that, as coded in the stream so far, there are opportunities to break the process here...blank cells in your right hand column, for example, will leave rows behind if using the code as recorded in the macro recorder. These are things people will want to think about when creating robust VBA for business processes or customers. Still, I realize this is a series "for absolute beginners." As your viewers increase their prowess, I think they will learn these things as I am.

[musamushi]

ctrl+shift+8 now is not selecting current region, instead it will select top cell

[mmakerpro]

Sub sort_test()


Dim Data_Range As Object
Dim Sort_Range As Object
Dim choice As Integer

'dynamic define work range
'give option to choose col. to sort by

Set Data_Range = Range("B3", Range("B3").CurrentRegion)
Set Sort_Range = Range("D4", Range("D4").End(xlDown))

choice = InputBox("Sort by:" & vbCrLf & "1. Date" & vbCrLf & "2.category" & vbCrLf & "3. Amount" & vbCrLf & "4. Total Amount")

Select Case choice

Case Is = 1
Set Sort_Range = Range("B4", Range("B4").End(xlDown))

Case Is = 2
Set Sort_Range = Range("D4", Range("D4").End(xlDown))

Case Is = 3
Set Sort_Range = Range("E4", Range("E4").End(xlDown))

Case Is = 4
Set Sort_Range = Range("F4", Range("F4").End(xlDown))

Case Else
MsgBox "Choice does not exist in menu"
Call sort_test
End Select

Set Data_Range = Range("B3", Range("B3").CurrentRegion)

' sort_test Macro


Key:=Sort_Range _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With
.SetRange Data_Range
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub