Selectively Delete Controls In Code
Aug 4, 2006
I'm trying to programatically remove select controls from a worksheet (I want to keep combobox and buttons, but remove all else). I execute the following code, but keep getting a run time error "The index into the specified collection is out of bounds" about half way through the deletes.
Dim i As Integer
Dim counter As Integer
i = ActiveSheet.Shapes.Count
For counter = 1 To i
If ActiveSheet.Shapes(counter). Name = "ComboBox1" Then Goto SkipDelete
If ActiveSheet.Shapes(counter).Name = "CommandButton1" Then Goto SkipDelete
If ActiveSheet.Shapes(counter).Name = "CommandButton2" Then Goto SkipDelete
If ActiveSheet.Shapes(counter).Name = "CommandButton3" Then Goto SkipDelete
ActiveSheet.Shapes(counter).Delete
SkipDelete:
Next counter
View 4 Replies
ADVERTISEMENT
May 9, 2012
How do I selectively rename sheets by sheet code name?
Instead of sheet1.name = "New Name" I need sheet1 to be a variable of a specific sheet.
View 4 Replies
View Related
Apr 21, 2009
I have an excel project, and am wanting to delete the controls in the toolbox which are not in use.
Is there a way to find out what is not in use?
in the old VB days, you could just unselect the controls... if they were used it would error out..
View 9 Replies
View Related
Mar 12, 2013
I have an active x control command button on the same sheet as some shapes (lines,circles) which are generated from some parameters. I want to be able to delete the current shapes so I can plot the next shape. Below is the delete shapes part of the code, not sure how to complete the code.
Currently, the box is getting deleted as well as the shapes
Code:
Private Sub CommandButton1_Click()
Dim line1_Beginx As Single, line1_beginy As Single, line1_endx As Single, line1_endy As Single
Dim line2_Beginx As Single, line2_beginy As Single, line2_endx As Single, line2_endy As Single
[Code]....
'Calculate positions of line vertices for plots
line1_Beginx = 1000
line1_beginy = 1000
line1_endx = 1000 + CD_2
line1_endy = 1000
[Code]....
View 2 Replies
View Related
Sep 5, 2006
I have to rewrite this code so that when i copy the sheet and paste it, to paste one Toggle button with its assigned macro. I don't want the whole workbook cause there are one combo box, another four toggle buttons and a command button, that i dont' need in the new file. So only to insert one toggle button with its macro.
Sub FileSaveCopyAs_Click()
Dim strFileName As String
Dim theNumber As Variant
Dim theFirm As String
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
theNumber = Sheets(1).Range("F13")
theFirm = Sheets(1).Range("E1")
strFileName = Right(theNumber, 4) & " " & theFirm
ActiveSheet. SaveAs Filename:="C:Documents and SettingsSecretaryDesktopFacturi" & strFileName & (".xls")
End Sub
View 9 Replies
View Related
May 11, 2007
I have two radio buttons. Let's call them Button_1 and Button_2. They both have code behind the click event.
One of the lines in the Button_1 code makes the value of Button_2 false. If Button_2's value at the time is true, the Button_2 click event fires off and runs through it's code.
How do I disable Button_2's click event in this scenario so the value changes, but the code in it's click event won't run?
I tried application.enableevents = false, but that didn't do it.
View 9 Replies
View Related
Sep 7, 2006
I give some integer "X" and the program must add "X" checkboxes on User Form.
View 5 Replies
View Related
Dec 14, 2007
way to allow a user to add a control to a userform without going into the VBE. Here is the situation, I am developing a userform to calculate a projected budget. I want the user to be able to select the number of controls to add, and click a command button to add them. Based on other selections that the user makes, different controls would automatically be added. Is this possible? As a follow up, will I be able to atttach code to these new controls?
View 9 Replies
View Related
Jul 22, 2005
I'm making a form in excel to retrieve a number of welds. This number needs to be passed on to the next form to dynamically create an identical number of input fields (a set of text boxes and labels essentially). Any ideas on how I might do this? Is it even possible? I would like to avoid having 100 (my assumed maximum, it could get changed) sets of input fields and hiding the unused ones,
View 9 Replies
View Related
Dec 13, 2006
Im using the following code on a userform to link the spinner and a textbox:
Private Sub Marketing_spn1_Change()
'ensures the text box changes when spinner is changed
Marketing_txt1.Text = Marketing_spn1.Value
End Sub
Private Sub Marketing_txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' ensure value typed in is valid
newvalue = Round(Val(Marketing_txt1.Text), 0)
If newvalue < Marketing_spn1.Min Then newvalue = Marketing_spn1.Min
If newvalue > Marketing_spn1.Max Then newvalue = Marketing_spn1.Max
' set the spinner value to keep in step with new value
Marketing_spn1.Value = newvalue
' set the textbox to the appropriate value
Marketing_txt1.Value = newvalue
End Sub
I have many spinners and textboxes with the same name (marketing_txt2, marketing_spn3 etc) on both this userform and on other userforms I shall be doing.
Is there any way of just writing this code once, rather than copying and pasting it for each spinner/textbox?
View 3 Replies
View Related
Apr 20, 2008
This code create a userform on the workbook opening .I'm having problems with
1. Closeing the Visual basic window after this procedure runs
2. Being able to use the create userformstext box value in other procedures
3. how to delete the userform on close
Sub AddUserFormInputRequest()
Dim objVBProj As VBProject
Dim objVBComp As VBComponent
Dim objVBFrm As UserForm
Dim objChkBox As Object
Dim x As Integer
Dim strCode As String
Dim firstLine As Long, SecondLine As Long
Set objVBProj = Application.VBE.ActiveVBProject
Set objVBComp = objVBProj.VBComponents.Add(vbext_ct_MSForm)
With objVBComp
. Name = "InputRequest"
. Properties("Width") = 200
.Properties("Height") = 100......................
View 6 Replies
View Related
Apr 29, 2009
I would like to have 4 calendar controls in a worksheet, but even with only two controls I am receiving a Compile Error - Ambiguous name detected: Worksheet_BeforeDoubleClick
View 7 Replies
View Related
Apr 9, 2008
I am trying to dynamically add controls to my user form based on some values in my cell. I am successfully able to create a text box dynamically but my label is not getting displayed. here is my code
Private Sub UserForm_Activate()
On Error Resume Next
If (ThisWorkbook. Sheets("Sheet2").Cells(1, 8) <> "FALSE") Then
Dim ctl As Control
Dim ctl1 As Control
Set ctl1 = Me.Controls.Add("Forms.Label.1", ctl1, True)
With ctl1
View 9 Replies
View Related
May 21, 2008
I have a code that adds a couple of ComboBoxes to a UserForm (the number of ComboBoxes is variable). Now that I want to control a certain ComboBox based on the selected value of another ComboBox (change or click event), how do I do that via VBA code?
View 3 Replies
View Related
Apr 4, 2007
I have a Worksheet_Change method in my sheet module which has suddenly begun working selectively. I have several target ranges in my worksheet that I need to watch for changes. One range of cells is all pull-down menus (a list of electrical loads through excel's validation), another two cells are looking at the name and location of an electrical panel.
When the user selects an electrical load, the worksheet_change method updates a legend of definitions. When the user enters a new name or location, the method updates similar fields elsewhere on the same sheet.
The problem is, excel has stopped executing worksheet_change when a load is chosen or location entered. It only executes when the aforementioned load and location are deleted. However, the name field triggers worksheet_change just fine!
I have attempted to put breakpoints on the worksheet_change method; Excel does not even execute the method as described above. I've tried breaking on the toggling of Application.EnableEvents (which occurs early on in the execution of worksheet_change). I currently have a global watch on Application.EnableEvents and I'm quite sure it's TRUE before I attempt to trigger a worksheet_change event.
My next step is to create a brand new workbook and copy my spreadsheet and code into it. I'll post the results of that experiment.
View 9 Replies
View Related
Jun 11, 2009
my values within column A are separated by a dash. I'd like column B to continuously copy column A with the exception of the characters after the dash. example:
____A_____________B
12345-456_______12345
22456-333_______22456
1553665-45______15553665
How can I format cell B to constantly reproduce this result?
View 4 Replies
View Related
Jun 23, 2007
I am using this code to clear 25 sheets in a workbook.
Sheets("Dadadooo Lasino").Select
Range("A2:I500").Select
Selection.ClearContents
This code works fine, but was wondering if a faster way to do this existed.
View 5 Replies
View Related
Feb 27, 2013
I have a chart with multiple series which I am hoping to show/hide based upon a particular value attached to each series. I was therefore wondering if it was possible to extend the Series object class so that I could have something along the lines of a "Series.specialvalue" property which I could assign and then check to decide whether to show or hide the series?
View 1 Replies
View Related
Aug 18, 2009
=IF(G88="PT",VLOOKUP(B88,Vlookup1!A:R,5),IF(G88="OT",VLOOKUP(B88,Vlookup1!A:R,6),IF(G88="ST",VLOOKUP (B88,Vlookup1!A:R,7),FALSE)))
Two tabs in an excel spreadsheet. One with this formula and another one named Vlookup1 with the info (three columns indicating diagnosis codes for PT (Physical Therapy), OT (Occupational Therapy) and ST (Speech Therapy). Out of approximately 350 rows, this formula works perfectly fine with all but three customers’ names. It seems to be only with the last three customers –sorted alphabetically– and can’t figure out how to solve it. Have reduced the amount of rows in the info tab / have changed the format of all cells for these 3 customers / have retyped all information under another row and inserted above all the conflict rows but it always brings “0” as the cell value – not even False….
View 4 Replies
View Related
Feb 26, 2008
I've got a master excel sheet with about 6000 rows of unique variables. In separate source files, I have many rows of these variables with information next to each. Each file has a random number of these variables, some a couple of hundred, some a thousand or two.
What I'm looking to do is to have the master sheet with all 6000 rows and have all of the information next to each variable, with new columns for each new bit of information.
I could sit there for hours copying and pasting each new bit of information to the relevant variable in the master sheet, but I'm convinced there's a quicker way. Is there, for example, a way to filter the master sheet based on the variables contained in one of the source files and therefore (once a-z sorted) copy all the information from a source file and simply paste it into the master file? Then once the filter is lifted the same can be done for the next file (there's only about 20 source files so that's manageable).
View 7 Replies
View Related
Apr 26, 2008
Is it possible to selectively format text in a textbox on a userform ie. to make some of the text bold, other parts underlined and other parts italic etc. The text which appears in my text box is entered automatically by a piece of code which extracts the contents of certain cells and arranges them in the text box as needed. I would now like to be able to display the text box with the text formatted so that its not just all in plain text.
View 4 Replies
View Related
Jul 9, 2013
I'm trying to copy cells from a column in one workbook to cells in a column in another workbook based on what's in a header column.
Such as
Original workbook
Mat Qty
A 1
C 3
D 2
E 4
G 5
Total 15
Target workbook becomes
Mat Qty -> Mat Qty
A -> A 1
B -> B
C -> C 3
D -> D 2
E -> E 4
F -> F
G -> G 5
My code so far (which might not be worth reading) is:
Code:
Sub CopyColumnToWorkbook()
Dim sourceColumn As Range, targetColumn As Range, sourceColumnValue As Range, targetColumnValue As Range
Dim mySourceCell As Range, myTargetCell As Range
[code].....
I'm getting a runtime error ('1004'. Application-defined or object-defined error) on the Copy statement within the If sttement.
View 3 Replies
View Related
Feb 23, 2014
I am attempting to modify VBA code from [URL] .....
The section of the code I want to modify is below dealing with importing selective text. The original function returned a "False" if the line contained a keyword specified in the Array function. I have reworked it so that it shows a "True" if the line contains a keyword specified in the Array function.
My only problem is that it only does it when the keyword appears in the beginning of the line, as it uses the "Left" operator in looking at line. How do I configure the function so that it returns a "True" if the keywords appears anywhere in the line?
View 4 Replies
View Related
Jul 24, 2009
I'm trying to write a VBA script which will delete all rows in my Excel spreadsheet where Column I (which contains a status code) does not contain the word "Completed".
At the moment, I'm doing this the other way round: my script is able to search for entries in Column I which contain the status codes "Pending", "Awaiting Authorisation", "In Progress" etc and delete them. The idea is that when all those rows are deleted, I'll only be left with rows which have a status of "Completed". This works fine at the moment. However, the concern is that if a brand new status code is added to the data file, my script would be unable to pick it up and delete it. This is a small sample of the code I'm currently using (which deletes all the rows with statuses other than Completed):
View 4 Replies
View Related
Apr 26, 2009
I'm wondering if anyone has code to delete a row on all but the first 5 sheets in a workbook? I'm using Excel 2007.
View 2 Replies
View Related
Mar 27, 2014
I would like to add 2 buttons to each page. One button to add a row at the bottom of the table while keeping all of the same formatting and another button to Delete a selected row from the table. So that if there is more assignments than allowed in the current table, a row could easily be added.
I would think that the code for the class sheets would all be the same.
The other obstacle I thought about is possible making a button on the Summary page that would add another sheet, call it Class and whatever number comes next and also add it to the summary table with the same formatting (including the hyperlink that's in the Classes column where it will take you to the Class sheet that you want to drill down to).
I have attached the file. If the summary sheet is took much work it's not a big deal, I would be fine with just being able to have 2 buttons on the class sheets that allowed them to add and remove and such.
I would also like to contribute. I know a decent amount about SQL and SSRS/SSIS Reporting services.
I also need it to be able to unprotect my worksheet and then protect it back, Since I will only want them to be able to type in the areas I specify. I also moved the summary at the bottom of each class sheet to the right side at the top so its easier for them to view.
View 5 Replies
View Related
Jan 22, 2009
I have an excel file that i need to delete some empty rows in the file. it looks like this: I have to delete THE EMPTY ROW above each custom table, and leave everything else as it is.
empty row
custom table
data
data
data
empty row
custom table
data
data
data
data
empty row
custom table
data
data
View 11 Replies
View Related
Mar 16, 2009
How do you delete a single sheet from a workbook by name? I assumed something like this, but it doesn't work
View 2 Replies
View Related
Mar 25, 2009
VB Code to delete a file. I have the following code that creates a file.
View 4 Replies
View Related
May 12, 2009
Can anyone help me here? I'm in need of a VB Code.
I need the code to do the following:
If any cell in column "L" = "n/a" then delete that corresponding row.
IE - Cell L23 = n/a so then delete row 23.
View 11 Replies
View Related
