Friday, December 7, 2018
Friday, November 30, 2018
Friday, November 23, 2018
Sunday, November 18, 2018
Wednesday, November 14, 2018
Friday, November 2, 2018
Friday, October 26, 2018
Worksheets Autofilter By combobox Userform Excel VBA
VBA Code
Private Sub ComboBox1_Change()
Dim database(1 To 100, 1 To 4)
Dim My_range As Integer
Dim colum As Byte
On Error Resume Next
Sheet1.range("A2").AutoFilter field:=1, Criteria1:=Me.ComboBox1.Value
For i = 2 To Sheet1.range("A100000").End(xlUp).Row
If Sheet1.Cells(i, 1) = Me.ComboBox1 Then
My_range = My_range + 1
For colum = 1 To 4
database(My_range, colum) = Sheet1.Cells(i, colum)
Next colum
End If
Next i
Me.ListBox1.List = database
End Sub
Private Sub CommandButton1_Click()
'Reset Data Filter
ActiveSheet.ShowAllData
End Sub
Friday, October 19, 2018
Sunday, October 14, 2018
Wednesday, October 3, 2018
Monday, September 24, 2018
Tuesday, September 18, 2018
Friday, September 7, 2018
Saturday, September 1, 2018
Friday, August 24, 2018
Wednesday, August 15, 2018
Friday, August 3, 2018
Friday, June 22, 2018
Thursday, June 14, 2018
Saturday, June 2, 2018
Tuesday, May 29, 2018
Saturday, May 19, 2018
Sunday, May 13, 2018
Thursday, May 3, 2018
Thursday, April 26, 2018
Thursday, April 12, 2018
Thursday, April 5, 2018
Thursday, March 29, 2018
Saturday, March 24, 2018
Thursday, March 15, 2018
Friday, March 9, 2018
Saturday, March 3, 2018
Friday, March 2, 2018
Thursday, February 22, 2018
Monday, February 19, 2018
Saturday, February 17, 2018
Thursday, February 15, 2018
Tuesday, February 13, 2018
Thursday, February 8, 2018
Wednesday, February 7, 2018
Saturday, February 3, 2018
Monday, January 29, 2018
Sunday, January 28, 2018
Monday, January 22, 2018
Friday, January 19, 2018
Sunday, January 14, 2018
Thursday, January 11, 2018
Saturday, January 6, 2018
Subscribe to:
Posts (Atom)