Strike-through an entire row.


    Sponsored Links


  • 1. drop down list multiple columns
    Greetings; I have a question I am hoping someone will be able to help me with. My overall goal is to create a dropdown list with a line of data in it. When selected only the second half of the line will be shown in the cell. What I plan on doing is entering all of my data into two columns (first column + second = dropdown list, second column = what is shown in the cell). I would then create a drop down list from multiple columns. Using alot of IF statements in VBA with a Private Sub Worksheet_Change(ByVal Target As Range) program that would chage the entry from first column and second column to only second column. I have two questions- 1) Is it even possible to have a dropdown list based on two cells? 2) Is there an easier way than this? Since I have about 100 entries and may want to add more later. Thanks in advance for any comments or suggestions. c
  • 2. Percentages? How?
    I am currently running a price guide that looks as follows: A B C D E F Item Price Cost SRP GP% Retail Unit Column C is the Customer's Cost per Retail unit (F) Column D is the Suggested Retail Price Column E is the Gross Profit Percentage Column E is =(D1-C1)/D1 to arrive at the GP%. *Now* I want to reverse the process! I need to type a percentage into E and have D pop up automatically. (I.e., instead of typing in an SRP of $2.50 on an item that costs $1.36 to arrive at a GP of 45.6%, I want to type 40% and find out what the SRP would be.) Thanks
  • 3. Pivot Table not valid error message when formatting data 'button'.
    Created Pivot table/chart, password-protected and put onto website (ie NOt saved file as Web Page). Click on link, get warning message concerning macros and prompted for password. If attempt to change data button by rightclicking on it and selecting format - get error message 'Pivot Table not valid'. Note, accessing the file directly (ie not via the web) works perfectly Ok. PS Also get visual basic error message ' Run time error 1004 :Unable to set the default property of the Pivotitem class' VB code Sub All_Years() CP = "(All)" pf = "Year First Seen" Call DeleteOldItemsWB 'this runs OK' Call Hosp(CP, pf) 'this stops at line 3' Call Tumour(CP, pf) End Sub Public Sub Hosp(X, Y) Sheets("Hospital Chart").Select ActiveChart.PivotLayout.PivotFields(Y).CurrentPage = X ' line 3' Sheets("Home").Select End Sub
  • 4. FIND a character
    Hello All, I want to find a character in an entry in Excel and assign a value in another entry depending on if the character is found or not. For example, I am trying to use IF(FIND("m",F3)=#VALUE!,0,B3) to give me a value 0 if the logical test in the IF function is TRUE. Otherwise, return the value in B3. The problem is if "m" is not found, FIND returns the #VALUE! error value, and I have no idea on how to test for this condition. Any ideas? Does anyone have another suggestion on how to accomplish what I am trying to do? Thank you.

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 9 guest