Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Function
The below macro works perfect. It extracts the name from a text. How
can I change below macro into "Public Function" Please can any friend can help Sub GetNames() For Each Cell In Range("A1:A4") Text = Replace(Split(Cell, "\")(UBound(Split(Cell, "\"))), ".", " ") Parts = Split(Text, " ", 3) Parts(2) = "" Cell.Offset(0, 1).Value = Trim(Join(Parts)) Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Function
It's a subroutine... exactly what do you mean by "change [it] to a public
**function**"? -- Rick (MVP - Excel) "K" wrote in message ... The below macro works perfect. It extracts the name from a text. How can I change below macro into "Public Function" Please can any friend can help Sub GetNames() For Each Cell In Range("A1:A4") Text = Replace(Split(Cell, "\")(UBound(Split(Cell, "\"))), ".", " ") Parts = Split(Text, " ", 3) Parts(2) = "" Cell.Offset(0, 1).Value = Trim(Join(Parts)) Next End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Function
basically i need function to exctract name from text
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Function
I don't remember your original data, but I think this function will do what
you want... Function GetName(S As String) As String Dim Parts() As String GetName = Replace(Split(S, "\")(UBound(Split(S, "\"))), ".", " ") Parts = Split(GetName, " ", 3) Parts(2) = "" GetName = Trim(Join(Parts)) End Function -- Rick (MVP - Excel) "K" wrote in message ... basically i need function to exctract name from text |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Function
Thanks lot rick
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF Macro / Function | Excel Worksheet Functions | |||
Macro + IF Function? | Excel Discussion (Misc queries) | |||
If function in Macro | Excel Programming | |||
Sub Macro vrs Function Macro Auto Start | Excel Discussion (Misc queries) | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming |