Display data in listbox depending on the criteria chosen in the two combo boxes.

D

dhfernz

New Member
Joined
Mar 31, 2011
Messages
15
Hello,

I am fairly new to VBA and i need help with a script to do the following. I have this following data;

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]Date
[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Channel[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 70"]
<colgroup><col width="70"></colgroup><tbody>[TR]
[TD="class: xl65, width: 70"]Event Name[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 58"]
<colgroup><col width="58"></colgroup><tbody>[TR]
[TD="class: xl65, width: 58"]Job Type[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 88"]
<colgroup><col width="88"></colgroup><tbody>[TR]
[TD="class: xl65, width: 88"]Description[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]Initiated by[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 52"]
<colgroup><col width="52"></colgroup><tbody>[TR]
[TD="class: xl65, width: 52"]Resource[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]28-Jun-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Gol[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Bhai
[/TD]
[TD]Press
[/TD]
[TD]Tune in
[/TD]
[TD]AC
[/TD]
[TD]VP
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]28-Jun-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Gol[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Bhai
[/TD]
[TD]Press
[/TD]
[TD]Tune in
[/TD]
[TD]AC
[/TD]
[TD]SW
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]28-Jun-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Wor[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Master
[/TD]
[TD]Back
[/TD]
[TD]Event Brand
[/TD]
[TD]NJ
[/TD]
[TD]SS
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]28-Jun-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Mov[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Tomorrow
[/TD]
[TD]Other
[/TD]
[TD]Tune in
[/TD]
[TD]SG
[/TD]
[TD]AK
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]01-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]FX[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Cat
[/TD]
[TD]Col Cat
[/TD]
[TD]Coffee
[/TD]
[TD]RW
[/TD]
[TD]HA
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]01-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Hot[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Hoard
[/TD]
[TD]Hoard
[/TD]
[TD]Launch in Kol
[/TD]
[TD]AP
[/TD]
[TD]AK
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]01-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Plu
[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Barn
[/TD]
[TD]Other
[/TD]
[TD]Umb Brand
[/TD]
[TD]AK
[/TD]
[TD]AJ
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]01-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Ok[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Mad
[/TD]
[TD]Post
[/TD]
[TD]Coffee Day
[/TD]
[TD]RW
[/TD]
[TD]RKV
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]01-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Ok[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Bahu
[/TD]
[TD]Press
[/TD]
[TD]Tune in
[/TD]
[TD]RW
[/TD]
[TD]DS
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]10-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Gol[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Shol
[/TD]
[TD]Brand
[/TD]
[TD]Stand
[/TD]
[TD]SG
[/TD]
[TD]AK
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]10-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 50"]
<colgroup><col width="50"></colgroup><tbody>[TR]
[TD="class: xl65, width: 50"]Gol[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Shol
[/TD]
[TD]Brand
[/TD]
[TD]Tune in
[/TD]
[TD]SG
[/TD]
[TD]AK
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]10-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Plu
[/TD]
[TD]Naam
[/TD]
[TD]Hoard
[/TD]
[TD]Launch
[/TD]
[TD]AC
[/TD]
[TD]HA
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 63"]
<colgroup><col width="63"></colgroup><tbody>[TR]
[TD="class: xl65, width: 63"]10-Jul-13[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Plu
[/TD]
[TD]Nand
[/TD]
[TD]Hoard
[/TD]
[TD]Launch
[/TD]
[TD]AC
[/TD]
[TD]SS
[/TD]
[/TR]
</tbody>[/TABLE]

What i need is the following
1) Unique and sorted (ascending order) values from Column B to be assigned to ComboBox1
2) Depending on what is chosen in Combobox1, corresponding unique values from Column C to be assigned to Combobox2
3) There is a command button which says "Display Data"
4) On pressing the command button "Display Data", depending on the values chosen in ComboBox1 and ComboBox2, the Listbox displays corresponding data from columns D to G in a list box
5) There can be a possibility that no option is chosen in ComboBox2, even then the listbox should display all relevant data in the list box from columns D to G depending on the option chosen in ComboBox1
6) On selecting (or double clicking) the relevant row item from the list box, all the values of the row chosen (column A to G) should be displayed in the text boxes which can be edited.

Appreciate your help in advance.

Warm Regards

Derick
 
Sort by date Sort by votes
Worf said:
Hi

Can we have a new field (column) at the data table containing sequential numbers (1, 2, 3…) to identify the records (rows)?
This would ease the programming task.
Click to expand...

Hi Worf,

Ideally i wouldn't want a column with sequential numbers. It would be great if this can be avoided.

Warm Regards

Derick
 
Upvote 0

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.
This includes items “a” and “b”. I’ll be back later with more…

