Comments on: Selection Offset

By: Larry Douglas

Larry Douglas — Thu, 01 Feb 2007 13:55:00 +0000

When I first saw the problem I thought keep it simple. Came up with the formula a Andrew Hunt. Then I scrolled down. I am a Geologist an work with Geotech and Engineers. I like to avoid macros, I find it hard for fellow workers to follow or edit. Often other will asked for my help. I like to keep it simple for them and to predict incorrect inputs. This is the choice I would select, If someone put in the wrong data it will still produce a blank space
=IF(B1="T",2*C1,IF(B1="S",C1*1,""))

By: Jules

Jules — Thu, 01 Feb 2007 10:20:00 +0000

I always use the formula:

=IF ( B2="" , "" , IF (B2 = "T" ,2,1) * C2 )

Works every time & I do it without thinking now.

By: Beate Schmitz

Beate Schmitz — Tue, 30 Jan 2007 21:18:00 +0000

Hello,

try this to fill column D in the required rows with the formula in question as per your example:

Sub Fill_not_empties()
Dim lz As Long
lz = Cells(Rows.Count, 3).End(xlUp).Row
Range("C2:C" & lz).SpecialCells(xlCellTypeConstants, 23) _
.Offset(0, 1).FormulaR1C1 = "=IF(RC[-2]=""T"",2,1)*RC[-1]" 'Column D
End Sub

Regards
Beate

By: Lori

Lori — Sat, 27 Jan 2007 15:13:00 +0000

You should also be able to just filter a column for non-blanks and use ctrl+enter to enter the formulas. Note that going to visible cells shouldn’t be needed as operations in filtered view only apply to the visible selection.

By: Brett

Brett — Fri, 26 Jan 2007 15:24:00 +0000

Neil,

As long as nobody's Weighted (col D) evaluated to 0. But you could filter A, B, or C for blanks!

Brett

By: Neil

Neil — Fri, 26 Jan 2007 14:20:00 +0000

Couldn't you have filtered column D for all cells equal to zero? Then use Edit|Go To|Special|Visible Cells Only and press Delete.

By: Andrew Hunt

Andrew Hunt — Fri, 26 Jan 2007 13:42:00 +0000

As an alternative

=IF ( B2="" , "" , IF (B2 = "T" ,2,1) * C2 )

You could just leave the original formula as is and
use a Conditional Format Font colour of White for
Blank or Zero value cells in Column D

or if you wanted to use a macro to insert just the values
in the non blank rows

For I = 2 to Columns(1).Find("*",,,,,xlPrevious).Row
If Cells(I,2) = "S" then
Cells(I,4) = Cells(I,3)
ElseIf Cells(I,2) = "T" then
Cells(I,4) = Cells(I,3)*2
EndIf
Next I

or you could just use the same to insert the Formula if
this is actually needed

Kind regards

By: simon murphy

simon murphy — Fri, 26 Jan 2007 13:24:00 +0000

I try and avoid blank rows, I prefer to use the row height to sort the formatting out.
I like the select special errors approach, Bob has that in his Excel magic book too.
cheers
Simon

By: Brett

Brett — Fri, 26 Jan 2007 13:21:00 +0000

Another approach: Hard code a sort key in Col.E with Excel's Edit->Fill->Series... Sort on Col. A to group the blank rows. Delete romulas in D and resort on the key.

Brett

By: Jiri Cihar

Jiri Cihar — Fri, 26 Jan 2007 12:04:00 +0000

Hi,
just to extent the proposal of "the Okk"

Use the formula =IF(C2>0,IF(B2="T",2,1)*C2,1/C2) and copy down.
In cells D3, D5 etc. you got errors #DIV/0!
Select the column D
Hit F5, Go To,
Click Formulas and unclick everything but errors...
Press OK and then Delete.

My best regards

Jiri Cihar
http://www.dataspectrum.cz