use this one
Public f As Object, d As Object, sw As Object
Sub Main()
Dim Fso As Object
Set sw = CreateObject("Scripting.FileSystemObject")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul"
use move to move files and copy to copy the files
Public f As Object, d As Object
Sub Main()
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul")
FolderRead RootFolder
End Sub
cells F5 "=RANK(E5,$E$5:$E$14,0)"
...
cells F14 "=RANK(E14,$E$5:$E$14,0)"
everything is OK, good luck for you
On 5月13日, 上午10時50分, Rajesh K R wrote:
> Hi Experts,
>
> Pls find the attachment and tell me how to rank the rooms as per the
> collection received from them.
>
> Regards
>
> Rajesh Kain
what in case of address
which one it should pic
absolute address access address
On Fri, May 13, 2011 at 8:42 PM, Ivaylo wrote:
> Hi Ashish,
>
> Thank you very much for your efforts!
>
> Your macro is just what I needed.
>
> However, it seems that it doesn't handle the exceptions:
>
>
Hi friends,
I have a simple request that it's confusing me. I have a folder (let's call
"c:\motherfolder\"), that has thousands of subfolders. In each subfolder
there are 3 files: 1 .pdf, 1 excel (may be .xls or .xlsx), and 1 .jpeg.
I need to copy all pdfs to one folder (let's say "c:\pdfs_folder\
Simply use the sumifs formula
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of ChilExcel
Sent: Wednesday, May 11, 2011 2:54 AM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Consolidate data
Please see attached file
By Chile
Hi Rajesh
Try
in F5 cell use below formula and drag it
'=RANK(E5,$E$5:$E$14)
On Fri, May 13, 2011 at 8:20 PM, Rajesh K R wrote:
> Hi Experts,
>
> Pls find the attachment and tell me how to rank the rooms as per the
> collection received from them.
>
> Regards
>
> Rajesh Kainikkara
>
> --
>
> --
Hi
You can use the formula
=RANK(C5,$C$5:$C$14)
I have used Rent as the Ranking Criteria. If you want to use Total
Collection, simply change C5 in the above formula to E5.
Copy the formula in all the required cells.
Thanks
Ashish
On 5/13/2011 8:20 PM, Rajesh K R wrote:
Hi Experts,
Pls
Hi Rajesh,
Please find attached.
Regards,
Mayur
On Fri, May 13, 2011 at 9:50 AM, Rajesh K R wrote:
> Hi Experts,
>
> Pls find the attachment and tell me how to rank the rooms as per the
> collection received from them.
>
> Regards
>
> Rajesh Kainikkara
>
> --
>
> ---
Dear Ashish,
This formula not working Request you please clarify attached excel
sheet.
Regards
Kailash
From: excel-macros@googlegroups.com
[mailto:excel-macros@googlegroups.com] On Behalf Of ashish koul
Sent: Friday, May 13, 2011 8:35 PM
To: excel
Hi Ashish,
Thank you very much for your efforts!
Your macro is just what I needed.
However, it seems that it doesn't handle the exceptions:
===
How to handle exceptions:
If the consituent word doesn't have its own headword in the list,
then
the missing
Hi Experts,
Basically i have 4 different workbooks data with same format i will
consolidate all the 4 work books and apply filter
and go to
Column AH, and filter by X category and move them to new sheet and
rename that new sheet as In active
like wise ill perform the same for these four
Sub swa()
Dim s
For k = 1 To Sheets(1).Range("a65356").End(xlUp).Row
s = ""
For i = Len(Sheets(1).Cells(k, 1).Text) To 1 Step -1
If IsNumeric(Mid(Sheets(1).Cells(k, 1).Value, i, 1)) Then
s = Mid(Sheets(1).Cells(k, 1).Value, i, 1) & s
Else
Exit For
End If
Next i
MsgBox s
Sheets(1).Cells(k,
Sub swa()
Dim s
For k = 1 To Sheets(1).Range("a65356").End(xlUp).Row
s = ""
For i = Len(Sheets(1).Cells(k, 1).Text) To 1 Step -1
If IsNumeric(Mid(Sheets(1).Cells(k, 1).Value, i, 1)) Then
s = Mid(Sheets(1).Cells(k, 1).Value, i, 1) & s
Else
Exit For
End If
Next i
MsgBox s
Sheets(1).Cells(k,
Hi Everybody
Thank you for all send me reply.
Regards
Rajesh Kainikkara
On 5/13/11, rajan verma wrote:
> we can compare range without if by array function..
> ={(C3:J3)=(C4:J4)}
>
> -- Forwarded message --
> From: irfan khan
> Date: Thu, May 12, 2011 at 9:42 PM
> Subject: Re: $
Hi Experts,
Pls find the attachment and tell me how to rank the rooms as per the
collection received from them.
Regards
Rajesh Kainikkara
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips
try this pivot pivot tutorial
http://www.contextures.com/xlPivot11.html
http://www.contextures.com/excel-vba-pivot-table-field-list.html
You can also select the header and use find and replace option
On Thu, May 12, 2011 at 4:11 PM, Jorge Marques wrote:
> Hi guys is there anyway to format
can you attach the sample sheet
On Thu, May 12, 2011 at 3:47 PM, sagaraher wrote:
> I have got following data in excel. I need to copy 1st number in given
> row for e.g. 122532 should be copied against 100 for 4 times & similar
> way 321654 should be get copied against 200 for 3 time like way.
>
can you explain it bit more and attach the sample sheet
On Wed, May 11, 2011 at 4:45 PM, jmothilal wrote:
> Dear Experts,
>
>
> I am typing Name and place name day 2 day different excel files,
> what is easy method i type these names and place names.
>
>
>
>
> --
> J.Mohilal
> Universal
try this code
Sub tests()
Dim i As Long
Dim z As String
For i = 1 To Sheets(1).Range("a65356").End(xlUp).Row
If InStr(1, Application.WorksheetFunction.Trim(Cells(i, 1)), " ") > 0 Then
Cells(i, 2) =
Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Trim(Cells(i,
1)), " "
Dear, With due respect to your effort, I tried with a simplified formula and
got the same result. Please the attached file with both formulas. Thanks
Regards,
ZAFAR IQBAL
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On
Behalf Of §»VIPER«§
Sent: Thursday, May 12
Hi Experts,
I have Consolidate Addresses along with PIN code in one column I need
only the PIN the pin code in Next column Please confirm if any formula
for this,
Regards
Appointment Address
PIN Code
13/1, NS road, room no735, Martial street,kolkata-71
text to column and select tab..
On Thu, May 12, 2011 at 5:12 PM, renuka chari wrote:
> hi to all thanks in advance here iam attaching one file i need like
> that but idont know how to do this can u help me any one Pl
>
> thanks & regards
>
>
>
>
>
> On 12 May 2011 05:58, wrote:
> >
On 12 Mai, 13:22, Born to Win wrote:
> Hi Experts,
>
> in attached excel file you can see contact no. along with many services
> activated on a single no. & you can find it in separate entry i am trying to
> write a VB program so that i would have unique no. & services (column wise)
> in new s
Excellent formula. Well Done.
Regards,
ZAFAR IQBAL
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Sixthsense
Sent: Friday, May 13, 2011 12:13 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ How to change Date format
Hi Prabhu,
Try
Hi Stdev,
Your Solution will fail when the person intended to mention the year 1998 in
this manner 10498.
---
*Sixthsense
**:) Man of Extreme & Innovative Thoughts :)*
On Fri, May 13, 2011 at 4:13 PM, STDEV(i) wrote:
> *
> =DATE(2000+RIGHT(B2,2),MID(TEXT(B2,"00"),3,2),LEFT(TEXT(B2,"
we can compare range without if by array function..
={(C3:J3)=(C4:J4)}
-- Forwarded message --
From: irfan khan
Date: Thu, May 12, 2011 at 9:42 PM
Subject: Re: $$Excel-Macros$$ if with 3 criteria
To: excel-macros@googlegroups.com
Hi Rajesh,
I am not clear with you problem, yes
thank you mr sixthsense
may i modif the formula to be:
=DATE(YEAR(
DATEVALUE("1Jan"&RIGHT(B2,2))),MID(TEXT(B2,"00"),3,2),LEFT(TEXT(B2,"00"),2))
On Fri, May 13, 2011 at 6:03 PM, Sixthsense wrote:
> Hi Stdev,
>
>
> Your Solution will fail when the person intended to mention the year 19
Hi Prabhu,
Try the below formula and format the cell as date.
=IF(AND(OR(LEN(TRIM(B2))=5,LEN(TRIM(B2))=6),ISNUMBER(B2)),IF(LEN(TRIM(B2))=5,--(--MID(TRIM(B2),2,2)&"-"&--LEFT(TRIM(B2),1)&"-"&--MID(TRIM(B2),4,2)),--(--MID(TRIM(B2),3,2)&"-"&--LEFT(TRIM(B2),2)&"-"&--MID(TRIM(B2),5,2))),"")
Herewit
29 matches
Mail list logo