Code: 
Dim cell As Range, lbr$


Private Sub ComboBox1_Change()
[i1] = [b1]
[i2] = Me.ComboBox1
[m:n].ClearContents
[b:c].AdvancedFilter xlFilterCopy, [i1:i2], [m1], 0                 ' not unique
[p1] = [c1]
[n:n].AdvancedFilter xlFilterCopy, [p1:p2], [r1], 1                 ' unique
Sorter "r"
Me.ComboBox2.Clear
For Each cell In Range("r2:r" & Range("r" & Rows.Count).End(xlUp).Row)
    Me.ComboBox2.AddItem cell
Next
End Sub


Private Sub CommandButton1_Click()                                  ' display data
[t:ac].ClearContents
[t1] = [b1]
[u1] = [c1]
[t2] = Me.ComboBox1
[u2] = Me.ComboBox2
[a:g].AdvancedFilter xlFilterCopy, [t1:u2], [w1], 0
Me.ListBox1.ColumnCount = 4
lbr = Range("z1:ac" & Range("y" & Rows.Count).End(xlUp).Row).Address
Me.ListBox1.RowSource = lbr
End Sub


Sub Sorter(c$)
Dim sh As Worksheet
Set sh = ActiveSheet
sh.Sort.SortFields.Clear
sh.Sort.SortFields.Add Range(c & "2"), xlSortOnValues, xlAscending, , 0
With sh.Sort
    .SetRange Range(c & "2:" & c & Range(c & Rows.Count).End(xlUp).Row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = 1
    .Apply
End With
End Sub


Private Sub CommandButton2_Click()      ' clear
Me.ComboBox2.SelText = ""
Me.ComboBox1.SelText = ""
Me.ListBox1.RowSource = ""
End Sub


Private Sub CommandButton3_Click()      ' copy
Dim lb As Worksheet
Set lb = Sheets("listbox")
Sheets("data").Range(lbr).Copy lb.Cells(lb.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
End Sub


Private Sub ListBox1_Click()        ' assumes text box names as TextBox1, TextBox2,...
Dim i%
For i = 1 To 7                      ' A to G
    Me.Controls("TextBox" & i) = [v1].Offset(Me.ListBox1.ListIndex, i)
Next
End Sub


Private Sub UserForm_Initialize()
[i:r].ClearContents
[i1] = [b1]                                                         ' header for filter
[b:b].AdvancedFilter xlFilterCopy, [i1:i2], [k1], 1                 ' unique values
Sorter "k"                                                          ' column to be sorted
Me.ComboBox1.Clear
For Each cell In Range("k2:k" & Range("k" & Rows.Count).End(xlUp).Row)
    Me.ComboBox1.AddItem cell
Next
End Sub
 
Last edited:
Upvote 0
Worf said:
This includes items “a” and “b”. I’ll be back later with more…

Code: 
Dim cell As Range, lbr$


Private Sub ComboBox1_Change()
[i1] = [b1]
[i2] = Me.ComboBox1
[m:n].ClearContents
[b:c].AdvancedFilter xlFilterCopy, [i1:i2], [m1], 0                 ' not unique
[p1] = [c1]
[n:n].AdvancedFilter xlFilterCopy, [p1:p2], [r1], 1                 ' unique
Sorter "r"
Me.ComboBox2.Clear
For Each cell In Range("r2:r" & Range("r" & Rows.Count).End(xlUp).Row)
    Me.ComboBox2.AddItem cell
Next
End Sub


Private Sub CommandButton1_Click()                                  ' display data
[t:ac].ClearContents
[t1] = [b1]
[u1] = [c1]
[t2] = Me.ComboBox1
[u2] = Me.ComboBox2
[a:g].AdvancedFilter xlFilterCopy, [t1:u2], [w1], 0
Me.ListBox1.ColumnCount = 4
lbr = Range("z1:ac" & Range("y" & Rows.Count).End(xlUp).Row).Address
Me.ListBox1.RowSource = lbr
End Sub


Sub Sorter(c$)
Dim sh As Worksheet
Set sh = ActiveSheet
sh.Sort.SortFields.Clear
sh.Sort.SortFields.Add Range(c & "2"), xlSortOnValues, xlAscending, , 0
With sh.Sort
    .SetRange Range(c & "2:" & c & Range(c & Rows.Count).End(xlUp).Row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = 1
    .Apply
End With
End Sub


Private Sub CommandButton2_Click()      ' clear
Me.ComboBox2.SelText = ""
Me.ComboBox1.SelText = ""
Me.ListBox1.RowSource = ""
End Sub


Private Sub CommandButton3_Click()      ' copy
Dim lb As Worksheet
Set lb = Sheets("listbox")
Sheets("data").Range(lbr).Copy lb.Cells(lb.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
End Sub


Private Sub ListBox1_Click()        ' assumes text box names as TextBox1, TextBox2,...
Dim i%
For i = 1 To 7                      ' A to G
    Me.Controls("TextBox" & i) = [v1].Offset(Me.ListBox1.ListIndex, i)
Next
End Sub


Private Sub UserForm_Initialize()
[i:r].ClearContents
[i1] = [b1]                                                         ' header for filter
[b:b].AdvancedFilter xlFilterCopy, [i1:i2], [k1], 1                 ' unique values
Sorter "k"                                                          ' column to be sorted
Me.ComboBox1.Clear
For Each cell In Range("k2:k" & Range("k" & Rows.Count).End(xlUp).Row)
    Me.ComboBox1.AddItem cell
Next
End Sub
Click to expand...

Hello Worf,

With very minor tweaks, the code is working fine so far. Looking forward to the next set.

Warm Regards

Derick
 
Upvote 0
- This version uses sequential numbers, deleting them afterwards.
- An auxiliary sheet holds temporary data.
- Does it contain all the features you need?

Code: 
Dim cell As Range, lbr$, i%, aux As Worksheet, main As Worksheet


Private Sub ComboBox1_Change()
aux.[i1] = main.[b1]
aux.[i2] = Me.ComboBox1
aux.[m:n].ClearContents
main.[b:c].AdvancedFilter xlFilterCopy, aux.[i1:i2], aux.[m1], 0                 ' not unique
aux.[p1] = main.[c1]
aux.[n:n].AdvancedFilter xlFilterCopy, aux.[p1:p2], aux.[r1], 1                  ' unique
Sorter "r", aux
Me.ComboBox2.Clear
For Each cell In aux.Range("r2:r" & aux.Range("r" & Rows.Count).End(xlUp).Row)
    Me.ComboBox2.AddItem cell
Next
End Sub


Private Sub CommandButton1_Click()                                               ' display data
aux.[t:ad].ClearContents
aux.[t1] = main.[b1]
aux.[u1] = main.[c1]
aux.[t2] = Me.ComboBox1
aux.[u2] = Me.ComboBox2
main.[h1] = "sequential #"
main.Range("h2:h" & main.Range("a" & Rows.Count).End(xlUp).Row).Formula = "=row()"
main.[a:h].AdvancedFilter xlFilterCopy, aux.[t1:u2], aux.[w1], 0
main.[h:h].ClearContents
Me.ListBox1.ColumnCount = 4
lbr = aux.Range("z1:ac" & aux.Range("y" & Rows.Count).End(xlUp).Row).Address
ListBox1.RowSource = aux.Name & "!" & lbr
End Sub


Sub Sorter(c$, sh As Worksheet)
sh.Sort.SortFields.Clear
sh.Sort.SortFields.Add sh.Range(c & "2"), xlSortOnValues, xlAscending, , 0
With sh.Sort
    .SetRange sh.Range(c & "2:" & c & sh.Range(c & Rows.Count).End(xlUp).Row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = 1
    .Apply
End With
End Sub


Private Sub CommandButton2_Click()      ' clear
Me.ComboBox2.SelText = ""
Me.ComboBox1.SelText = ""
Me.ListBox1.RowSource = ""
End Sub


Private Sub CommandButton3_Click()      ' copy
Dim lb As Worksheet
Set lb = Sheets("listbox")
aux.Range(lbr).Copy lb.Cells(lb.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
End Sub


Private Sub CommandButton4_Click()      ' update
For i = 1 To 7
    main.Cells(aux.Range("ad" & (Me.ListBox1.ListIndex + 1)), i) = Me.Controls("TextBox" & i)
Next
End Sub


Private Sub ListBox1_Click()        ' assumes text box names as TextBox1, TextBox2,...
For i = 1 To 7                      ' A to G
    Me.Controls("TextBox" & i) = aux.[v1].Offset(Me.ListBox1.ListIndex, i)
Next
End Sub


Private Sub UserForm_Initialize()
Set aux = Sheets("sheet3")
Set main = Sheets("data")
aux.[i:ad].ClearContents
aux.[i1] = main.[b1]                                                         ' header for filter
main.[b:b].AdvancedFilter xlFilterCopy, aux.[i1:i2], aux.[k1], 1             ' unique values
Sorter "k", aux                                                              ' column to be sorted
Me.ComboBox1.Clear
For Each cell In aux.Range("k2:k" & aux.Range("k" & Rows.Count).End(xlUp).Row)
    Me.ComboBox1.AddItem cell
Next
End Sub
 
Upvote 0
Worf said:
- This version uses sequential numbers, deleting them afterwards.
- An auxiliary sheet holds temporary data.
- Does it contain all the features you need?

Code: 
Dim cell As Range, lbr$, i%, aux As Worksheet, main As Worksheet


Private Sub ComboBox1_Change()
aux.[i1] = main.[b1]
aux.[i2] = Me.ComboBox1
aux.[m:n].ClearContents
main.[b:c].AdvancedFilter xlFilterCopy, aux.[i1:i2], aux.[m1], 0                 ' not unique
aux.[p1] = main.[c1]
aux.[n:n].AdvancedFilter xlFilterCopy, aux.[p1:p2], aux.[r1], 1                  ' unique
Sorter "r", aux
Me.ComboBox2.Clear
For Each cell In aux.Range("r2:r" & aux.Range("r" & Rows.Count).End(xlUp).Row)
    Me.ComboBox2.AddItem cell
Next
End Sub


Private Sub CommandButton1_Click()                                               ' display data
aux.[t:ad].ClearContents
aux.[t1] = main.[b1]
aux.[u1] = main.[c1]
aux.[t2] = Me.ComboBox1
aux.[u2] = Me.ComboBox2
main.[h1] = "sequential #"
main.Range("h2:h" & main.Range("a" & Rows.Count).End(xlUp).Row).Formula = "=row()"
main.[a:h].AdvancedFilter xlFilterCopy, aux.[t1:u2], aux.[w1], 0
main.[h:h].ClearContents
Me.ListBox1.ColumnCount = 4
lbr = aux.Range("z1:ac" & aux.Range("y" & Rows.Count).End(xlUp).Row).Address
ListBox1.RowSource = aux.Name & "!" & lbr
End Sub


Sub Sorter(c$, sh As Worksheet)
sh.Sort.SortFields.Clear
sh.Sort.SortFields.Add sh.Range(c & "2"), xlSortOnValues, xlAscending, , 0
With sh.Sort
    .SetRange sh.Range(c & "2:" & c & sh.Range(c & Rows.Count).End(xlUp).Row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = 1
    .Apply
End With
End Sub


Private Sub CommandButton2_Click()      ' clear
Me.ComboBox2.SelText = ""
Me.ComboBox1.SelText = ""
Me.ListBox1.RowSource = ""
End Sub


Private Sub CommandButton3_Click()      ' copy
Dim lb As Worksheet
Set lb = Sheets("listbox")
aux.Range(lbr).Copy lb.Cells(lb.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
End Sub


Private Sub CommandButton4_Click()      ' update
For i = 1 To 7
    main.Cells(aux.Range("ad" & (Me.ListBox1.ListIndex + 1)), i) = Me.Controls("TextBox" & i)
Next
End Sub


Private Sub ListBox1_Click()        ' assumes text box names as TextBox1, TextBox2,...
For i = 1 To 7                      ' A to G
    Me.Controls("TextBox" & i) = aux.[v1].Offset(Me.ListBox1.ListIndex, i)
Next
End Sub


Private Sub UserForm_Initialize()
Set aux = Sheets("sheet3")
Set main = Sheets("data")
aux.[i:ad].ClearContents
aux.[i1] = main.[b1]                                                         ' header for filter
main.[b:b].AdvancedFilter xlFilterCopy, aux.[i1:i2], aux.[k1], 1             ' unique values
Sorter "k", aux                                                              ' column to be sorted
Me.ComboBox1.Clear
For Each cell In aux.Range("k2:k" & aux.Range("k" & Rows.Count).End(xlUp).Row)
    Me.ComboBox1.AddItem cell
Next
End Sub
Click to expand...

Hello Worf,

This code covers all points and it works perfectly. I will now be applying this to the main sheet which has many more columns. If at all i need help, I'll reply to this post or else I'll start a new thread. You have been a great help Worf, and the more I thank you the less it is.

Warm Regards

Derick
 
Upvote 0
You must log in or register to reply here.

Similar threads

B
  • Question Question
Listbox Filter using a combobox
Replies
1
Views
3K
DanteAmor
DanteAmor
G
  • Question Question
Multiple Dependency combo box Excel 2010 VBA.
Replies
0
Views
684
Gskr3499
G
V
  • Question Question
VBA Code for selected items in listbox displayed in Excel on a row
Replies
5
Views
3K
VLange
V
B
  • Question Question
HELP - Advanced Userform 3 level dependent drop down
Replies
1
Views
2K
MickG
M
V
  • Question Question
VBA coding to autofilter the data ( with some criteria), when the data starts from row 3
Replies
0
Views
438
Vishnu Kariappa
V

Forum statistics

Threads
1,223,911
Messages
6,175,337
Members
452,636
Latest member
laura12345

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top