help populate data in listbox based on combobox

[abdelfattah]

hello
i have sheet contains data from a3 : g1000 and userform contains combobox1 and listbox
the proplem when i run userform i can't access to it an show me error run time error70 permission is denied
i hope any body help

Option Explicit
Dim myData As Range

Private Sub ComboBox1_Change()

  Me.ListBox1.ListIndex = Me.ComboBox1.ListIndex
Dim mySearchRng As Range
Dim myFindRng As Range
Dim myValToFind As String

With Worksheets("sheet3")
myValToFind = ComboBox1.Value
Set mySearchRng = .Columns("g")
End With

Set myFindRng = mySearchRng.Find(What:=myValToFind, _
        LookIn:=xlFormulas, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False)

    ListBox1.AddItem
    With ListBox1
        .List(.ListCount - 1, 0) = myFindRng.Value  'Data from Col A
        .List(.ListCount - 1, 1) = myFindRng.Offset(0, 2).Value 'Data from Col B
        .List(.ListCount - 1, 2) = myFindRng.Offset(0, 3).Value 'Data from Col C
        .List(.ListCount - 1, 3) = myFindRng.Offset(0, 4).Value 'Data from Col D
        .List(.ListCount - 1, 4) = myFindRng.Offset(0, 5).Value 'Data from Col E
        .List(.ListCount - 1, 5) = myFindRng.Offset(0, 6).Value 'Data from Col f
        .List(.ListCount - 1, 6) = myFindRng.Offset(0, 7).Value 'Data from Col g
        
    End With
    
End Sub


Private Sub UserForm_Initialize()
Set myData = Sheet3.Range("g3").CurrentRegion
Me.ComboBox1.List = myData.Offset(7).Value
Me.ListBox1.ColumnCount = 7
Me.ListBox1.List = Me.ComboBox1.List
End Sub

 

[abdelfattah]

now it works but, i have last demand if you don't mind when i add tool two dtpickers one is from date another is to date the data which show in listbox are relating what i choose in DTPICKER for instance as you see in sheet and userform
you noticed i choose date from 10/10/2018 to 10/10/2018 then ignore data of date for john 20/10/2018 i hope this clear

 

[DanteAmor]

Youre welcome!

the proplem when i run userform i can't access to it an show me error run time error70 permission is denied

That is the original request of the thread.

Create a new thread with for each new theme.