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 RepliesI am trying to determine how to get the code below to fire whenever cell J10 is populated and do nothing when cell J10 is not populated but I can't quite get it. (Cell J10 is manually changed and is not changed based off of a formula)
View 4 Replies View RelatedData 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'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 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
I would like to simply validate the value entered to a cell against cells of a number of columns. I’d like it to return a vlue to be able to report it in another cell as below. (had to cmma separate the columns, can't get them aligned in this editor)
A, B, C, D, Q, R
1, b, 1, 2, 1, existing
or
A, B, C, D, Q, R
1, b, 1, 2, 5, not existing
So the user enters a value in cell Q to check against the other columns and return a value to R. Additionally, the cells to be validated (A - D) may contain more than one character, i.e. cell A could = 1b2.
The code below automatically displays the validation when I select the cell. But I would like the cell validation only display when the cell is empty. If the cell has data in it, then do nothing, but if the cell is empty, then display the validation.
If Not (Nothing Is Application.Intersect(Target, Range("B9"))) Then
SendKeys "%{down}"
End If
I've been struggling with this for a little while today and quite can't seem to figure it out. I have a range --- A6:A28 --- where a user will enter a percentage. The total should add up to a 100%, which is in cell A30.
My understanding is that a need a worksheet_calculate function to tell users to revise their entries if the results in a cell A30 are either less than or more than 100%. This is the simple, non-working procedure I have now:
How can I validate a cell to get only text and undescore?
Not any other special characters, like space, @#$%^&*()+!~
Cell C10 contains 2 possible values, "CLIENTS" or "INDIRECT"
These are also the names of 2 dynamic named ranges
I am trying to use a COUNTIF to validate a subsequent cell, checking if the contents appear in the original list.
=COUNTIF(INDIRECT(C10),D10)
Checks to see if the value entered into D10 is within the dynamic named range, the name of which is entered into cell C10
Gives me a #Ref error
I have a sheet which in a certain cell (H4) must contain either an "I", "J", "R" or "S" in upper case.
The user fills in the sheet, and then a macro runs that does lots of things. I have been asked to put a bit of code at the start of the macros to validate the contents of cell H4.
However it doesnt seem to work, particularly the isempty statement
Sub SiteVal()
'
' SiteVal Macro
'
If ("H4") = "S" Then
Else
If ("H4") = "I" Then
Else
If ("H4") = "R" Then
Else
If ("H4") = "J" Then
Else
If IsEmpty("H4") = True Then
MsgBox "Site code must be input"
Exit Sub
Else
End If
End If
End If
End If
End If
'
End Sub
I would like to use VBA to validate the data in an Excel worksheet against either a named range or an array of valid data.
The valid data comes from an accounting system. It is a list of customer numbers. I am using ODBC and SQL to get the data into an array and then into a named range. This is working fine.
I want to validate the customer number column in my source Excel worksheet against either the array or the named range.
There are a variable number of lines in the source data.
I have a VBA procedure which starts at cell A2 and then works down column A until it reaches a blank cell.
I would like to use a VBA formulae which does something like:
IF active cell offset (0,3).Value in (named range or array)
Then set cell colour for active cell offset (0,3) = Green
Else set cell colour for active cell offset (0,3) = Red
End If
Or something like that.
Can this be done using VBA? Or do I need to create a new column in my source data and use VBA to place a VLOOKUP based on a named range into this new column?
I have a column which is formatted to custom [hh]:mm but could also have the following text entry "NWD", which is either the hours a member of staff works or Non Working Day.
I tried using a data validation list with **:** and NWD, but it recognises the **:** as exactly that.
I have used the following =IF(ISBLANK(Q6),"",(NOW())) & =IF(ISBLANK(Q6),"",(Today())),
but when the excel file is closed and opened the date changes to now or today. How can I make the date stay and not change?
how to hide a value on a cell when another cell is not yet populated?
like for example:
A1 is Blank A2 has a formula of workday(A1,2) a date will appear on the A2 cell and I want not to show or be hidden the date in A2 until A1 is populated
I am now looking for a command that will return if a cell is populated. I.e. I need something that will find out which cell is the last one populated in a column (populated = contains data) and then will move 2 cells down, and then will enter some data into the following cells.
View 4 Replies View RelatedI am trying to get a cell to become a hyperlink after it has been populated.
For Example:
If cell H42 of Sheet 1 = [ X ] Then create a hyperlink to cell B2 of sheet 2.
I have been trying quite a few different things the latest I have written is the following:
Sub Macro1()
Dim cell As Object
Set cell = [ X ]
If H42 = cell Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet2!B2", TextToDisplay:="[ X ]"
End If
End Sub
I am trying to write some code to choose the last "comments" entered in column 13 and then copy the data to B17 on the specified sheet below.
I get an Excel Error Excel cannot complete this task with available resources. Choose less data or close other application THEN a VB error Method'open' of object 'Workbooks' failed
Code:
Dim MyMgr As String
Dim whichsheet as string
MyMgr = Range("D10")
whichsheet = Range("D11").Value
If MyMgr = "Manager1" Then
Set myBook = Workbooks.Open("destination", Password:="manager1") 'Home
[Code] ........
I have to create a formula to fine difference between 2 numbers.
There are columns A to Z.
Values will be populated in A1 to Z1. Sometimes the value will stop in between itself. For example H1.
So, I need a formula to catch the last populated cell (H1 in our case) and then find the difference between the value in its previous column.
H1-G1 should be the result I should get.
I'd like to get a reference to the last row or cell in a column of data.
View 9 Replies View RelatedI am trying to make a date auto populate when an entry is made into a specific cell.
Context:
Cell H has a drop down list of staff names who will be assigned to a project, once a name is selected from the drop down box:
Cell I needs to auto-display that days date
is this possible with just a simple formula?
See attached formula:
"=INDEX(DATABASE.xls.xlsx!$AT$5:$AT$2001,MATCH(AR10,DATABASE.xls.xlsx!$O$5:$O$2001,0))"
Cell AR10 is my target cell and then there are 15 other cells that populate when the correct information is put into cell AR10, but if one of the other cells does not have any information in it, it returns a "0" (zero). I am trying to get the cell to show blank as when I print I don't want a "0" (zero) in every cell that has not got any information.
2 x cells are showing telephone numbers, 1 x landline and 1 x mobile - sometimes we don't have a landline number, so I want the cell to show blank not "0" (zero)
The cell format is set to "text", but I have tried setting it to "general", "number" and finally settled on "text", but all return "0" (zero) if we don't have a number for them.
I have attached a sample file. I would if possible like to have a hyperlink at the top of the sheet that when pressed would take you to the last populated cell in column G. I can do a normal hyperlinks but over time the hyperlink would take you to the wrong place as the sheet is filled in more and more. Is this possible?
I have tried to adapt various macros I have found on this forum but they on't seem to do want I ask of them I also seemed to have acquired an extra vba project (Ubitmenuo4) in the worksheet and can't get rid of it, so just ignore that
I have a list where the lines of data I need are not uniform in relation to the customer identifier, ideally I want to get the Lookup (or equivalent) to ignore the blank and move down the column to the next populated cell as below.
Customer identifierAddressCustomer identifier
Address1Vlookup?12Vlookup?Address 13Vlookup?2
Address 24Vlookup?3Address35Vlookup?6Vlookup?47Vlookup?
Address48Vlookup?59Vlookup?10Vlookup?Address 56Address 67
Address 78Address 89Address 910Address 10
I am trying to create a message box that initiates when a cell is populated with a value that is >= a certain value.
My current code looks like this:
Sub Flex()
Application.Screenupdating = Fales
If range("C6") >= .95 Then
Msgbox "Loan approval must be Flex"
End If
End Sub
The code works when I run the macro manually, but I want to run when the user changes the value in the cell.
i need to find the last populated cell in the row say I9:CN9 and return the description for that column the resides in I5:CN5 and then fill the formula down for about 500 rows, just not sure even where to begin, do i need a custom formula in VBA? as i can't seem to find a combination that works built-in...
View 5 Replies View RelatedI have 2 lists and I want to validate a cell to only allow items in List1 or list2 or A numeric value.
List1
D1
D2
D3
..
D10
..
Dxx
List2
Hol
Off
Sick
These lists may changein length and number of items
the second part, is can you valudate based on other values in a column, basically I have a list of names of available operatives, and I want to make sure each name can only be entered once in a column! Would be even better if I could get a dropdown which showed the remaining choices!
Userform that people use. I need validating the users input into the form.
1. Need to validate that A1 only has 3 letters (Alpha)
2. Need to validate that A2 is not left blank
3. Need to validate A3 has only 10 digits
My state is that when the user hits the submit button in the user form the macro checks for these validations above and if everything is ok emails the sheet. However if the user havent inputed the data correctly a msg box will pop to let them know what is wrong. If thats the case i do not want the sheet emailed. below is the email code i'm using
HTML Code:Â
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
.SendMail Recipients:=Array("email.address@email.com"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub
I have been trying to figure out how to use a named range (on another sheet) to validate the user entered data in a specific column. All my attempts at utilizing worksheet_change event have ended in errors. I've created a simple workbook that shows what I'm trying to do and have attached it to this message. The 'Sample (Data)' worksheet has the data table that would be completed by the user. On the 'Validation' worksheet I have named the range to be used to validate the data as 'rngVal'. So when something is entered under the 'Expense Type' heading, the code would verify that the value entered was contained in the 'myVal' validation list. If it was not present in the list, a msgbox would instruct you to try again. After stealing bits of knowledge and code from many of the posts on this site I cobbled together the following (which results in an error at the 'set rngFind' line):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngFind As Range
'Set Target = Cells(ActiveCell.Row, ActiveCell.Column)
Set rngFind = Range("rngVal"). Find(Target.Value)
'If data in column C changes, do the following
If Target.Column = 3 Then
'If the value is found on the validation list, do nothing.
If rngFind Is Nothing Then
Else
MsgBox "You must enter one of the following in this cell:"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
Else
End If
End Sub
I am looking to change a row colour if any type of data is entered into a specific cell.
Context: In column H entitled 'Start Date' when someone enters a date n any format into this box, I want the whole row to change colour to easily see what projects have started and what ones havent.