Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










If A Certain Cell Does Not Equal Zero Then Run Macro


if a certain cell does not equal zero i want a macro to run. But i'm having trouble getting the logic right. here's what i have so far

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("u82").Select
If Active.Selection 0 Then
Call unhide_addABBR

ElseIf Active.Select = 0 Then
Call hide_addABBR

end sub


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Add Formula To Cell To Equal Product Of 2 Other Cells Via Macro Code
I'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]"

View Replies!   View Related
Run Macro Only If 2 Cells Are Equal To Each Other
I 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


View Replies!   View Related
Values Which Are Equal Not Treated Equal
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 Replies!   View Related
Delete Rows Where Cell Doesn't Equal Adjacent Cell
I have a sheet in Excel 2004 for Mac that is a patient list with over 2000 patients. I need a rule that will compare values (patient IDs and responsible party ID) in two adjacent cells, if the values are different, to delete the entire row. The goal is to get rid of patients (rows) that are not the responsible party (responsible party ID).

View Replies!   View Related
Last Occupied Cell To The Left And Equal To Or Above Current Cell
I've been pounding away at a project for two days trying to determine a way to identify a solution, to no avail.

Here is some experimental code. Under the assumption that in Column "A", every fifth line contains some text (a, b, c, etc) I want to place a function in column B that would identify the closest occupied cell above and to the left of the cell containing the function. The sub achieves this, but the function has a problem because of the Activecell line. Is there a way to identify the location of the cell containing the function to act as a reference point for the range?

Sub find_last_heading()
Application.ScreenUpdating = False
x = ActiveCell.Address
ActiveCell.Offset(0, -1).Select
last_heading = ActiveCell.Text
Do Until last_heading ""
ActiveCell.Offset(-1, 0).Select
last_heading = ActiveCell.Text
Loop
MsgBox last_heading
Range(x).Select
End Sub
Function cathead(Optional reference)

Dim cell

View Replies!   View Related
Restrictions On Drop Down List If Cell Is 'a' Then Other Cell Must Equal 'b'
I have two cells, both of which have drop down lists for options 'a' & 'b'. When one equals 'a' the other should be restricted into only saying 'b' and vice versa. I would also like the user to be reminded that he can only select 'a' once from the two menus. Ideally I would like to do this in a formula rather than VBA?

View Replies!   View Related
Identify Rows Where A Given Cell Is Equal To The Contents Of The Cell Below
I need to identify rows where the contents of a given cell are equivalent to the cell below. I have managed to get this working based on iterating through the cells and selecting them both for cutting.

However it doesn't work effectively: It seems to be leaving blank lines in the original sheet and further fails after the first execution. I would be grateful for any suggestions on a good method to perform the following operations:
(1)to compare the cell with the cell below
I have used

If cell = cell.Offset(1, 0) Then

(2)to act on the rows for the two connected rows

Sub Test4()

' Loop through rows

Dim TheExtract As String
Dim cell As Range

'Application. ScreenUpdating = False
For Each cell In Worksheets("Sheet 1"). _
Range("A1", Worksheets("Sheet 1").Range("A65536").End(xlUp))
TheExtract = cell
If cell = cell.Offset(1, 0) Then
cell.Rows("1:2").EntireRow.Select
Selection.Cut
Sheets("Test").Select
ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
End If
Next cell
'Application.ScreenUpdating = True

End Sub

View Replies!   View Related
Message Box Equal To Cell Value
i need a bit of code that will display the values of selected cells in a message Box D4 & D10 & D185 is this possible

View Replies!   View Related
To Have Cell Equal To Autofilter
I have 2 worksheets, and I was wondering if I can have a cell from Sheet2 equal to the subtotal of the Autofilter criteria of a column in Sheet1.

I do have something working with macros but it takes a long time. This would make things a lot easier.

View Replies!   View Related
Delete Row When Cell Not Equal To Another
The code below is an attempt to delete all rows where the cell in column A is not equal to the value of B1. B1 is text if that somehow makes a difference.

