A
adam cook
Hi guys
I have two macro's.
one tocheck for a status and act accordingly and one to split a full name into three parts.
View the code below:
Sub ConsCodeV3()
Dim c As Range
For Each c In Range("E1:E20")
If c <> "CONS" Then
c.Offset(, -3) = UCase(c.Offset(, -2))
c.Offset(, -4) = "ConsCode"
End If
If c = "CONS" Then
c.Offset(, -3) = UCase(c.Offset(, -2))
End If
Next c
End Sub
Sub NameSplit()
Dim rng As Range
For Each rng In Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
Range(Cells(rng.Row, rng.Column + 10), Cells(rng.Row, rng.Column + 13)) = Split(rng, " ")
Next rng
End Sub
Now what i want to do is the split names, i want to concatenate them in a specific way. I need to take the last name and truncate down to 4 letters, then add the initials of the first name and any other initials remainging. This then needs to go into Column A.
this will only want to happen for those that have "ConsCode" in column A following the ConsCodeV3() macro.
Is this easily done?
Submitted via EggHeadCafe - Software Developer Portal of Choice
..NET - Writing a self-updating application in C#
http://www.eggheadcafe.com/tutorial...9df7-85ec9bf2e619/net--writing-a-selfupd.aspx
I have two macro's.
one tocheck for a status and act accordingly and one to split a full name into three parts.
View the code below:
Sub ConsCodeV3()
Dim c As Range
For Each c In Range("E1:E20")
If c <> "CONS" Then
c.Offset(, -3) = UCase(c.Offset(, -2))
c.Offset(, -4) = "ConsCode"
End If
If c = "CONS" Then
c.Offset(, -3) = UCase(c.Offset(, -2))
End If
Next c
End Sub
Sub NameSplit()
Dim rng As Range
For Each rng In Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
Range(Cells(rng.Row, rng.Column + 10), Cells(rng.Row, rng.Column + 13)) = Split(rng, " ")
Next rng
End Sub
Now what i want to do is the split names, i want to concatenate them in a specific way. I need to take the last name and truncate down to 4 letters, then add the initials of the first name and any other initials remainging. This then needs to go into Column A.
this will only want to happen for those that have "ConsCode" in column A following the ConsCodeV3() macro.
Is this easily done?
Submitted via EggHeadCafe - Software Developer Portal of Choice
..NET - Writing a self-updating application in C#
http://www.eggheadcafe.com/tutorial...9df7-85ec9bf2e619/net--writing-a-selfupd.aspx