Find string in certain Cell and edit contents within parenthesis

[Range]

Hi - looking for some help.

Need a snippet of VBA to do the below.


1. Search the contents of Column A for "***FLOP*** [xxxxxx]" where the contents of [ ] will ALWAYS be different.
2. The snippet of code should then split up the contents within the brackets from [xxxxxx] to [xx xx xx].

Thanks

 

[Rick Rothstein]

Give this macro a try...

Sub FLOP()
  Dim R As Long, Data As Variant, Parts() As String
  Data = Range("A1", Cells(Rows.Count, "A").End(xlUp))
  For R = 1 To UBound(Data)
    If InStr(Data(R, 1), "[") Then
      Parts = Split(Data(R, 1), "[")
      Parts(1) = Format(Parts(1), "@@ @@ @@@")
      Data(R, 1) = Join(Parts, "[")
    End If
  Next
  Range("A1").Resize(UBound(Data)) = Data
End Sub

 

[Range]

This worked perfectly, however if I wanted an exception for brackets that only contained [xx] would that be possible?

This code is affecting my Turn & River found in this thread http://www.mrexcel.com/forum/excel-questions/857278-merge-strings-single-column.html

(sorry for all the threads, my goal is soo complex the only way I think I can achieve this by the end of the week is to make micro threads and peice the info together myself, and then teach myself about it over the coming months.