Pop-up sort and pop-up filter in Excel
Free templates and templates with code are available for purchase for $50 USD
www.easyexcela...
Addition Templates may be available on request
Click this link to check out my one-on-one training www.calendly.co...
For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting www.calendly.co...
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
Check out Crowdcast for creating your webinars
app.linkmink.c...
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy....
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
www.youtube.com...
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
How to insert VBA code in Excel • How to insert VBA code...
Private Sub CommandButton1_Click()
Dim rng As Range
Dim filterby, filtercol As String
Dim col As Long
filtercol = Me.ComboBox1.Value
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
Set rng = ActiveSheet.Range("A3:I3").Find(What:=filtercol, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
col = (rng.Column)
filterby = Me.TextBox1.Value
ActiveSheet.Range("A3:I409").AutoFilter field:=col, Criteria1:=filterby
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.ShowAllData
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
End Sub
Private Sub CommandButton1_Click()
Dim rng As Range
Dim sortby As String
Dim col As Long
sortby = Me.ComboBox1.Value
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
Set rng = ActiveSheet.Range("a3:I3").Find(What:=sortby, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
col = rng.Column
Range("A4:I409").Sort Key1:=Range(Cells(4, col), Cells(409, col)), _
order1:=xlAscending, Header:=xlNo
End Sub
Sub showuser()
With UserForm1
.Width = 250
.Height = 200
.Show
End With
End Sub
Sub showRuser()
With Sort
.Width = 250
.Height = 200
.Show
End With
End Sub
Негізгі бет Pop-up sort and pop-up filter in Excel
Пікірлер: 2