Re: Use Of "or" In A Formula
You don't really need the first condition either. Try this:
=IF(or(C29=1,F29=1),"THIS SPREADSHEET REQUIRES THAT YOU HAVE AT LEAST TWO REPLICATES","")
Re: Use Of "or" In A Formula
You don't really need the first condition either. Try this:
=IF(or(C29=1,F29=1),"THIS SPREADSHEET REQUIRES THAT YOU HAVE AT LEAST TWO REPLICATES","")
Re: Diagonal Values Into A Single Column
Here is workbook back with a formula approach.
Re: Conditional Formatting!
Welcome to the forum.
Add conditional formatting to A1 using the following (use Formula Is rather than Cell Value Is)
For Green: =MOD(A1,3)=1
For Orange:=MOD(A1,3)=2
For Red: =MOD(A1,3)=0
And then copy the formatting to other cells.
Re: Formula For Multiplication Table
If instead, you want to have a row of numbers(B1:K1) and a column of numbers (A2:A11), you could use this formula for B2
=$A2*B$1
and then copy and paste it into B2:K11.
Oh, and welcome.
Re: Error In Percentage Calculation
What is row 21 supposed to be? It is coming through as 10 days and 10 hours or 250 hours. Also, why do you have *24 in various places? If you are working in hours, then leave your values as hours. Finally, if you ignore the *24 in the formula in row 25, you get 2 so I assume that maybe the formula is upside down?
Re: Data Acquisition Formatting
Or just sort the data based on the first column to get the 0's first (ascending) or last (descending) and you end up with the second option you listed in the original post.
Re: Calculate Rate Percentages
Try
=.4*A1+.35*B1+.25*C1
Re: Line Breaks Within Code
Is this for display purposes only so that it looks good or fits better in the code window? If so, use the underscore character. In the help file, if you search for "Writing Visual Basic Statements" and then page down, you'll see this.
If it is because your code is too complex and you want to split the actual code up from one line of code to multiple lines, then providing the code would be helpful.
Re: Formatting 1000 Numbers
No problem.
First, select a cell that has 10000 in it. Then click on Format and then Cell and make sure you are on the Number tab. Now in the Category box, click on Custom, the last choice. In the box to the right, Type, put #,##0,K. Then click OK.
Re: Formatting 1000 Numbers
How about using [cnf]*[/cnf] with
#,##0,K
The last comma will essentially divide the displayed result by 1000 and the "K" appends a "K" to the result.
Re: Speed Up Save???
Must workbook2 be saved, closed and reopened each time? Maybe just the save?
Re: Speed Up Save???
Could you put the user form in workbook2 and keep it open all the time?
Re: Cell Sound Based on Entry
Try this instead:
Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = [A1] Then
If Target.Value > 10 Then
sndPlaySound "C:\WINDOWS\Media\tada", 0
End If
If Target.Value < 10 Then
Application.Speech.Speak "less then 10"
End If
End If
If Target = [A2] Then
If Target.Value > 10 Then
sndPlaySound "C:\WINDOWS\Media\ding", 0
End If
If Target.Value < 10 Then
Application.Speech.Speak "hello"
End If
End If
End Sub
Display More
Re: Completely Fill A Cell With A Character
Could you get away with conditionally formatting the cell and use a fill pattern to get a hash like look to the fill?
Re: Removing Leading Apostrophe From Numbers
You can try using Data|Text to Columns. Select the column in question (1 column at a time) and just use all of the defaults and it should fix the problem.
This is less effective if the cells are scattered around the worksheet.
Re: Negative values and leading zeros
Wow, a post response from 2 years ago. I don't even remember this post. However, this code should use your selection, rather than column A. Also, I am not the author of the original code.
Sub Negsignleft()
' Gord Dibben
Dim cell As Range
Dim rng As Range
''move minus sign from right to left on entire worksheet
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
On Error GoTo 0
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = CDbl(cell.Value)
End If
Next cell
End Sub
Display More
Re: Return Values Base On List
Re-read Roy's suggestion. He is suggesting that you use an advanced filter, not the auto filter and that you return a unique list to a different location. That should get you what you want.
Re: Whithin A String, Return The String After The Sign ":"
Assuming the data is in cell A1:
=RIGHT(A1,LEN(A1)-FIND(":",A1))
Re: Solver Will Not Sort Properly
Which 3 numbers give you the desired solution? Did Solver say it found a solution?