Print form "frmxxxx" names

Folks,
I have a need to print out the Form names ("frmSolutionProduction","frmSolutionSales",...) that I have created to another worksheet in my workbook. I am consolidating many forms and as I eliminate reducndancy I want to make sure I mark off what I've done from a list.
There are hundreds of forms to track.
Frank FreeseAsked:
Who is Participating?
 
Martin LissConnect With a Mentor Older than dirtCommented:
Dim frm As Object
For Each frm In Application.VBE.ActiveVBProject.VBComponents
    If frm.Type = 3 Then '3 = vbext_ct_MSForm
        Debug.Print frm.Name
    End If
Next

Open in new window

0
 
Frank FreeseAuthor Commented:
thanks...that go what I need
having an issue with using one form (yesterdays work), but I haven't finised researching what I have not done (which is probably the case). If I need help I'll let you know...
0
 
Frank FreeseAuthor Commented:
Martin,
My good man you "nailed" it!!!! One down and 316 to go.
Thank you so very much.
I started to get into Excel programming with this project and I have leanred so much. I'm an Access developer first (with little demand here in Memphis) but now I am building great Excel skills.
If we do not connect before 1/2, enjoy your trip, leave the laptop at home and always remember #3.
Frank
0
2018 Annual Membership Survey

Here at Experts Exchange, we strive to give members the best experience. Help us improve the site by taking this survey today! (Bonus: Be entered to win a great tech prize for participating!)

 
Martin LissOlder than dirtCommented:
You're welcome and I'm taking your advice.
0
 
Frank FreeseAuthor Commented:
Great...
I found a problem in our thread on a single form.
Some of my tabs did not have solutions yet. So I manually entered them in the SolutionsDisplay - no problem, until I got to a formula. I solved that by simply placing an ' before the formula to indicate that it is text.
This change is fantastic. What I have found interesting is that I expected the size of the workbook to get smaller since I will have a lot less forms. Instead it is growing, even after a compile. As I go through each sheet I'll evaluate to see if there are any ranges no longer needed.
0
 
Martin LissOlder than dirtCommented:
...I solved that by simply placing an ' before the formula to indicate that it is text.
That works of course but one of the steps I suggested in another thread of ours was to select all the cells on the sheet and format them as Text (the default is General). If you do that you won't need to worry about formulas.
0
 
Frank FreeseAuthor Commented:
That's interesting because I started our formatting the complete sheet as text. Since some of my forms were already created in a text box one has to conclude that it is text when copied into Excel. That might explain why the problem did not appear until I manuualy typed in a formula. The ' did solve the problem though.
0
 
Martin LissOlder than dirtCommented:
BTW did you see my last post in this thread? Even if you looked at it before, look again because I edited it with a better solution.
0
 
Frank FreeseAuthor Commented:
If this is what you're mean(?), yes, and I've already incorporated it.
Private Sub UserForm_Activate()
'new
cmdPrintAlterSol.SetFocus
End Sub

Open in new window


If not, then I must have missed something.
Something better - maybe I'll start calling you "Santa"!
0
 
Martin LissOlder than dirtCommented:
I'm referring to the ShowSolution code in post ID: 39741122 in that thread. That code uses AutoSize rather than a formula to calculate the proper height for txtSolution. Have you incorporated that new version of the sub? If you have then it's up to you of course but barring any current problems I think you should close that thread.
0
 
Frank FreeseAuthor Commented:
Yes, I've incorporated that...OK...If I have any additional issues with that I'll open a new question. Thanks.
0
All Courses

From novice to tech pro — start learning today.