Strike-through an entire row.


    Sponsored Links


  • 1. sum by dates-Excell 2003
    I have a spread sheet with dates in column "A" and numbers in column "B". I would like to sum part of column B based on dates in column A (by quarters, Jan-March, April-June, etc...) Can anyone tell me if it can be done in Excell 2003?
  • 2. sum only if there is a value in cells
    I have the following formula: A3=SUM(A1+A2) Is there a way so that A3 only sums if there is a value in both cells and not if there is text? The values are hours and minutes.
  • 3. moving worksheets
    How can I move a worksheet within the main excel window,when the worksheet header has become hidden behind the toolbar.
  • 4. Anyone have any info on how to...
    keep Excel formulas when creating a .pdf for web forms?

Strike-through an entire row.

Postby HoundofCullin » Wed, 21 Jan 2004 08:31:51 GMT

OK... I need to know if there is a way I can strike through the text on
a row by highlighting the row with the defunkt information and
activating a macro.

Let's see if I can give an example.

Say I'm entering data in, row by row... Each row's data is SIMILAR but
not the same. 
Now let's say that apon review I notice that one of the row is
I need to be able to highlight the row (Presumably by selecting the
corresponding number on the left hand side {1,2,3 etc}) then I need to
run a macro (that will eventually be tied to a button) and then be done
the macro would turn the text .RED  and then strike through the
information. Is that even possible? if so... can you help me?!

Thanks a ton, Josh

Message posted from  http://www.**--****.com/ 

Re: Strike-through an entire row.

Postby Earl Kiosterud » Wed, 21 Jan 2004 08:46:11 GMT


You can select an entire row with Shift-Space too.  The following code will
make the entire row red (that the cell pointer is in).

Sub RedStrike()
    With Selection.EntireRow.Font
      .Strikethrough = True
      .ColorIndex = 3
      End With
End Sub

I did this by recording a macro, then taking out a bunch of stuff and
tweaking it a bit.  You may wish to assign a shortcut to run it quickly from
the keyboard.  Tools - Macro - Macros.  Select the macro, and click Options.
There's a place to put in a shortcut.  I used Shift-R.  It wound up
Ctrl-Shift-R.  The Excel shortcuts don't use Shift, AFAIK.

Earl Kiosterud
mvpearl omitthisword at verizon period net

"HoundofCullin >" << XXXX@XXXXX.COM > wrote in

Similar Threads:

1.Error--"try selecting only entire rows, entire columns, or just groups of cells"

I've looked online for help and found the following.  I tried following the
directions, but it doesn't seem to do anything.  The original row shows 2
selected rows (even when I try to select only one to delete the other) and
when I follow these directions, it inserts 2 rows.  :

>  That command cannot be used with selections that contain entire rows or
> columns, and also other cells.
> Try selecting only entire rows, entire columns, or just groups of cells.
> This behavior occurs when all of the following conditions are true:
> €    You merge cells in a column or row. -and-
> €    You select the entire column or row in which you merged cells. -and-
> €    The column or row that you select contains a merged cell that extends
> over another column or row that you do not select. -and-
> €    You click Columns or Rows on the Insert menu.
> To resolve this behavior, select a single cell in the column or row in which
> you merged cells (not the entire column or row), and click Columns or Rows on
> the Insert menu. 

Michelle York
Literacy Coach (1-5)
Highland Park Central Elementary School
Topeka, Kansas

2.Row and Column Strikethrough

  Why are my Row and Column Headers shown with a Strikthrough each of the 
letters and numbers?
  I can email a screen shot in PDf if anyone would like to see.


3.remove rows that have any cells values strikethrough to a blank Sheet2

4.delete rows that have strike-through values in column A

5.Strikethrough cells B2 to E2 (a "row", in essence) when A2 has a c

Place this code in the "sheet" module that corresponds to the sheet you want 
to monitor.


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strAddress                  As String
    Dim rngFormat                   As Range

    If (Target.Cells(1).Column = 1) Then
        strAddress = "B" & Trim$(Target.Cells(1).Row) & ":E" & 
        Set rngFormat = Target.Parent.Range(strAddress)
        If (Len(Target.Cells(1).Value) = 0) Then
            rngFormat.Font.Strikethrough = False
        ElseIf (Asc(Target.Cells(1) = 118)) Then   ' 118 is the ascii code 
for the sq rt symbol
            rngFormat.Font.Strikethrough = True
        End If
    End If

End Sub

"StargateFanFromWork" wrote:

> The reason this is tricky is because all the other columns have all 3
> possible conditional formatting slots taken, so it seems one would need to
> use code for this.
> I use the square root symbol (representing a checkmark) in a pulldown menu
> in column A.  So column A is either empty or it has this symbol.  When
> empty, nothing happens; but if user chooses this "checkmark" symbol, the
> cells in column B to E of that row should then have a strikethrough applied
> to the text in that row.  Also, where would one put the vb code to do this?
> I've searched the archives but so far no mention has been made on where this
> type of code to augment conditional formatting should go.
> tia   :oD

6. strikethrough row number

7. Row-Entire row changes color (and stays) selecting first entry

8. i want to highlight entire row when selecting a cell in that row

Return to MS EXCEL


Who is online

Users browsing this forum: No registered users and 60 guest