I have cells that they're values should be equal B6=B11, B7=B12, B8=B13, E6=B14, E7=B15, E8=B16, I want a macro that if the values are not equal then the background should be RED and a pop up message "The values should be equal".
View 9 RepliesI am trying to check if the dates are equal with multiple if statements! Macro works great if first date is wrong, but if the 2nd or third date is not unequal it does not work anymore.
really tried to do it myself but unfortunately
I added an excelexample
Date in E3 is different (if you type in other date in cell b3 macro does work partially).
I am looking for a macro that will check 2 things....then do something.
The first is if a range of cell values in are blank. lets say
Sheets("Sheet1").Range("D6:G48").
Next is if a particular cell contains a given value ,
Sheets("sheet1").Range("E5") should equal "Year 1" if true.
If both these are true then I want the macro to copy a range of cells from
Sheets("Sheet2").Range("H6:H48") to Sheets("Sheet1").Range("D6:D48").
I tried to use IsEmpty but it seems to return a "False" if a range of cells
are being tested.
how to apply this code to include specifically these ranges in pairs: H50 & H51, H102 & H103, H154 & H155, and H206 & H207.
'tried to cut and paste the code from Private Sub to End Sub changing only
the Ranges (see above), but it didn't work.
Need a Macro to delete all rows containing values less than or equal 300 in column A
View 5 Replies View RelatedI have a macro to insert a row and I would like it to be triggered by conditions in a IF statement or whatever is best? Macro has a ctrl+shortcut.
eg =IFa10=a12
do nothing
or run macro
I'm having trouble with a small vba macro. At the end of the macro I test to see if two variables are equal and then print out true or false. However, for some reason even though the variables are equal vba is not treating them that way. I have put the values that represent the variables on a spreadsheet and used the if(x1=x2) formula and it says it is true, also, when I debug the macro and watch the values when it comes to test the logical expression the numbers are the same. I don't understand why vba does not say that the two variables are equal. I have attached a screenshot of the breakpoint where I double check the values are equal.
View 2 Replies View RelatedI'm trying to set a cell on one sheet to be equal to the product of two cells on another sheet. The problem is that one of the cells on the other page is dependent on the variable T. This is what I've got and it's giving me errors
Worksheets("Output").Range("K14").Formula = "Worksheets("Calcs").Range("D17")*worksheets("Calcs").Range("D17").Offset(10+T,0)"
When I record a macro it gives me this, but again, I need the last cell in terms of "T"
ActiveCell.FormulaR1C1 = "=Calcs!R[3]C[-7]*Calcs!R[14]C[-7]"
I am trying to search a column for specific values.... if the cells in the column equal X, Y, or Z then I want to keep them. Anything else, should be deleted....and not just the cell the entire row that it is in.
So I'd like it to search column E for a number of different values, if equal keep the data. If not (say E6 is not any of those values) then delete that row (all of row 6)
I want to divide the numbers from 2 cells, down a long column. Let's further say that in some instances there aren't any numbers in either of the cells. You get a divide by zero error.
So you have values in a1 and b1 through a10 and b10. You want to divide the value in the a column by the value in the b column and return the answer in the adjacent c column. You've copied the formula all the way down to c20.
All the cells from c11 to c20 will have divide by zero errors.
What is the syntax to check if both cells in columns a and b are greater than zero so that either an answer will be returned or just a blank cell will result, (when nothing is in one of the cells from a or b?
The following formula works for checking the status of cell A, how do I also check the value in cell B?
=(IF(A5>0,A5/B5,""))
something like?:
=(IF(A5>0 and B5>0,A5/B5,""))
I am tryng to perform a logical statement using 3 fields, ex
A1>0,B1<0,C1<0 returns
A1>0,B1>0,C1<0 returns
A1>0,B1>0,C1>0 returns
end statement
I would like a macro to look through a sheet.
1. Unhide all Rows
2. Check through all cells in Row, If all cell values in row is either 0 or Empty then hide this row.
How a single-cell formula to check that 2 transpose arrays are equal.
For example, A1:A5 are {1,2,3,4,5}
AND
B3:B8 are {1,2,3,4,5}
Is there an array formula in C3 for example, that will check (i.e. say TRUE) if corresponding ranges are true i.e. check in this cell that A1=B3, A2=B4,...A5=B8.
I have a requirement where i need to check whether a value is entered in cells within a collumn and if so, it would set a default value to a cell on the same row but with a different collumn. this needs to occur on the run.
there are columns that i need to check and change the status column cell in accordance.
column client_name
clumn date
column start_time
column end_time
column status
first the macro is to check whether there is a client_name, if a value exist (example, smoth, doe, allen) it would set a default value to the status column on the same row as deviation (options are served, queued, deviation).
then it would check if the date & time columns have value and is less than current date time, it would change the status cell to queued.
i know that there are several nested checks (if then if then if then) the problem is that vba is not one of the languages that i master hence im totally lost here.
i can add the finalizing features and rollout the spreadsheet.
and one more thing. i have multiple sheets with the same layout where these checks and changes need to be performed
In Worksheet 1, Cell B63 I would like to create a drop down menu, with two options for the user to select - 0.05 and 0.01. I would like each selection to then control the formula in the cells C63:L63, for example;
Where 0.05 selected it computes for cell C63:
=IF( COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!L55,"YES","NO")
then cell D63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!AA55,"YES","NO")
and so on
Then if 0.01 selected it would compute for Cell C63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!K55,"YES","NO")
then cell D63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!Z55,"YES","NO")
I have completed a formulation and included in a macro but I dont know about coding to check for specific cell string values before macro will take off. I want macro to check that if specific cell text are not matched, use MsgBox to display the wrong versus correct cell string text, then vbOK to exit macro. Also, if Range(B2:G2,J2) are completely blank, use MsgBox to display "missing data", then vbOK to exit macro.
cell B =REQ
cell C =SS
cell D =Current Stock
cell E =PO
cell F =Sales Order
cell G =In-coming
cell L =unit cost
If these cell texts (U or L case will do) are in their specific cells, macro will proceed. If either one or some of these cell texts are not matched, display MsgBox of the wrong and correct cell texts. Then button OK to stop macro run. If Range(B2:G2,J2) are completely blank, use MsgBox to display "missing data", then vbOK to exit macro.
Column 'N' and 'O' will be used for inputting information and will never be hidden
Column 'E' through 'F' hold information, however the user will have hidden all but one of columns 'E' through 'F' before running macro
Once the user initiates the macro, the program will detect which column in 'E' through 'F' is not hidden
The macro will then start at row one of the unhidden column and loop down looking for the text 'Req' (not including ' )
If the loop finds 'Req' it will search in column 'N' of the same row for any data at all
If it finds data in column 'N' for that particular row, it will check column 'O' of that same row for any data at all
If it finds data in column 'O' also, then all 3 parameters have been met
The loop should continue checking for these 3 items through row 500
If the loop determines that for every 'Req' found in the unhidden row there is data in the corresponding column 'N' and 'O' a message will appear that says 'Checklist Complete"
Upon closing the message box, the file should save and then exit
If the loop determines that for every 'Req' found in the unhidden row, there is not always data present in column 'N' and 'O' the message box should appear and say 'Checklist Incomplete'
In the same message box, it should provide a list under 'Checklist Incomplete' that provides the text found in column 'D' for each row where it failed the test of having 'Req' in the unhidden row and data at all in column 'N' and 'O'
That last part will give the user a tool to see where they might have forgotton to enter data.
I have a spreadsheet setup which includes a number of checkboxes set up using the forms toolbar.
I would like to link each of these checkboxes (in sheet1) to a cell reference in sheet2. I'm trying to write a macro that will do this for me to save me right clicking, choosing format control etc for each checkbox.
I found the code on this page: http://www.mrexcel.com/archive2/51300/59643.htm
which appears to be similar to what I am trying to achieve. In this case it creates the checkboxes in cells B3:B20 and links them to C3:C20.
I have already created all the checkboxes, and wish to use a macro to link them (for example) to C3:C20 in sheet2.
What i'm trying to do is to check a large number of cells, if "0" is written down in that cell it stays as it is and if the number is different from "0" i want to put a "1" instead.
View 5 Replies View RelatedOne aspect of my Excel-based project involves comparing the operator-entered part number (in Excel) to a predetermined list of part numbers in one column of an Access database table. Right now, my program is telling me that every part number entered in the spreadsheet (50+) does not match any part number in the database, which I've verified to be incorrect. I've checked that both the spreadsheet part number and the database part number are of the string datatype.
To the best of my knowledge, my looping logic seems valid and robust. To the best of my knowledge, there are no hidden characters in either the database cells or in the spreadsheet cells causing this apparent mismatch. I'm completely stumped at this point as to why my program doesn't detect any matches between the spreadsheet and the database table. Below is the Sub containing the code for checking that the part numbers match:
[Code] ....
This issue seems to be a hybrid issue between Excel and Access with (to me) more of the issue on the Access end.
Trying to find the sum of all cells in the array described in the formula that are equal to the values inside the quotations. I used this exact (as far as I can tell) formula to find the sum of values that were NOT equal to my quoted values and it worked just fine. Any ideas why formula 'A' will not work but formula 'B' does work? I have a feeling I'm missing something simple here!
Formula A - Does not work:
=SUMPRODUCT(--('Master Lead Sheet'!$J$2:$J$10000=$B2),--('Master Lead Sheet'!$N$2:$N$10000="REJECTED"),--('Master Lead Sheet'!$N$2:$N$10000="CONDITIONED"),--('Master Lead Sheet'!$N$2:$N$10000="APPROVED"))
Formla B - Works:
=SUMPRODUCT(--('Master Lead Sheet'!$J$2:$J$10000=$B2),--('Master Lead Sheet'!$N$2:$N$10000"No Answer"),--('Master Lead Sheet'!$N$2:$N$10000"Disconnected"),--('Master Lead Sheet'!$N$2:$N$10000"Wrong Number"),--('Master Lead Sheet'!$N$2:$N$10000"EMAILED"),--('Master Lead Sheet'!$N$2:$N$10000"needs to be emailed"),--('Master Lead Sheet'!$N$2:$N$10000"Refund"),--('Master Lead Sheet'!$N$2:$N$10000"REFUNDED"))
I have three cells where a user will input data, in some cases (2T Weld Condition) they will only enter in B12 and C12, but in the case of a 3T weld they will also enter data in the D12 cell. I then use a formula to check for the thinnest material and that is entered into another cell with a formula, B14. I then need to check the value in B14 to verify if it is above zero, but below 0.65 (mm). If it is then I would like to have a message appear on the screen notifying the user that they are outside the acceptable range.
I cannot figure out how to use the information in cell B14 because it is a formula and my code only works with a direct value. The code I am using works if I point to one of the three input cells, B12, C12 or D12. How do I use the information in B14 to work with the code below.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$12" Then
If Target.Value < 0.65 Then
Run "MyMacro"
End If
End If
End Sub
MyMacro loads a userform with buttons, etc.
I am trying to create a macro that will create a number of check boxes, which are linked different cells. I have had some success in creating multiple check boxes and having them at the destination I want the problem is that instead of linking to different cells they are all linked to the same cell. I have attached a sample workbook SAMPLE.xlsx
View 1 Replies View RelatedI have data in Row 53 that spans 7 columns, but stays in the same row. I want to design a loop to select every 7th cell in that row and check if it is empty. If not, add onto a "counter" then display the final number of occupied cells (the value of the counter) at the end. This is what I have so far, but I get all sorts of errors.
Code:
Sub Tester()
Dim WB As Workbook
Dim WS As Worksheets
Dim modCounter As Long
Dim Cell As Range
Set WB = Workbook("Transverse Series.xlsm")
Set WS = WB.Sheets(BM18)
[Code] ......
My company uses 4 types of barcodes 8, 12, 13, & 14 number barcodes for our products my problem is that I can't figure out how to force the barcode to format properly no matter how somebody enters it if they don't use spaces or put them in the wrong spots, I can't use custom formats because there is 4 different layouts
8 digit should be "#### ####"
12 digit should be "###### ######"
13 digit should be "# ###### ######"
14 digit should be "# ## ##### ######"
these barcodes are in columns L, M, & N also right now 'm using a formula in another cell to verify the barcodes by calculating the check digit and comparing it to the check digit typed the formula i'm using is
I've created the following function that chooses the maximum value from a set of cells then inserts theappropriate row number (within a table) into a new cell.
=IF(J27=0,"?",IF(J27=J19,1,IF(J27=J20,2,IF(J27=J21,3,IF(J27=J22,4,IF(J27=J23,5,IF(J27=J24,6,IF(J27=J 25,7,IF(J27=J26,8)))))))))
It's working fine until I have 2 cells with the highest value. The above statement is entering the first cell that meets the criteria in the new cell but ignores the fact there maybe 2 (or more) of the same value.
How can I get both (or all) to be entered in the same cell? Is there a better way, maybe highlighting all the rows in the table that equal the max figure?
I have a spreadsheet that has a number of values and a separate sheet that has a paid total. What would be the easiest way to find the values in sheet 1 that total the sum in sheet 2? There may be more than one possible solution as to the items that total the sum.
View 1 Replies View RelatedI'm trying to sum all values greater than 5,000,00 and less than or equal to 10,000,000. I have this formula:
Code:
=SUMIFS(B6:B1359,B6:B1359,">"&L2,B6:B1359,"=
how to set all values in an array to be the same value. Currently I am using code in a For/Next loop like the following to do this:
Sub testing()
Dim ArrayToAllHaveSameValues(1 To 30) As String, i As Integer
For i = 1 To 30
ArrayToAllHaveSameValues(i) = "Value"
Next i
End Sub
am currently setting up a fantasy football league.
i have set up the league, with team name overall points and position, my problem is that when 2 teams have the same points one team is omitted and the other team has its name on both entries
the formula's i am using are
vlookup = to find the name of team for the points
large = to find out points of each team