Dim n As Long, lastrow As Long
lastrow = Range("A65536").End(xlUp).Row
For n = lastrow To 1 Step -1
If Cells(n, 1) <> Range("B1") Then Cells(n, 1).EntireRow.Delete
Next n

Do I need to specify that B1 will always be the cell to reference (ie $B$1). Edit: Just had an epiphany, I also need it to stop after Row 3. I have some headers and such that I don't want removed.

View Replies!   View Related
Cell To Equal Another Cell If CheckBox Checked
I need to be able to select a checkbox on my form and when selected, fill data from other cells on the form to other cells. Here is what I have so far

Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Cell(F13).Value = Cell(B13).Value
Else If CheckBox1.Value = False Then
'do nothing
End If
End Sub

But it does not work I get a compile error on the: Cell(F13).Value = Cell(B13).Value

View Replies!   View Related
Cell Validation :: NOT EQUAL BLANK
Would like to know how to place validation on cell a2 to NOT EQUAL BLANK.

View Replies!   View Related
If Cell Has Number Then Equal, Else Show Nothing
If square A1 says deposit account and c1 has a figure in it, i want g1 to repeat the figure,but if a2,a3 etc says something other than deposit account i want g2,g3 to remain blank.What is the formula for square g1etc?

View Replies!   View Related
If Previous Filled Cell Is Equal To
How could i change this formula so

If the previous cell "filled with a number" in column D is equal to C17 Then C18 otherwise c17

This is the formula
This formula is in D38
=IF(DAY(A38)=DAY($C$13),$C$17,)

This formula is in D65
I also need to apply the same to this formula
=IF(MOD(ROW(A38)-MATCH($C$13,A:A),7)=1,$C$17,)

View Replies!   View Related
Label Caption To Equal Cell Value
I have 3 labels in my userform that I want to display the text in AN50,AN52 and AN54 in all the time. How can I write this code?

View Replies!   View Related
Shift Cells Up If Cell Equal 0
In the range A1:Y66, for every cell whose formula returns a 0, I want it to delete that cell and shift the cells up.

Here is the code I tried, but nothing happened:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 25 Then Exit Sub
If Target.Rows > 66 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = 0 Then Target.Delete Shift:=xlUp
End Sub

View Replies!   View Related
Count If Left(cell, 4) Not Equal To Free
Im looking to count fields in column G, where the first 4 letters of column G do not begin with the letters "free", I came up with the following formula which doesn't work at all!!

Im also looking to do the same but with a sumif to perform the sum on a different column of data, but with the criteria LEFT(G15:G164, 4) & "" & "free") - (not sure if this bit is right either) staying the same.

=COUNTIF(G15:G164, LEFT(G15:G164, 4) & "" & "free")

View Replies!   View Related
Setting A Cell Equal To The Selected Value In A Combobox
I know you can set cells equal to other cells, but can you set the cell equal to a combobox created in VBA.

View Replies!   View Related
Check Whether Transpose Ranges Are Equal In Single Cell
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.

View Replies!   View Related
Using The IF Function: IF E17 Is Equal To 9.5 Or Higher Then Cell E23 Should Automatically Read $10.50
I am trying to work out a formula. I know it's a simple one but i can not work it out. If i work 9.5 hours or more per day I get an extra $10.50 for food allowance.

For example (see attachment) IF E17 is equal to 9.5 or higher then cell E23 should automatically read $10.50

View Replies!   View Related
Cell V7 To Tell Me If The Number In U7 Is Greater Than Or Equal To The Individual #'s In Cells U7-U40
I am using cell V7 to input the formula but I want cell V7 to tell me if the number in U7 is greater than or equal to the individual #'s in cells U7-U40 and I would like it to put a 1,2,3 in the cells of V7-V40 for the three highest numbers in order of largest to smallest if is this possible?

View Replies!   View Related
Join 2 Cells & Show Equal Sign In Cell
For Exempel

A1=B
A2=1
A3="="&A1&A2

I have even tried with concernate and indirect in A3 but no difference there...

