find caps from right and put { bracket at last caps latter

[shrinivasmj]

hi

need vb or macro

eg input

ABE KERN Gholam Rizaboosaildi Black Creek out put a2 ABE KERN { Gholam Rizaboosaildi Black Creek <tbody> </tbody>

<tbody>
</tbody>

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG14Dec48
[COLOR="Navy"]Dim[/COLOR] str [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] nStr [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
str = [a1]
[COLOR="Navy"]For[/COLOR] n = Len([a1]) To 1 [COLOR="Navy"]Step[/COLOR] -1
    [COLOR="Navy"]If[/COLOR] Mid(str, n, 1) = " " [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]If[/COLOR] Mid(str, n - 1, 1) = UCase(Mid(str, n - 1, 1)) [COLOR="Navy"]Then[/COLOR]
            nStr = Left(str, n - 1) & " { " & Right(str, Len(str) - n)
            [COLOR="Navy"]Exit[/COLOR] For
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
Range("A2").Value = nStr
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[shrinivasmj]

need to find from left ,


Sub MG14Dec48
Dim str As String, n As Long, nStr As String
str = [a1]
For n = Len([a1]) To 1 Step -1
If Mid(str, n, 1) = " " Then
If Mid(str, n - 1, 1) = UCase(Mid(str, n - 1, 1)) Then
nStr = Left(str, n - 1) & " { " & Right(str, Len(str) - n)
Exit For
End If
End If
Next n
Range("A2").Value = nStr
End Sub

 

[shrinivasmj]

2133 JOSEPH DAMON DR ^ Magadan Miass (8)862
624 WOODLAND TRAILS DR ^ Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. ^ Magadan Cherepovets 8652
19441 134TH AVE. S.E. ^ Tjumen Zavolzhye 84722

 

[shrinivasmj]

Can it work for column all in a

 

[MickG]

What does the result look like ?????

 

[shrinivasmj]

Any one can help me

 

[shrinivasmj]

what does the result look like ?????

it should work on all cell

its work on only a2

need to work on a:a

 

[Rick Rothstein]

hi

need vb or macro

eg input

ABE KERN Gholam Rizaboosaildi Black Creek out put a2 ABE KERN { Gholam Rizaboosaildi Black Creek <tbody> </tbody>

<tbody>
</tbody>

Give this macro a try...

Sub InsertBracketAtEndOfUpperCase()
  Dim R As Long, X As Long, Data As Variant
  Data = Range("A2", Cells(Rows.Count, "A").End(xlUp))
  For R = 1 To UBound(Data)
    For X = 1 To Len(Data(R, 1))
      If Mid(Data(R, 1), X, 1) Like "[a-z]" Then
        Data(R, 1) = Application.Replace(Data(R, 1), X - 1, 0, "{ ")
        Exit For
      End If
    Next
  Next
  Range("A2").Resize(UBound(Data)) = Data
End Sub