Format copy for part of the cell data

[sureshmandadpu]

Dear All,

I have a set of data as given below



I want to format 'cheque data is given' in red color for all the cells. How can I do that in excel.

Regards,
M. Suresh

 

[Ramesh]

Try the below code:

Dim startpos As Byte
    Dim endpos As Byte
    Dim currentvalue As String
    Dim extractvalue As String
    celltrack = 1
    For celltrack = 1 To ActiveSheet.Range("A" & Cells.Rows.Count).End(xlUp).Row
        currentvalue = Range("A" & celltrack).Value
        startpos = WorksheetFunction.Find("(", currentvalue) + 1
        endpos = WorksheetFunction.Find(")", currentvalue)
        extractvalue = Mid(currentvalue, startpos, endpos - startpos)
        If extractvalue = "Cheque Date is given" Then
            Range("A" & celltrack).Characters(startpos, endpos - startpos).Font.ColorIndex = 3
        End If
    Next

Assuming that your values are in column A and you want to format only those cells where the value in the brackets is written as Cheque Date is given