I want A3 to return =B1 but it only returns it in text but i want it in form of a formula. Is there a formula that returns text directly into a formula or an easy way to do this?

View Replies!   View Related
Make Cell Equal To Another Cell
I am looking for a way for a cell to equal another cell but the cell that it looks at is controlled via another cell.

So, for example, cell A1 I type in E5 and this tells cell B1 to display the contents in cell E5.

View Replies!   View Related
Multiple Sum If A Cell Value Equal Another Cell
I'm doing a spreadsheet where there is ten cells or top ten positions. Where there is one sheet for where the ten values and another sheet with cells that might or might not match the other sheet. For instance.

If any cell A1 on sheet 1 matches cell A1 on sheet 2 Then give cell A15 the value of 10. The If cell A2 on sheet 1 matches A2 on sheet 2 Then add another 10 giving A15 a total of 20. And so on up To A10. Then If it doesn 't match exactly lets say If cell A4 on sheet 1 match cell A2 the Minis 4 from 2 giving you 2 Then minis 2 from 10 giving 8 While still totaling In cell A15, which would equal 18 now.

View Replies!   View Related
Find First Blank Cell In Column & Return Adjacent Date Less Than Or Equal To Today
how to make the data look like a table with three columns. Other than the date, it is space delimited. I have a tracking spreadsheet where Column A is populated with dates for the year. Column C contains daily values.

I don't always start entering daily values on the first day of the year, e.g., this year the first value in Column C corresponds to March 9. All values in Column C are contiguous - there are no blank cells until the value in Column A is greater than today's date code. I would like to use a formula (rather than VBA) to look down Column C and find the first non-blank entry where the value in Column A is less than or equal to today(). In this case, the formula should return the value for March 9, 2008.

CREATE TABLES LIKE BELOW?Column A Column B Column C

March 1, 2008Saturday
March 2, 2008Sunday
March 3, 2008Monday
March 4, 2008Tuesday
March 5, 2008Wednesday ...................

View Replies!   View Related
Countif- Where Column A Is Equal To A Specific Number And Column B Is Equal To Another Number
I'm trying to count if there are situations where column a is equal to a specific number and column b is equal to another number.

both columns are numbers. Does anybody have a good idea how to do this, maybe countif, but i am not sure how to do more than one item with that.

View Replies!   View Related
Equal To Or Less Than
I have a quite complex list of variables to put into a formula to come up with the correct number and I need some help to figure this one out. I don't know if it would be easier to set up a chart and then index the chart to do a lookup or how I need to go about doing this to achieve the most efficent solution.

I need the following to go into one formula:

1. =< 24 needs to show the number 24
2. =< 30 but > 24 needs to show 30
3. =< 32 but > 30 needs to show 32
4. =< 36 but > 32 needs to show 36
5. =< 40 but > 36 needs to show 40
6. =< 48 but > 40 needs to show 48
7. =< 50 but > 48 needs to show 50
8. =< 60 but > 50 needs to show 60
9. => 60 needs to show 60

I am trying to set up a spread sheet to figure square footage of plastic laminate countertops, but the plastic laminate only comes in several stock sizes : 3x8, 4x8, 5x8
3x10, 4x10, 5x10
3x12, 4x12, 5x12

So if I have a countertop that is 25 sq ft., I cant use a 3x8 (24 sq. ft), so I need to go up to the next size which would be a 4 x 8.

I might need to use a ROUNDUP function with this formula too? I already have cells set up to figure the depth, backsplash height, and front edge height and then give me the squage footage of that.

View Replies!   View Related
Not Equal To Operator
revised this code to reflect the "not equal to". I want the user to only enter "In" or "Out." Therefore, If cells b19:B26 does not have either word, then the message box will prompt the user to enter the correct word again. I think my code needs to be revised into some kind of loop.

View Replies!   View Related
Sum IF (2 Equal Values)
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?

View Replies!   View Related
Several Criterias Equal Different #
I am having trouble creating a formula that will do what I need it to do. In C4 the I already have a formula that states if B4 is greater than 94.99% then it will equal 5. What I need it to do is if it is equal to or greater than 95% then =5. Also if it is equal to or less than 94.99% - 92% =3 and if less than 91.9% =1. Here is the worksheet I am using....

