Please my Excel app is still giving the below message and i am not getting it
Screenshot (19).jpg
Run time error '380':
dsh.UsedRange.AutoFilter 8, ">=" & Me.txt_Start_Date.Value, xlAnd, "<=" & Me.txt_End_Date.Value
If Me.OptionButton3.Value = True Then
dsh.UsedRange.AutoFilter 3, "Purchase"
End If
If Me.OptionButton2.Value = True Then
dsh.UsedRange.AutoFilter 2, "Sale"
End If
sh.UsedRange.Clear
dsh.UsedRange.Copy
sh.Range("A1").PasteSpecial xlPasteValuesAndNumbersFormats
dsh.AutoFilterMode = False
'''''''''Display Data in Listbox'''''''
Dim lr As Long
lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.ListBox2
.ColumnCount = 8
.ColumnHeads = True
.ColumnWidths = "30,100,50,50,50,50,50,50"
.RowSource = sh.Name & "!A2:H" & lr