I have a spreadsheet that records data on various sites with data entered on a userform.
Every so often a site may need to be added or deleted. Is there anyway to use VBA to add an additional field to a Userform, and then also delete the field if necessary?
Code: Private Sub cmdSearchButton_Click() Dim txtbox As String 'stores lookup value Dim x As Variant 'value for wwid txt box Dim ForeName As String Dim SurName As String Dim wwid As Variant Dim iPosition As Integer
[Code] .......
Here is my code, it does a vlookup and if the persons name is not found it will split the text entered into forename and surname but when i try and add
It actually displays &ForeName & in the text box of the next from rather than what ForeName is..
eg. John Smith -> search button -> user not found msg -> user wants to add user -> string is split into forename and surname -> forename = John , surname = Smith -> display this in the second form.
What code should i be using to do this, i thought that &ForeName & would work.
I have a form that has three fields (1. Comments (TEXT), 2. Legacy_Comments (TEXT), 3, Comment date (DATE))
Now my users need to keep adding comments to the comment text box, and when they do it automatically adds the date they entered the comment in the Comment date box. Now my problem is that since they keep adding comments to the comment box, I need to keep track of these comments in the Legacy_Comments (Text box).
For example, the First time a user enters a comment into the (1) comment text box it auto populates the date in the comment date box, and then adds the comment and date to the Legacy_Comment box. the end result is (comment,4/3/2014 now lets say a user needs to add a comment to the comments box tomorrow - I want the legacy_Comment box to then read (comment, 4/3/2014; comment2, 4/4/2014, ...., comment(n),date(n)) OR it can be vice-verse, because I just need to keep track of the comments, I am not worried if the new comments are before or after older (yesterdays / the day before yesterdays comments)
How can I write a VBA code that will always add the new comment to the legacy_comment field, without deleting the comments that were entered previously?
Code: If isnull(me.comment.value) Then Exit Sub ElseIf me.comment.value = true Then me.comment_date.value = date me.legacy_comment.value = me.comment.value & "," & me.comment_date.value & ";" me.legacy_comment.value = me.legacy_comment.value & "," & me.comment_date.value & ";"
It adds the comment only the first time, but it does not concatenate the string from yesterday to the string to today. I do not care which order the comments are, meaning if I added a comment today it can be before OR after the comment from yesterday.
I'm trying to create a spreadsheet for irrigation system program times. Each program has a start time, say 2 a.m. Multiple zones then run for varying times in a cycle. I need to add the run time to the start time to produce the next start time, and continue that through many zones. I can get the first few by simply formatting the cells as ##:## and using =F2+G2 (the start time is in F and the run time is in G) using 20 minute run time as a test. But when it gets to the third zone, my results show 2:60 a.m. and all results are incorrect from there on. Is there any way to do what I need in Excel?
I'm trying to set up a macro that will capture all the unique values in a column, and then create a new sheet for each value. What I've got so far technically works, but it's also adding an extraneous sheet (with a generic sheet name, not the specified name I'm giving the sheets) and also giving me "Run-time error '1004': Application-defined or object-defined error" when it runs.
I am converting Excel Templates which were developed in office 97 to Excel 2003.The templates are running fine in office 97 ,but when I run the same template in off 2003 I get the error "Run time Error Code 1004 : Application or Object Defined " and when I tried to debug the cursor is pointing to a cell which contains a formula which add multiple cell values.Can any one throw some light on this why the template which works fine on office 97 is not working in office 2003?
I am trying to run code to update Excel Worksheet from the value in a cell.
The code is -
Sub upDateSheetNames()
'Standard Module code, like: Module1. Dim ws As Object
For Each ws In Worksheets [Code] ......
Although it does actually work i.e. populates the worksheets with the correct values when I run the code a dialogue box appears indicating - "Run-Time Error '1004' Application Defined or Object Defined Error"
When i select the 'Debug' option the "ws.Name = ws.Range("Q1").Value" line is highlighted.
I wrote the below code, the error seems to be occurring on the ActiveSheet.Name line. At this line the debugger is giving the runtime error.
Sub ListWorkSheetNames() Dim Sheetnames Sheetnames = Sheets.Count Sheets.Add ActiveSheet.Name = 'SheetList' Sheets(SheetList).Move after:=Sheets(Sheetnames + 1) For i = 1 To Sheetnames Range(A & i) = Sheets(i).Name Next i End Sub
way to save user-settings at runtime, preferably in the same or another module. For example: how can I save a bundle of variables such that the next time excel is started and the workbook is opened, the user can continue to work with his personal settings?
Background: Using the macro, I am writing on atm, a user will be able to adjust the macro according to his input-samples. Here the columns and rows of an input can be varied to fit the macros requirements. It would be great if those settings could be stored, irrespectively of where the file currently resides. That is, best it would be, if the source-code itself could be changed ... maybe by adding another module?
Dim x& With Sheets("PLAYERS") For x = 1 To .Cells(Rows.Count, "C").End(xlUp).Row If .Cells(x, "C").Value = Me.ComboBox1.Value Then _ Me.TextBox3.Value = .Cells(x, "D").Value Me.TextBox26.Value = .Cells(x, "E").Value
I've got a userform which adds Textboxes automatically depending on a certain value. And the amount of Textboxes varies from 1 - 100. I add them with the line:
Set MyControl = UserForm1.Frame1.Controls.Add("forms.textbox.1", strControl, Visible)
Now my question is: Can I add a macro to each of these textboxes automatically? A macro for the Change event I think it is.
All textboxes would have the same macro.
I kinda hoped it would be one of the following: MyControl.OnAction = "test" MyControl.Change = "test"
I have the code below to add a text box to a tool bar. My question is can it be a updating text box such as the forms "TextBox1_Change"? I would like it so that as the user changes the text box it runs the Loc_Box sub. Example if "H" is in the text box and the user types "1" then Loc_Box runs, or "H" is deleted it runs, is this possible?
Set TB = CommandBars("Loc Box").Controls. _ ****Add(Type:=msoControlEdit) With TB ****.OnAction = "Loc_Box" ****.Caption = "Loc Box" ****.Width = 100 End With
The following code works fine but I need some assistance on how to add values from a textbox per say. How would I go about adding the value of textbox1 to the code below. .HTMLBody = "<HTML><BODY>Job# –<br>Client Acronym –<br>CSR –<br>Kit(s) –<br><br>Comments –<br><br></BODY>" & Signature
Why am I getting a runtime error on the following code:
Code: If Target.Address = "$E$5" And Target.Value "" Then Range("E5:G5").Copy If Sheets("Sheet5").Range("F5").Value = "" Then Sheets("Sheet5").Range("F5").PasteSpecial xlPasteValues Else Sheets("Sheet5").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End If End If
When I select only one cell it's ok but when I select multiple cell to delete it sends me a run-time error '13'.
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?
I am creating a userform in excel 2010 (64 bit) that is a 14 question survey. I am trying to get a simple datepicker to appear when user clicks or tabs into a designated textbox which I have named TextBoxDate. I would then like the user to select a date and for that date to appear in the dd/mm/yyyy format in the textbox. Should be easy, right?
I have tried downloading several datepickers, most from the open source thread Non-activex Datepicker Calendar Control on this site. But I am unable to successfully tweak the code to get the datepicker to work how I want. I also am not looking for a datepicker that is complex with max and min date ranges etc.
i've got a sample database (attached) with a userform for inputting of data. What i want it to do is automatically generate the next number and add it to textbox "our ref" on the userform. the number is in Col C. This is the code i've tried using the code highlighted in red which doesnt work.
I am using MS Excel 2007 for copy paste purpose I am using the below macro.
Sub WrapText() If Range("C3").Text "" And Range("C4").Text "" And Range("C5").Text "" Then Range("D5") = Range("D4") & Chr(10) & Range("D5") Else MsgBox "CELL VALUE IS EMPTY" End If End Sub
But the thing is that i want such a text box where the cell range D4 getz pasted into a text box and with that i want a macro that clears the values of the text box.
In a userform i have created an textbox. The user types some text in it and after clicking an OK-Button this text must be copied to a cell To allow multiple lines (enter = new line in textbox) i have changed the textbox property EnterKeyBehavior to True. The problem is that after copying this textbox1.text to a cell in see square blocks in the cell.
line1[] line2
instead of line1 line2
I use the following code to copy the text into a cell:
Private Sub CommandButtonOK_Click() Dim TextboxText As String TextboxText = TextBox1.Text ActiveCell.Value = TextboxText Unload Me End Sub
how to avoid this [] (should be like alt-enter in a cell)
Just trying to figure out if it's possible to add to an existing piece of code via a TextBox value. Basically I have the below code and each time a new entry is made I'd like it to automatically add some more to it.
Case "Whatever" outsh = "Whatever" Case "Happens" outsh = "Happens" Case "I'll" outsh = "I'll" Case "Keep" outsh = "Keep" Case "Trying" outsh = "Trying" Case ":)" outsh = ":)"
I would like to add these two lines when a new entry is made.
Case "New_Name" outsh = "New_Name"
A link or pointer in the right direction'd be tops. btw the code is married to a Command Button which has more code involved.
I have a userform and I want a textbox that counts cells J7,M7,P7,S7,V7. Does anyone know how to write this code and where to put it. All I want is the textbox to show how many cells of these five have data in them and I want it to update automatically.
I am working with Windows Vista, and Office 2007 and am trying to figure out what should be a simple line of code to copy the text from 2 textboxes on an excel sheet to a separate textbox located on another worksheet.
The code I am trying keeps giving me the debug error, saying Here is my full code; runtime error 438, object doesn't support this object or method.
Private Sub Workbook_Open() Worksheets("Summary Page").TextBox3 = Worksheets("Description").TextBox1 & Worksheets("Description").TextBox2 End Sub
Trying to make a error checking macro (if field is blank, then erro prompt and change textbox backcolour to red). However, I have a lot of text boxes, and my current macro is
i have 15 textboxes in my userform (all with tags).
instead of having 15 seperate sub routines that call on one macro is there a way i can write some code that, on entering any texbox within a form, a specific routine would be called
i tried using the Userform_click sub like so, but with no joy:
Taking the Selected or Active Cell in Sheets("positions"), eg, L5 but then finding the exact Cell match in Sheets("price"), eg, also L5 and placing this cells Value in Textbox1.
The 2 sheets are exact mirrors but contain different data.
