GEORGE PERRY
03-12-2021, 05:15 AM
good day seniors.
please any help on this ...
Run time error 424
Object Required
Sub show_data()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Product_Master")
Dim lr As Integer
lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.ListBox2
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "50,180,100,150"
.RowSource = "Product_Master!A2:D" & lr
End With
End Sub
Private Sub UserForm_Activate()
Call show_data
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call frm_Inventory_management.Add_Product_List
Call frm_onventory_management.show_inventory
End Sub
please any help on this ...
Run time error 424
Object Required
Sub show_data()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Product_Master")
Dim lr As Integer
lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.ListBox2
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "50,180,100,150"
.RowSource = "Product_Master!A2:D" & lr
End With
End Sub
Private Sub UserForm_Activate()
Call show_data
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call frm_Inventory_management.Add_Product_List
Call frm_onventory_management.show_inventory
End Sub