View Replies!   View Related
If Equal To Or Less Than Formula
I am trying to set a scorecard up where it will give points depending on the % actual. For example:

if less than 60%, then 0,
if equal to or greater than 60% but less than 75%, then 1
if equal to greater than 75% but less than 80%, then 2 and so on.

I have been playing around with the example below, but can't seem to get it working.

[php]=IF(A1<60%,0,IF(A1>A1<75%,1,))[php]

Maybe it 's because I pickled my brains last night.

View Replies!   View Related
Equal Value & Formatting Between 2 Cells
Is there any way to make one cell on a separate sheet appear EXACTLY the same, including formatting and values?

As in this for example:

Pieces of Paper (Blue)

I would like to keep the formatting for (Blue) , color and bold, but I have not figured out how to do this.

View Replies!   View Related
The Smallest Value That Is Greater Than Or Equal To
I am looking for a function like MATCH if the match type were set to -1. However my data is sorted in ascending order. I am mining data from a Pivot Table, and it has dates across the top. Of course the pivot table will have the data sorted in ascending order from left to right. I want to find the first date that is greater than today. With weekends and holidays I can't just use TODAY()+1. Is there a function that can do what I am asking? Also I do not want to change the pivot table itself.

View Replies!   View Related
Advance Filter For Not Equal To Zero
Here is a copy of my code and I am Having a problem trying to get it to filter zero balances out. There are positive and negative numbers and I need to post them to a seperate sheet and exclude all zeros.

View Replies!   View Related
Randomize With No Equal Numbers
I'm trying to get a random sequence of numbers e.g. 1-20 so that no number is the same i.e. no number appears twice.

I used Int(20 * Rnd + 1) + 1 but this gives me same numbers. Any ideas how i can do that?



View Replies!   View Related
Greater Than And Less Than Or Equal To Formula
I need a formula that looks at the total in H40 and if the number is between 32 and 40 I need it to return the number then if the number exceds forty I need to multiply the overage by 1.5 and add it to the 8 for a total of 11.

I think it would be something like:

