PFA OR BELOW CODE
Sub putspace()
Dim rng As Range
Set rng = Application.InputBox("Please Select Range", Type:=8)
For Each T In rng
k = T
For i = 1 To Len(T)
j = Mid(T, i, 1)
If j = UCase(j) Then
k = WorksheetFunction.Substitute(k, j, " " & j)
End If
T.Offset(0, 1) = WorksheetFunction.
PFA OR BELOW CODE
Sub putspace()
Dim rng As Range
Set rng = Application.InputBox("Please Select Range", Type:=8)
For Each T In rng
k = T
For i = 1 To Len(T)
j = Mid(T, i, 1)
If j = UCase(j) Then
k = WorksheetFunction.Substitute(k, j, " " & j)
End If
T.Offset(0, 1) = WorksheetFunction.Tri
Dear Sandeep,
Please change scope Public instead of Private.
else
share your UDF with group.
On Thu, Sep 6, 2012 at 4:14 PM, wrote:
> Dear all,
>
> I have made a UDF (formula) in personal.xls file. Though it is working
> when I am working @ personal file but when ever I am trying to use it in m
Hi Experts,
I have done this using Indirect(), Can you please help with UDF.
I waiting for your valuable reply
Regards,
Amol J
On Sunday, August 19, 2012 2:46:36 PM UTC+5:30, Amol J wrote:
> Hi All,
>
> Please help me with this problem. its related to range reference . When we
> dra
Hi All,
Please help me with this problem. its related to range reference . When we
drag any formula into columns. it adjust cell accordingly and increase the
columns. but what i want is If i drag sum udf into columns it will increase
columns as well as rows
On Saturday, August 18, 2012 9:
Dear Amol,
Please Try it.*
Function Udf_sum(rng As Excel.Range)
Dim cell As Range
For Each cell In rng
If VBA.IsNumeric(cell) And cell.Value <> "" Then
Udf_sum = Udf_sum + cell
End If
Next cell
End Function
*
On Fri, Aug 17, 2012 at 11:32 AM, Amol J wrote:
> Hi experts, I need your help, I tr
With these solution.. check the function name if you are not typing
correctly..
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Eddie
Sent: Jan/Mon/2012 06:43
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ UDF
I&#
I'm typing the following into the detination cell
"=decile_rank(E2:E60,I2)"
On Jan 9, 1:06 pm, "dguillett1" wrote:
> Without looking too close or testing:
> 1. is it in a REGULAR module. Will NOT work in sheet module
> 2. DataRange is asking for a range such as a1:b10
> 3. RefCell is asking for
Without looking too close or testing:
1. is it in a REGULAR module. Will NOT work in sheet module
2. DataRange is asking for a range such as a1:b10
3. RefCell is asking for a cell such as b12
Hope this helps
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From:
y u r asking to send mail personally to u.
On Tue, Aug 16, 2011 at 7:31 PM, Excel VBASQL wrote:
> I can do this email me at excelvba...@gmail.com
>
>
> On Tue, Aug 16, 2011 at 11:02 AM, ICWAI Help wrote:
>
>> Please provide me UDF functino for below requirement
>>
>> example:)
>>
>> if the cell
CWAI Help
Sent: Tuesday, August 16, 2011 4:04 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ UDF Function for conditoin formetting
Please find the attached file and give me the solution :)
if the perticuler cell value is 4 then next 4 coloumn cells in same row shoudl
be highl
17, 2011 2:34 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ UDF Function for conditoin formetting
Please find the attached file and give me the solution :)
if the perticuler cell value is 4 then next 4 coloumn cells in same row
shoudl be highleted .
On Tue, Aug 16, 2011 at
On 8/16/11, Excel VBASQL wrote:
> I can do this email me at excelvba...@gmail.com
>
> On Tue, Aug 16, 2011 at 11:02 AM, ICWAI Help wrote:
>
>> Please provide me UDF functino for below requirement
>>
>> example:)
>>
>> if the cell value is 4 then including active cell next 4 cell in a row
>> should
Please find the attached file and give me the solution :)
if the perticuler cell value is 4 then next 4 coloumn cells in same row
shoudl be highleted .
On Tue, Aug 16, 2011 at 11:42 PM, dguillett1 wrote:
> I did this VERY recently in another formum. Was it you?
> Right click sheet tab>view cod
I did this VERY recently in another formum. Was it you?
Right click sheet tab>view code>insert this
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr As Long
tr = Target.Row
Rows(tr).Borders(xlEdgeBottom).LineStyle = xlNone
If Target.Column <> 1 Or Not IsNumeric(Target) Or _
Len(Applicati
I can do this email me at excelvba...@gmail.com
On Tue, Aug 16, 2011 at 11:02 AM, ICWAI Help wrote:
> Please provide me UDF functino for below requirement
>
> example:)
>
> if the cell value is 4 then including active cell next 4 cell in a row
> should be higleted with color.
> ex
> if
> a1 is 4
16 matches
Mail list logo
