Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Print form "frmxxxx" names

Posted on 2013-12-26
11
Medium Priority
?
264 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 5
11 Comments
 
LVL 49

Accepted Solution

by:
Martin Liss earned 2000 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 49

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
 
LVL 49

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 49

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 49

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

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

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

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

705 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