Extract all bolded cell values to another sheet

[joand]

I have an excel sheet (Sheet 1 range A1: D8) that contains numerous data. I want to extract only cells that have the following format: font size 14 and bold to another sheet (Sheet 2, starting at range A1). Cells in the range either have font size and 10 normal or font size and bold.

Anyone has ideas?

 

[VoG]

Try

Sub test()
Dim c As Range
For Each c In Range("A1:D8")
    If c.Font.Bold = True Then
        c.Copy Destination:=Sheets("Sheet2").Range(c.Address)
    End If
Next c
End Sub

 

[joand]

Is there a way this macro doesn't copy the formatting of the extracted values? Also, the extracted values should be listed in Sheet 2 starting in A1, then A2 then A3...

 

[VoG]

Try

Sub test()
Dim c As Range, i As Integer
For Each c In Range("A1:D8")
    If c.Font.Bold = True Then
        i = i + 1
        Sheets("Sheet2").Range("A" & i).Value = c.Value
    End If
Next c
End Sub

 

[joand]

thank you VoG! This is what I'm looking for.