Solved

Print form "frmxxxx" names

Posted on 2013-12-26
11
230 Views
Last Modified: 2013-12-27
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.
0
Comment
Question by:Frank Freese
  • 6
  • 5
11 Comments
 
LVL 46

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 39740203
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
 

Author Closing Comment

by:Frank Freese
ID: 39740251
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
 

Author Comment

by:Frank Freese
ID: 39741887
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
 
LVL 46

Expert Comment

by:Martin Liss
ID: 39742205
You're welcome and I'm taking your advice.
0
 

Author Comment

by:Frank Freese
ID: 39742332
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 46

Expert Comment

by:Martin Liss
ID: 39742355
...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
 

Author Comment

by:Frank Freese
ID: 39742396
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
 
LVL 46

Expert Comment

by:Martin Liss
ID: 39742477
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
 

Author Comment

by:Frank Freese
ID: 39742557
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
 
LVL 46

Expert Comment

by:Martin Liss
ID: 39742568
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
 

Author Comment

by:Frank Freese
ID: 39742592
Yes, I've incorporated that...OK...If I have any additional issues with that I'll open a new question. Thanks.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Drop Down List with Unique/Distinct Values (Part II - ComboBox or ListBox and Data Validation List Bonus!) David Miller (dlmille) Intro This article focuses on delivering unique, sorted lists to list objects (e.g., ComboBox, ListBox) and Dat…
Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now