SUMIf(H40>"32",

View Replies!   View Related
Why Aren't These 2 Cells Equal
I have a date on one sheet, and what I thought was the same exact date on another sheet. I want to vlookup off the date, however the values aren't the same. i.e. when I check to see if they = I get a false. They're both formated the same, custom date m/d/yyyy h:mm, and when I ran the check to see if one was text (t=(A1)) I get confirmation that they are both non-text!

View Replies!   View Related
Place The Name Before Equal Sign
I'm trying to simplify a section of my code by naming a long string that is repeated. I tried by simply place the Name before equal sign (=) and also putting Set before the name. Both failed though I've seen both methods used successfully in other code. Am I having a syntax issue of some sort?

Private Sub ConditionalRowDelete()
Dim NumRows, iLine As Integer
ActiveSheet.UsedRange.Select
NumRows = ActiveSheet.UsedRange.Rows.Count
Dim CircuitType As Range
Set CircuitType = Range("C" & iLine).Value
For iLine = NumRows To 2 Step -1
If Range("A" & iLine).Value > "6999" Then
Rows(iLine).EntireRow.Delete
End If
Next iLine
For iLine = NumRows To 2 Step -1
If CircuitType = "VOIP" Or CircuitType = "Customer Care" Or CircuitType = "Dialup" Or CircuitType = "IRU" Then
Rows(iLine).EntireRow.Delete
End If
Next iLine
End Sub

View Replies!   View Related
Strange Characters Equal EOF
I made a userform that spits out 'logs' in a more readable easy to understand. It basically shoves everything into a nicely organized list box.

I have a load button that if pressed accepts .csv's

It works perferctly for practically every type of .csv that contains these logs however 1/100 times the logs contain korean or chinese characters which cause the program to crash.

I gone through some debugging and I found out that the characters that cause it to crash happen to equal the EOF character. So not only does it spit an error on that line, it stops loading anything after that point.

Here is my CheckFileSize function that runs first to tell me how long I should make my list.

Private Function CheckFileSize(ByVal TempFileName) As Double
Dim TempData As String
Dim SizeCount As Double

how to do this besides loading it into a worksheet first?

View Replies!   View Related
If Statement (equal To And Greater Than)
If A7 is equal to and greater than 95% than B7 is equal to "A". If A7 is equal to 91% but less than 94.99% than B7 is equal to "B"...

View Replies!   View Related
IF Formula Based Around A Value It Does Not Equal
Is it possible to do an IF formula based around a value it does not equal?

eg I have one column, that is perforning a SUMIF providing that a certain cell is equal to a particular constant.

=IF([cell]=[value],SUMIF([range],[criteria],[sum_range]))

In the next column I want to do it the other way round so that:

=IF([cell] DOESNOT=[value],SUMIF([range],[criteria],[sum_range]))

Is it just a simple symbol??

View Replies!   View Related
Average If Cells Are Equal
Columns L, M and N are always fully populated.

Columns D, E and F may have some missing values, along with H, I and J.

Lets just concentrate on D.

I need to create a formula where I get the anser in C1 This is an average of L only where D has a value.

View Replies!   View Related
Formula Equaling Zero Is Not Equal To 0
I have a simple formula which subtracts one cell from another. I then have an if and statement which checks if that cell is equal to zero. If so, continue processing.

The problem is that the formula always reads the cell as not equal to zero although the result of the formula contained in the cell does result in zero.

View Replies!   View Related
Greater Than Equal To With Autofilter
I am creating my first Userform and having some problems. I take the data supplied by the userform and try to match it as closely as possible to a row of information. Currently I am using four cells to autofilter my spreadsheet data. Two of the cells I am looking for a exact match. The other two cells I am looking for the number that has been input or anything greater than it. Here is the code I have come up with...

View Replies!   View Related
Select Cells Equal To Zero
How can I select all rows where certain cells are equal to zero?

(i.e. in Column A

1 Bob
2 Joe
3 Smith
4 0
5 0
6 0

I want to select rows 4, 5 & 6.

I've used Go To>Special:Errors to write a macro to hide all rows with errors, but I also want to hide all rows that have zero values

View Replies!   View Related
Hide Row If Three Cells In That Row Each Equal Zero
I am trying to hide rows if cetain cells in that row equal zero using a button on the page. Each cell has lookup formulas that will return a value. If coulmn B,F & I have a value of zero I want to hide the row. As of right now I am using the following code but I keep getting the following error message runtime error '13': type mismatch

View Replies!   View Related
If Greater Than Or Small Than, Or Equal To
I have a cell, M87. The score in M87 can be less than 13 or greater than 25. I need a formula within M94 which refers to M87, and outputs depending on the the following criteria. If M87 is less than 13 then output as D. If M87 is 14, 15, 16, or 17 then output as C. If M87 is 18, 19, 20, 21, 22, 23 or 24 then output as B. If M87 is greater than 24 then output as A.

View Replies!   View Related
Setting A1 To Equal Workbook Name
I need to put the workbook name in cell A1, although if the workbook is FOOTWEAR - 572.xls, I need cell A1 to say Footwear_572.

View Replies!   View Related
Set Array Equal To Part Of Another
Is there a way to set an array equal to part of another 2D array. If say I have an array with 5 columns. Is there a way to break that up in to two arrays one with 3 and one with 2. Even getting it to 5 1D arrays would work. I bring it in as 1 array but I need the information in different places. This is actually only the output. So if there is a way to send only part of the array out that would work to. I know you set the range smaller than array with range=array, but that still doesn't get me where I need to be. This is obviously without simply going through a loop. I could set it to 5 singles with a single nested loop I know. I was looking for a non-loop way.

View Replies!   View Related
Set All Values In Array Equal Same Value
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

View Replies!   View Related
Copyright 2005-08 www.BigResource.com, All rights reserved