Deleting Rows with Bold, Underline and Italic

[rchansen2001]

I am trying to write VBA script that will delete the entire row for any cells in Columns R:T when the text in the corresponding cell is Bold, Underline and Italic. Example: The column heading represent a date and the row heading represents a job number. Each cell represents the number of days remaining for the job. If the number in the cell is Bold, Underline and Italic the job is stopped and I want it to be deleted so it doesn't alter my results.

 

[GTO]

Hi there,

Just a very simple example. Remove 'Me' and reference the appropriate sheet in using the code in a Standard Module.

Excel Workbook
	R	S	T
2	469	483	278
3	162	413	445
4	298	338	205
5	72	415	261
6	82	78	449
7	435	142	377
8	220	353	489
9	12	438	373
10	495	107	291
11	178	115	78
12	125	262	99
13	361	337	118
14	372	338	395
15	43	5	402
Sheet1

Excel 2010

Option Explicit
  
Sub example()
Dim lRow As Long, lCol As Long


  For lRow = 15 To 2 Step -1
    For lCol = 0 To 2
      With Me.Cells(lRow, 18 + lCol).Font
        If .Bold And .Italic And CBool(.Underline = 2) Then
          Me.Rows(lRow).Delete
          Exit For
        End If
      End With
    Next
  Next
  
End Sub

Hope that helps,

Mark

 

[rchansen2001]

I tried the code and nothing happened. I placed it in the same personal module that I have all my other macros for the same document and tried to just run the one you gave. I tried it with 'Sheet1' and 'ActiveSheet' in place of 'me' and both times nothing happened.

Hi there,

Just a very simple example. Remove 'Me' and reference the appropriate sheet in using the code in a Standard Module.

Sheet1

	R	S	T
2	469	483	278
3	162	413	445
4	298	338	205
5	72	415	261
6	82	78	449
7	435	142	377
8	220	353	489
9	12	438	373
10	495	107	291
11	178	115	78
12	125	262	99
13	361	337	118
14	372	338	395
15	43	5	402

<thead>
</thead><tbody>
</tbody>

Excel 2010

Option Explicit
  
Sub example()
Dim lRow As Long, lCol As Long


  For lRow = 15 To 2 Step -1
    For lCol = 0 To 2
      With Me.Cells(lRow, 18 + lCol).Font
        If .Bold And .Italic And CBool(.Underline = 2) Then
          Me.Rows(lRow).Delete
          Exit For
        End If
      End With
    Next
  Next
  
End Sub

Hope that helps,

Mark

 

[rchansen2001]

I am able to get the following code to work. But I need it to include columns 18:20 and also include underline. Currently It only works with 1 column and I must manually change to the next column. When I add on to this code to include the additional variables it breaks the code.

Sub DeleteStoppedJobs()
 Dim wks As Worksheet
 Dim iRow As Integer
 iRow = 1
 Set wks = Application.ActiveSheet
 Do Until wks.Cells(iRow, 19).Value = ""
 If wks.Cells(iRow, 19).Font.Bold = True And _
 wks.Cells(iRow, 19).Font.Italic = True Then
 wks.Rows(iRow).Delete
 Else
 iRow = iRow + 1
 End If
 Loop
 End Sub

 

[GTO]

I tried the code and nothing happened. I placed it in the same personal module that I have all my other macros for the same document and tried to just run the one you gave. I tried it with 'Sheet1' and 'ActiveSheet' in place of 'me' and both times nothing happened.

What exactly are you referring to as a "personal module"?

From the example data in post #2, by my understanding, you would only want rows 5 and 8 deleted; is that correct?

Mark