Hi Everyone,
I have a code that supposed to run after vbModeless but unfortunately it doesn't. It should display the listbox content where i could choose from the list. Listbox content will only displays the content once listbox is clicked.
I hope you code help me on this. Below is my code for your reference.
#Sub sample()
Application.ScreenUpdating = False
If Range("s1") = 0 Then
MsgBox "There items saved in this file"
End
End If
Application.ScreenUpdating = False
CURRENTSHEET = ActiveSheet.Name
'Sheets("3").Visible = True
'Sheets("raw data 2").Visible = True
Sheets("3").Range("A2:AAA1000").ClearContents
Sheets("raw data 2").Range("xfd1001") = CURRENTSHEET
Sheets(CURRENTSHEET).Select
userform1.StartUpPosition = 0
userform1.Top = Application.Top + 25
userform1.Left = Application.Left + Application.Width - userform1.Width - 25
userform1.Show vbModeless
End Sub#
This is my code that supposed to run after vbmodeless
#Private Sub ListBox1_Enter()
Application.ScreenUpdating = False
ListBox1.Clear
Sheets("raw data 2").Range("FA1:xfd1000").ClearContents
With ListBox1
.AddItem Sheets("Raw data1").Range("B2")
.AddItem Sheets("Raw data1").Range("B3")
.AddItem Sheets("Raw data1").Range("B4")
.AddItem Sheets("Raw data1").Range("B5")
End with
End sub
#
Thank you.
Bookmarks