Hi Bunty,
Take a look to the following code, might help. It opens each .xls in
the same path where this file resides, and copy-paste predefined rows.
Regards,
Chechu
Sub Macro1()
Dim MyFile, MyPath, MyName, ThisFile, Location, PathFileTemp, Fila,
ThisSheet
'On Error GoTo ErrorHandler
ThisSheet = ActiveSheet.Name
Dim Msg, Style, Title, Response, MyString
Msg = ("You are attempting to update the PSC with " & ThisSheet &
" information." & Chr(13) & Chr(13) & "Do you want to proceed?")
Style = vbYesNo Or vbQuestion
Title = "PSC"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyStryng = "Yes"
Location = ThisWorkbook.Path
ThisFile = ThisWorkbook.Name
Fila = 5 'Row where you want to start the paste
MyFile = Dir(Location + "\*.xls")
Do While MyFile <> "" 'And MyFile <> ThisFile 'Start the loop
If MyName <> "." And MyName <> ".." Then
PathFileTemp = Location + "\" + MyFile
Workbooks.Open FileName:=PathFileTemp, updatelinks:=False
'This is my customized macro. Change it based on your needs
Worksheets("Intro").Activate
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 1) = MyFile
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 2) = Cells(5, 3)
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 3) = Cells(6, 3)
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 4) = Cells(7, 3)
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 5) = Cells(8, 3)
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 6) = Cells(9, 3)
Worksheets("Metrics").Activate
ThisWorkbook.Sheets(ThisSheet).Cells(Fila, 7) = Cells(59, 15)
Workbooks(MyFile).Close SaveChanges:=False
End If
MyFile = Dir
Fila = Fila + 1
If MyFile = ThisFile Then
MyFile = Dir
End If
Loop
MsgBox prompt:=("Update Completed!"), Buttons:=vbOKOnly Or
vbInformation, Title:=("PSC")
Else
MyStryng = "No"
MsgBox prompt:=("Operation Canceled!"), Buttons:=vbOKOnly Or
vbInformation, Title:=("PSC")
Range("A1").Select
End If
End Sub
On Sep 13, 4:03 am, pradeep palande <bunty5...@gmail.com> wrote:
> Hi All Excel Gurus,
>
> Can someone help me in ms- excel...
>
> I have few excel files which contains share rate data in below format...
>
> *SYMBOL* *SERIES* *OPEN* *HIGH* *LOW* *CLOSE* *LAST* *PREVCLOSE* *
> TOTTRDQTY* *TOTTRDVAL* *TIMESTAMP* 20MICRONS EQ 26.75 26.75 26 26.3 26.1
> 25.65 33087 873877.45 03-Aug-09 20MICRONS EQ 26.7 27.8 26 27.4 27.35 26.3
> 78730 2129558.95 04-Aug-09
>
> 1] I would like to have a macro which will merge all the data from all excel
> files in to one file.
> 2] I would like to have a macro which will tell me that each symbol's
> (Share) increase % compared to previous timestamps closing rate.
>
> would like to do this with the help of macro....
>
> Also one more issue - Excel can contain data till 65000 rows whereas i have
> more than 2 lacs rows. Is the same thing possible in access..
>
> Can someone help me on this????
>
> Thanks in advance..
>
> --Bunty
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
