no experience for populate data in listbox based on selected item from another listbox

[Amer Omar]

Hi experts,
I search too much to populate data in listbox based on selected item from another listbox.
all of what I found it just by txtbox . I don't wanted .
I have two simple codes
first show data in listbox2 based on Expenses Detailes sheet as in image1

Private Sub UserForm_Initialize()
   Dim LastRow As Long
   
   
    LastRow = Range("A" & Rows.Count).End(xlUp).Row    '<---- ??????
    With ListBox2
        .ColumnCount = 7
        .ColumnWidths = "70;70;170;130;70;70;70"
        .List = Range("A2:G" & LastRow).Value
    End With
    
End Sub

Form
	A	B	C	D	E	F
1	DATE	Exchange authorization number	Expense Name	Expense Describtion	Account number	Amount
2	01/01/2024	A00	hospitality	Lunch for three persons	safe1	300.00
3	01/01/2024	A01	Stationery	Files & Mony Rubber	Main Safe	250.00
4	01/01/2024	A02	maintenance	Tires & Disco	safe1	1,200.00
5	02/01/2024	A03	maintenance	Electricity Car	safe1	2,500.00
6	02/01/2024	A04	hospitality	Lunch for Four persons	Main Safe	430.00
7	02/01/2024	A05	Stationery	Paper for Printer	Main Safe	100.00
8	03/01/2024	A06	Stationery	Transparent files	safe1	120.00
9	03/01/2024	A07	Salaries of employees and workers	Ten Employees & workers	Muth Bank	20,000.00
10	03/01/2024	A08	Goods packing workers	Three Trucks	safe1	900.00
11	03/01/2024	A09	hospitality	Lunch for Six persons	safe1	750.00
12	04/01/2024	A10	Office Furniture	Three Tables For Offie	Muth Bank	1,500.00
13	04/01/2024	A11	Shop rent	Advanced month	Muth Bank	7,600.00
14	04/01/2024	A12	hospitality	Lunch for Two persons	Main Safe	275.00
15	04/01/2024	A13	maintenance	Mechanic	safe1	1,670.00
Expenses Detailes

second image when select optionbutton1 based on Detailes sheet then will populate data in listbox1

Private Sub OptionButton1_Click()
Dim LastRow As Long
   Dim ws As Worksheet
   Set ws = Sheets("Detailes")
   If OptionButton1.Value = True Then
   
    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row    '<---- ??????
    With ListBox1
        .ColumnCount = 1
        .List = ws.Range("A2:A" & LastRow).Value
    End With
    End If
End Sub

Form
	A
1	EXPENSES NAME
2	hospitality
3	maintenance
4	Personal withdrawals
5	Cleaning materials
6	Stationery
7	Shop rent
8	Salaries of employees and workers
9	Renting the transportation of goods
10	Workers unloading goods
11	Goods packing workers
12	Goods shipping costs
13	Office Furniture
14	Laptop & Office Furniture
15	Office Furniture
16	Cars
Detailes

what I expect as in picture.
should match selected item from listbox1 with the column(3) in listbox2 and filter data in listbox2 for the select item from listbox1 like this

I have no Experience for that ,I look forward from the expert to do that with considering data could be 10000 rows in Expenses Detailes.
Thanks.

 

[Amer Omar]

Hi John again,
I made sure there is no problem as you suggest in post#3 .
I appreciate for your time to help me.
thank you for everything .