I have a textbox in a user form that I'm using as a way for someone to view what I've written but not for them to write in. Is there a way to easily disable them from writing in the text box?
View 2 RepliesI am looking to stop the user saving the sheet if certain fields are not complete.
The sheet has headers on line 4 and runs from A4 to M500
In the M cells there is a counta function to check the records are complete.
M4:M500 shows either
Complete - All records comlpete
Incomplete - something missing
Blank - nothing entered yet.
What i want to do is, if one of the cells in M shows incomplete not allow them to save the sheet until its complete.
I tried the folowing (was my attempt to modify another post)
I've got a userform for pricing items and am having an issue when changing margin. I want to validate the user enters in .22 or 22%. The code places the decimal value in a worksheet just fine and runs back end calculations. I want to make sure no one fat-fingers .12b by accident so I came up with the following code. It seems to run fine, but if I tab over a couple of textbox (there are 4 Margin textboxes) it trips the coding for that textbox even if there was no change to the value.
Code:
Private Sub txtPDLaborMargin_AfterUpdate()
If IsNumeric(txtPDLaborMargin.Text) Then
Range("LaborMargin") = txtPDLaborMargin
[Code].....
how to validate the value is numeric
I have tables on a spreadsheet and userforms created. Is there anyway to prevent users from just typing on the worksheet so they will have to use the userform?
View 4 Replies View Relatedhow to write VBA to stop user typing in a combobox but only choose from the dropdown list?
SO that to avoice any device I/O error.
I have a userform that i have set the showmodal property to false.
This form has a list box that is populated with a huge list of items. I have a textbox in the userform that i use as a filter. so as the user types in something it filters the results in the listbox.
This was working fine but I added to the code to put a tooltip in when hovering over a item in the listbox. (using windows API to achieve).
The problem now is after i type one letter in the text box and it runs the change event it doesnt place the cursor at the end of the textbox anymore to continue typing.
I have tried setting focus to the textbox at the end of the event but nothing happens. I have searched all over the internet with no luck.
I would like to create a textbox that displays the typed numbers as currency format (similar to selecting currency format for a cell)
so that as the user types in 9999 they will see the textbox populate with
$99.99 instead of just $9.09 which is what happens when I try the following code
Is there a way to protect some cells of a spreadsheet from user input (by typing only), yet letting button controls and VBA macros modify the values of those cells?
I need to prevent users from accidentally deleting formulas or values generated by VBA macros or controls, although they may delete values in some cells.
I have a UserForm that utilizes the Change event of a Textbox.
The form goes through some validating before any calculations happen.
My problem is if the user wishes to backspace, clear or perform any changes to this textbox, it bugs out.
Here's the
File attached
1) I have a user form that picks data from a spreadsheet - This is for scheduling a course. Works fine
2) I have a second form which should do 2 things:
a) On the bottom half of the form, select people from sheet 'Staff'. Works fine
b) On the top part, I would like to select a course (using combo box) and fromt this select a date for when the course has been scheduled (from sheet 'Scheduled Courses'). Courses are run a few times so have multiple entries. With some help, have done this and it works well
The problem is that when I select a date for a course using combobox2, I would like to populate the text box 6 & 7 with the cost of the course and the location. This goes wrong as it starts taking cost and location from the first cell. Eg when i select SPIN Selling, all is fine as this are the first courses. However If I take 7 Habits, it gives me costs for SPIN. If I take OM, it still gives me costs for SPIN. The dates in combo box 2 appear fine
I'm learning 'on-the-job' to code VBA macros and about a week ago I asked a colleague to test (UK/Australian) date entry into a textbox on a userform. I wanted to ensure users can enter virtually any acceptable date format. About 10 minutes after sending the colleague the workbook, she advised that inputting 29 February and a year that is not a leap year had the effect of showing the textbox date in reverse and transferring that date to the workbook with the year indicated as "29" eg. 06-Feb-29.
Since then, I've spent a good deal of time seeking a correction to the code. I've tried scripts for 'If IsLeapYear' with the 'MonthLength = 29' etc, various other if statements and shuffling the original date order of my code. The unadulterated code is below. Does anyone have an answer (other than an Error Handler with a msgBox, informing the user that the date format is wrong)?
Private Sub txtMonth_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim dDate As Date
dDate = DateSerial(Year(Calendar1), Month(Calendar1), Day(Calendar1))
dDate = txtMonth.Value
txtMonth = Format(dDate, "dd-mmm-yy")
On Error Goto EndMacro
Exit Sub
EndMacro:
MsgBox "The date format you've entered is not a valid format!"
txtMonth.SetFocus
On Error Resume Next
End Sub
I want one procedure that will validate the CURRENT textbox (not named by name, to allow for the procedure to be included in the change event of several different textboxes), to see if it is numeric (decimal places allowed) in Excel 2007.
I followed the instructions here: {url}, which describe exactly what I want to do. So I put the final procedure listed on that page (the dynamic validation code) into the private module of the user form object as listed below:
Private Sub pipes_Change()
OnlyNumbers
End Sub
Private Sub OnlyNumbers()
'This procedure checks to see if the value
'of the current textbox is a number or not
If TypeName(Me.ActiveControl) = "TextBox" Then
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Sorry, only numbers are allowed."
.Value = vbNullString
End If
End With
End If
End Sub
I then ran the form and typed a number into the "pipes" textbox that had been validated. A compile error is thrown: "Invalid or unqualified reference", highlighting the ".Value" portion of IsNumeric. I tried to remove certain parts of the code, such as the IF statement and the "And .Value <> vbnullstring", but nothing works. I have a feeling it is because this code was created for Excel 2003 (though I'm not certain).
If it is how do I convert the user input for the text box field as number. thx
View 3 Replies View RelatedI have a question regarding frames and textboxes on a user form.
I have a user form that has a number of textboxes populated from the results two Comboboxes.
I decided to group some of the textboxes in frames for more logical viewing.
I grouped the textboxes, moved them, placed two frame controls on the form then, finished by replacing the grouped textboxes. No code was altered or added.
When I ran the form, only the Comboboxes were functional and the text boxes were blank.
There were no runtime errors or compile problems.
I have a userfrom with a text box which is used to receive a telephone number from the user. The 'Event' code that checks the formatting of the telephone number is "tbCustTel_Exit". If my user enters a format other than what is acceptable for a tel number, they get an error message telling them to re-enter.
My problem is they still end up EXITING that text box they made a mistake in? How can I override them exiting the text box if they make a mistake - and keep them in the text box so they can try and re-enter the tel number again?
I am attempting to format some TextBoxes from within a For/Next loop. I need a way to check which TextBox is the active TextBox in the loop. Using i as the variable, I came up with this code snippet: Me.Controls("TB" & i).Text = Format("TB" & i, "mm/dd/yy")
If i = 3, this gives me in TextBox3 (which is called TB3) the text 'TB3' and not the value of what is in TB3. It has got to bo something simple, I just can't see it!!!
how to quit this Do and For loop:
This simple coding should repeat this four times:
first ask user to input data in Textbox2.Text and then Textbox3.Text until user presses Cancel. --> x 4
But it don't seem to exit the Do Loop
For j = 1 To 4
i = 1
Data1 = TextBox2.Text
Cells(i, j).Value = Data1
Do
n2 = TextBox3.Text
If Cells(i, j).Value <> "" Then
Do
i = i + 1
Loop Until Cells(i, j).Value = ""
End If
In my main macro I have a line that makes it jump into a timer subroutine that starts the main macro every 30 seconds. However, I also have a line in the main macro that makes it jump into another subroutine at 2pm everyday that sends out emails. The problem is that if the timer starts the main macro again before the sending emails subroutine finishes, then it will only finish sending a portion of the emails before it jumps back into the main macro. Is there any way to stop my main macro once it recognizes that it needs to jump into the email sending subroutine, or a way to at least stop the timer subroutine?
the part of my code the jump into the sending emails subroutine and the timer subroutine look like this so far:
If timevalue(now()) >= timevalue("14:00:00") And timevalue(now()) < timevalue("14:00:31") _
Then DAILY_REPORT
End If
StartTimer
A good number of years ago I used a line of code at the beginning and the end of a macro to keep the spreadsheet from moving until the macro was finished. At the close it moved if a movement was necessary.
View 6 Replies View Relatedhow do i stop a sheet from being printed and add an error message/ dialogue box saying this sheet cannot be printed, view only etc etc. this to appear when they goto the print option in the menus.
View 5 Replies View RelatedI have a for which consists of
2textbox
1 listbox
1 textbox.
While entering the data, the cursor does not stop in the list box and goes directly goes to the next textbox. Autotab is set to true.
I am using a code to transfer data from one sheet to another using the VBA below. The only problem I am having is it is copying the conditional formatting as well which I don't want it to do as it is already set up in the sheet it is copying to. How can I stop this?
Code:
Sub MONTHLY_UPDATE_TextBox2_Click()Dim rRehab As Long, i As Long
Dim wsRehab As Worksheet
Set wsRehab = Worksheets("AUG")
[Code]....
I have event procedures for the following form events: Before update, After Update, On Open, On Load and On Activate and I have added a breakpoint to every event.
However, despite breakpoints in all these pieces of code the form opens and closes without the code stopping to allow me to debug by manually stepping through the code.
Have I done something fundamentally wrong, I'm still a newbie at VBA?
I have written the macro;
Sub
For i = 2 To FinalRow
If Cells(i, 1).Value = Range("A1") Then
Cells(i, 1).Select
End If
Next i
End Sub
And I was wondering if there was a way to end the Sub as soon as it gets to the Cell with the “A1” value in it as opposed to just continuing through all the rows to the end of the sheet even after the right value has been found?
I am running a timer in XL using the Application .OnTime Method.
Everywhere I've looked tells me that the procedure to stop the timer is
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, schedule:=False
End Sub
I have this code in with the timer, but when I hit F5 or go to Tools--->Macros--> and Run the StopTimer Macro the timer just keeps running.
how I can properly call this procedure and stop the timer?
I have the following VBA in the attatched spreadsheet (seperated so I could upload)
The only problem that I have is that I cannot stop the loop, it constantly keeps going round in a circle.
What im wanting to do is when the Date checked is the End date and the End Time has been checked, to move onto the next row and do it again until it gets to row 40.
Sub Calculate()
Dim CellNo As Integer
Dim CurrentDate As Date
Dim StartDate As Date
Dim EndDate As Date
Dim theDate As String
Dim c As Range
Dim i As Integer
Dim addDate As Integer
Dim DaysHoursSick As Date
Dim StartWorkTime As Date
Dim EndWorkTime As Date
Dim endmarker As String
I've only got this VBA working really under Wednesday so I can make sure it is right before adding it onto the other dates,
I'm using Application OnTime to fire a procedure every 30 mins. It works great, but the workbook tries to reopen itself when i close it (but not if i close excel entirely). I assume this is because I haven't stopped it anywhere. So I put a call to a procedure that has: Application.OnTime RunWhen, cRunWhat, , False
In the "Workbook_BeforeClose" event. This doesn't solve the problem. What am I missing?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub
Private Sub Workbook_Open()
StartTimer
End Sub
(module1)
Public RunWhen As Double
Public Const cRunIntervalSeconds = 1800 ' thirty mins
Public Const cRunWhat = "dothis"...............................
Why I get a debug message on the following piece of code
[URL]
VB:
Sub Macro2() '
' Macro2 Macro
' Macrorecorded 10/12/2013 by nathajos
'
[Code].....
I am getting frustrated with the Text to Columns Wizard. After using it once on a spreadsheet, it continues to opperate whenever I paste.
Is there a way to stop it from automatically converting text to columns when I paste?
I am trying to stop this code from re-occurring at the end of the spreadsheet. There are two constants that will always appear as text, one is "blank" and the other is "Grand Total". I would prefer to use "Blank" if possible. The spread sheet varies in size from day to day. I have a range right now in use up to A700. I did this because when I originally put in a column formula, it ran until 20000 + rows down. Can someone please provide me with a formula that stops this code once it reaches the bottom of my spread sheet?
View 2 Replies View Related