Data validation failed me here, so I resorted to VB to esnure only letters are entered in a certain cell. The code below is a mess and I need a hand to repair it. I can't figure out how to declare i . .
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a59")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
I have a string and I have to validate that it is entered in a particular format. The length has to be 12 and the characters should be entered in this format: XX1111/11XXX where X represents alphabet and 1 represents number. The "/" is a part of the string.
I tried using the Data---> Validate function and the problem I faced is that the code turns out to be very long and the formaula cell doesnt let me enter such a long formula. Is there any other way to do this without using a macro?
The formula I was trying is something like this.
=AND(LEN(A1)=12, CODE(LEFT(UPPER(A1),1))>64, CODE(LEFT(UPPER(A1),1))64, CODE(MID(UPPER(A1),2,1))64, CODE(MID(UPPER(A1),10,1))64, CODE(MID(UPPER(A1),11,1))64, CODE(MID(UPPER(A1),12,1))
If I have a cell "C8" default value is "choose" and it is a drop list of other values. I want to validate if "C8" is populated with a value other than "choose" that the user populates the SOME of other cells in the row like D8 or F8? I would like to alert something that the cell needs to be populated.
View 1 Replies View RelatedI'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'm trying to validate a string that can have only dots and numbers, but there can't be two dots in a row. String has to begin with a number and end to a dot
So these are ok
1.1.1.1.1.1.
and
2.452443.1.5.21.5.42131.
but
1..1.
and
1.1.t.
and
.1.1.
and
1.1
are not ok.
I am looking for VBAS code to validate a date when a user enters a date. The date format must be in format dd/mm/yyyy for eg 16/05/2014 , 13/06/2014 etc
If date not in this format msgbox to advise user date format invalid
Is it possible to use a string to replace code we use repeatdly?
I know that in C it is possible doing this by using what is called a MACRO
For example, replace: ....
how could I use string to execute VBA. For example
x=10
mystring1="for i =1" & " to " & CStr(x)
mystring2="msgbox i"
mystring3 ="next i"
execute mystring1 & mystring2 & mystring1
Like this, I want to combine a VBA CODE string.
And use this string to execute VBA
I am using the following code to read a formula as a string. But sometimes the use r may forget to enter formula in the particular cell. In this case I want to check if the first character of the string is a Equal-to Sign (=). In case it is then macro proceeds further otherwise a message prompts user to enter a formula first. how to check if the first character of the string is a '=' sign?
View 5 Replies View RelatedI am looking for a piece of code and can locate the range of a specified string, and replace it with something else. For example, I need to find string "AA" and replace that with "BB", can this be achieved with VBA code?
View 5 Replies View RelatedNeed code that will indent text in a cell 5 spaces over.
View 9 Replies View RelatedI am trying to search a string for the first instance of "#" and return everything to the left of it and right of the word "where".
Example String -
Where 11# is greater then 10#
I want to just return 11
11 is left of the # and right of "Where"
For icount = 1 To LenComputername
valComputername = Asc(Mid(UserComputername, icount, 1))
Next icount
If the computer name is NAMTOK-PC Then the LenComputername is 9. Does that mean then that the valComputername is equal to 78?
Is there a formula that can be used to convert a manufacturing LOT Number to a Date? For example, the first six digits of our Lot Number are the MMDDYY followed by an item description (120913DKP-01). We are trying to pull the 120913 portion out of the lot number to equal a Date of Manufacture of December 9, 2013.
View 4 Replies View RelatedHaving some trouble with the syntax to translate the content of a string. The string will always contain stock tickers, but the format varies. I need to normalize them into something like ticker(space)exchange code.
For example, cell 1 can contain:
ABC.EF US - I need to remove the .EF so I'm left with ABC US
ABCDEF.GH TT - I need to remove the .GH so I'm left with ABCDEF TT
The length of the part preceeding the "." will vary, as will the last two characters (the exchange code). I expect that there will always be two characters immediately after the "." which are to be removed.
My question is about converting a Literal String to Character Code. I'm using the following coded InputBox. And it prompts the user for what characters to search for in a string.
View 4 Replies View RelatedI need a VBA code that will insert a column next to A, search column A for a string of say 50 cities, and then enter the classification of that city into column B. example below.
Before
A B
1 Boston Good
2 Atlanta Good
3 Georgia Bad
4 NewYork Bad
After
A B C
1 Boston MA Good
2 Atlanta GA Good
3 Cleveland OH Bad
4 NewYork NY Bad
I'm not actually using cities and states.
This code is not accepting the values which is starting from strings like this
for example
bearing 15/16 IN LG, 1-1/16 IN OD, 11/32 IN THK,21/128 IN ID
19/128 IN LG, 2-3/64 IN OD, 1/2 IN THK, 5/64 IN ID
steel 15/16 IN LG, 1-1/16 IN OD, 11/32 IN THK,21/128 IN ID
19/128 IN LG, 2-3/64 IN OD, 1/2 IN THK, 5/64 IN ID
spares 15/16 IN LG, 1-1/16 IN OD, 11/32 IN THK,21/128 IN ID
[Code] .....
I have come across this wonderful piece of code that kind of accomplishes what I am after, to a point. Though I would like the output string to be displayed with a few extra characters.
Code:
Function Concat(rng As Range, Optional sep As String = " , ") As String
Dim rngCell As Range
Dim strResult As String
For Each rngCell In rng
If rngCell.Value "" Then
strResult = strResult & sep & rngCell.Value
End If
[code].....
I want the output to be:
["cell1" , "cell2" , "cell3" , "cell4" , "cell5"]
Junior Fit Softstyle T-Shirt
Antique Cherry Red
Junior Fit Softstyle T-Shirt
Antique Cherry Red
Softstyle T-Shirt
Antique Heliconia
Softstyle T-Shirt
Antique Heliconia
Softstyle T-Shirt
Antique Heliconia
This is column a and b. Looking at b I am looking for a formula that will pull the first capital letter out of each word like ACR to create color codes.
I would like to extract competition naps from the competition entries and then remove the string ending "nap" from the data so it can be pasted to another sheet in it's 'clean' format.
on the example sheet column B will always be the first column and the range will extend to either G,H or I (always the max range as there are always 6 to 8 races)
i would like the code to search through these columns of data and find the cell ending in 'nap' then to return this in column i, once done remove 'nap' ending from both the source cell and column i.
once done to then go through all the rows and do similar
the end result would be all naps returned into cell j and all the 'nap' endings through the data range B to I (max) to be removed to leave the horses name only.
in book 3 the first row nap was sommersturm so i have shown the outcome i would like with the nap ending in I1 removed and the horse name returned in J1 again minus 'nap' ending.
the data will always be clean with no leading/trailing/excessive spaces and always be lower case too. sometimes a space is not in between horse name and nap but it's always last 3 characters i want removed still.
I need a code that search through a column, counts the numer of times a string occurs and creates on another sheet the unique string and the number of times it occured.
e.g
I have this columns in a worksheet
s/n name company trainer
1 ball Dell Mk
2 doll Msed Kl
3 kol Dlink Mk
4 ball Msed Cl
5 Koll Dell Gl
I need the result to appear on another worksheet like this
Name NumberofTraining
Ball 2
doll 1
Koll 2
If n = 5, then I want to generate a string like this: "1+2+3+4+5". Similarly, if n = 7, I want the string "1+2+3+4+5+6+7".
I can generate the consecutive numbers, but have not figured out how to generate the required string.
A
B
1
Terry lives in England
=FORMULA
2
Claire lives in Spain
3
Paul live in France
I'm looking for a simple formula within the cells of column B to populate the cell with data based on the "country" mentioned in the string of cells in column A. There will be 20 countries and dependant on the country mentioned a 3 character country code will be entered in column B allowing for easy filtering of people based on country code. so something along the lines of if A1 contains "England" B1 equals ENG etc (for abot 20 countries)
The output should look like below
A
B
1
Terry lives in England
ENG
2
Claire lives in Spain
ESP
3
Paul live in France
FRA
We have an internal web site that has files I need to download daily. The filenames have date strings in them. I've setup some formulas to make the url based on the NEXT dated file I need to download.
And I don't have direct access to the drive the files are stored on, I can only get them through this web site.
Right now, I have individual macros for each file I need. They'll follow the url and download the file if it's there, or return a message to me if it's not. But there are several different files. I have to run each macro one at a time, at different intervals during the day until they get downloaded.
Is it possible to make a macro loop through all the URLs (I have them stored on a sheet, called "FileDownloader" in Range G2:G10) and check if the URL's are valid (without actually attempting to download the file). I can then make some kind of dashboard to tell me when the files are ready for download.
I have a spreadshhet which has data by month, year, week and bi-weekly. I would like everything to be monthly. How can I put a formula which will look up the cell and see if it monthly it will the value of the cell beside it, if it is weekly it will take the cell value and multiply by 2 and so on.
View 4 Replies View RelatedI have a range of cells (A1:A50). If "Hello" is written in any of those cells then a MsgBox says "Are you sure?". If vbYes the cell is colour coded blue. If vbNo then it is red.
The problem I have is that "Hello" may already exist within the above range. I only want the above to fire on the cell that has just been changed within the range.
I have some code but it checks every cell within the range whenever any cell is changed within the range. Whereas I just want it to fire on the active cell if that makes sense?
How can I validate that all values in a range of cell are the same, excluding
empty cells?
I have a database on one sheet and a 2 count if formulae recording information on the next to be exact one formulae counts the number of monthly values and the other count yearly values. I want the sum of these formulaes to be equal or less than 25. and to show an error if the sum of these is mor than 25.
View 9 Replies View RelatedI have a ComboBox on a UserForm. One of the fields that I fill in is a date.
After the date is entered I want to check if it's a valid date.
VB:
Private Sub cboEnterDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Make sure a valid date was entered, it must be in the format 2013/10/21.
On Error Goto ERR
'If Not IsDate(cboEnterDate.Value) Then
[Code] .....
ERR:
MsgBox "The date entered is not a valid date", vbInformation
Cancel = True
cboEnterDate_Enter
End Sub
The code:
VB:
'If Not IsDate(cboEnterDate.Value) Then
execute the If routine if I enter the date 2014/03/33
When I enter the date 2014/03/0001 it do not see it as an invalid date and exit the routine.
The code:
VB:
If Not IsDate(FormatDateTime(cboEnterDate.Value, vbShortDate)) Then
send the execution to the ERR routine if I enter 2014/03/33
When I enter the date 2014/03/0001 it do not see it as an invalid date and exit the routine.
How can I get the validation to catch the 2014/03/0001 as an invalid date as well.