Hi All,
I'm a newbie at excel VBA and I am attemtpting to use a UserForm (with hidden excel) to gather data from a client and give the client a button option to view/edit their excel spreadsheet data.
I tried researching the web for solutions to my problem and found info on vbmodeless. However, when i use this logic, everything disappears including the UserForm.
Can someone please offer me some advice or solutions? Much appreciation in advance.
Below is my logic.....
At work book open:
User Initialize:
Button to View/Edit Excel:
I'm a newbie at excel VBA and I am attemtpting to use a UserForm (with hidden excel) to gather data from a client and give the client a button option to view/edit their excel spreadsheet data.
I tried researching the web for solutions to my problem and found info on vbmodeless. However, when i use this logic, everything disappears including the UserForm.
Can someone please offer me some advice or solutions? Much appreciation in advance.
Below is my logic.....
At work book open:
Code:
[FONT=Palatino Linotype]SiteData.Show vbModeless[/FONT]
User Initialize:
Code:
[FONT=Palatino Linotype]Private Sub UserForm_Initialize()[/FONT]
[FONT=Palatino Linotype] Dim iRow As Integer[/FONT]
[FONT=Palatino Linotype] Dim myArray As Variant[/FONT]
[FONT=Palatino Linotype] Dim myRange As String[/FONT]
[FONT=Palatino Linotype] Dim Row As Variant[/FONT]
[FONT=Palatino Linotype] MultiPage1.Value = 0[/FONT]
[FONT=Palatino Linotype] Application.Visible = False[/FONT]
[FONT=Palatino Linotype] 'Set Site Description values in Drop down[/FONT]
[FONT=Palatino Linotype] Sheets("Specialties").Select[/FONT]
[FONT=Palatino Linotype] Call FindLastRow(Row)[/FONT]
[FONT=Palatino Linotype] myRange = "B2:" + ("B" & Row)[/FONT]
[FONT=Palatino Linotype] myArray = Worksheets("Specialties").Range(myRange)[/FONT]
[FONT=Palatino Linotype] With Me.Site_Description[/FONT]
[FONT=Palatino Linotype] .List = myArray[/FONT]
[FONT=Palatino Linotype] End With[/FONT]
[FONT=Palatino Linotype]End Sub[/FONT]
Button to View/Edit Excel:
Code:
[FONT=Palatino Linotype]Private Sub View_Click()[/FONT]
[FONT=Palatino Linotype] Application.Visible = True[/FONT]
[FONT=Palatino Linotype]End Sub[/FONT]