Hi Chechu & all of the group members
Thanks for your help..
I am really very new for this all macros and excel..
That would be great if you could help me to understand how to use this code.
--Bunty
On Mon, Sep 14, 2009 at 3:23 PM, Chechu <cecic...@hotmail.com> wrote:
>
> 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
-~----------~----~----~----~------~----~------~--~---
