Copy text from a colored cell to another spreadsheet

[S P P]

Good evening!
Copy text from a colored cell to another spreadsheet

 

[Marc L]

Hi,​

​

according to VBA help a demonstration of 'all at once' as a beginner starter :​

Sub Demo1()
    Dim R&, L&, Rf As Range, A$, C%
        R = 1
        Plan2.UsedRange.Offset(1).ClearContents
    With Application.FindFormat
           .Clear
           .Interior.Color = vbYellow
        For L = 4 To 7 Step 3
            With Plan1.Cells(L, 2).CurrentRegion
                   Set Rf = .Find("", .Item(.Count), , , 1, , , , True)
                If Not Rf Is Nothing Then
                        A = Rf.Address
                        C = 1
                        R = R + 1
                    Do
                        C = C + 1
                        Plan2.Cells(R, C).Value2 = Rf.Value2
                        Set Rf = .Find("", Rf, , , , , , , True)
                    Loop Until Rf.Address = A
                End If
            End With
        Next
           .Clear
    End With
        Set Rf = Nothing
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[S P P]

Marc L

Thank you that was it