Finding individual cells with strikethrough

[sammendac]

Hi

I have a spreadsheet that is produced by a Co-ordinate Measuring Machine. it is a simple 47 row by 11 cols with numbers in black in the cells. If the measurement is outside the tolerance of the part being measured, the result is a number but it is in red with strike-through.

I need to identify individual cells that have this format, and put a fault code in Col K on the row concerned. The range that this should operate on is C8 to J47. there are cells outside this range that have this format but they must be ignored.

The fault code varies with the columns so if a failure is in Col C it is fault code META, and in say Col E it is fault code HAZ1. I can do all this stuff but I can't identify an individual cell, all i can do is to identify if any cell in the complete range is struck through. This means that I have to manually allocate Fault codes.

A simple way to identify a cell within a range that has this format is what I am looking for.

Any help would be greatly appreciated.

 

[Fennek]

Hallo,

try this code:

Sub iFen()
Dim rng As Range
With Range("A1")
    .Font.Strikethrough = True
    .Value = "Hello World"
End With
Application.FindFormat.Font.Strikethrough = True
With Range("C8:J47")
Set rng = .Find("*", , , , , , , , True)
If Not rng Is Nothing Then
    St_Adr = rng.Address
    Do
        Set rng = .FindNext(rng)
        Debug.Print rng.Address '<<<<<<<<<<< here your code
    Loop Until rng.Address = St_Adr
End If
End With
End Sub

You have to add the code to highlight the column.

regards

 

[sammendac]

Thanks

I will try to see how it works and try it out

Sam

 

[sammendac]

just tried it. the first part works adding struck through Hello World , then it hung because ST-Adr was not defined. Defined it then run programme and nothing happens. what I was thinking was a for next loop loooking at each individual cell and if it was struck through adding the fault code in another column row by row.
something like.
for x = 8 to 47
if cells(x,3) is struck through then
cells(x,L) = "failed"
next x

the bit in red is the problem

 

[Fluff]

Something like

For x = 8 To 47
If Range("C" & x).Font.Strikethrough = True Then Range("L" & x).Value = "failed"
Next x

 

[sammendac]

That is just what I was trying to do.

Thank you very much.

 

[Fluff]

Your welcome