Thank you sir,
Can you please teach me, when i was trying to extract data from individual
production log using consolidated work book.
It was pulling data even from header of the individual production log
Function BrowseFolder() As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
If .SelectedItems.Count > 0 Then
Set objFolder = objFso.GetFolder(.SelectedItems(1))
BrowseFolder = objFolder.path
End If
End If
End With
End Function
Sub consolidate()
Dim strPath As String
Dim objFolder As Object
Dim objFile As Object
Dim objFso As Object
Dim wksCon As Worksheet
Dim wbkOpen As Workbook
Dim lngLastrow As Long
strPath = BrowseFolder
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If strPath <> "" Then
If Len(Dir(strPath, vbDirectory)) > 1 Then
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strPath)
For Each objFile In objFolder.Files
Set wbkOpen = Workbooks.Open(objFile.path)
If wbkOpen.FullName <> ThisWorkbook.FullName Then
For Each wksCon In wbkOpen.Worksheets
lngLastrow = ThisWorkbook.Worksheets(1).Range("a" &
Rows.Count).End(xlUp).Row + 1
wksCon.UsedRange.Offset(1).Copy
ThisWorkbook.Worksheets(1).Range("a" & lngLastrow)
wksCon.UsedRange.Borders.Weight = 2
Next
wbkOpen.Close
End If
Next
MsgBox "Done", vbInformation
Else
MsgBox "Please select a folder containing all Files you want to
consolidate", vbCritical, "Browse"
End If
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub
Please assist me.
Thanks
Manjunath
On Fri, Feb 21, 2014 at 6:43 AM, Manjunath Narayanappa <
manjunath.n1...@gmail.com> wrote:
> Thank you very much, i'm not getting words to express ...
> Its was simply superb
>
> Can you please teach me . Why was first consolidated workbook was pulling
> data even from header for individual production log.(eg: A1, A2, A3 rows)
> Is there any option that we can extract data from A4 rows.
>
> Thanks
> Manjunath
>
>
>
>
>
>
> On Thu, Feb 20, 2014 at 4:40 PM, priti verma <pritiverma1...@gmail.com>wrote:
>
>> somthing like this?
>>
>> if you have date in 2nd column.it wil put all data of today,s date.
>>
>>
>> On Wed, Feb 19, 2014 at 10:00 AM, Manjunath Narayanappa <
>> manjunath.n1...@gmail.com> wrote:
>>
>>> Hi
>>>
>>> Thank you very much,
>>> Please note :On daily basis i need to extract data from 50 users
>>> individual IPL& pull same data in consolidated IPL
>>>
>>>
>>> *for ex : I have a data for 02/18/2014 & 02/19/2014 i need to extract
>>> only 02/19/2014 todays data*
>>> *so every day when i run report it need to extract for that particular
>>> day*
>>> *& if there are any*
>>>
>>> Please find the attachment for your reference
>>>
>>> Thanks
>>>
>>> --
>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
>>> It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>>> https://www.facebook.com/discussexcel
>>>
>>> FORUM RULES
>>>
>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>>> will not get quick attention or may not be answered.
>>> 2) Don't post a question in the thread of another member.
>>> 3) Don't post questions regarding breaking or bypassing any security
>>> measure.
>>> 4) Acknowledge the responses you receive, good or bad.
>>> 5) Jobs posting is not allowed.
>>> 6) Sharing copyrighted material and their links is not allowed.
>>>
>>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>>> members are not responsible for any loss.
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "MS EXCEL AND VBA MACROS" group.
>>> To unsubscribe from this group and stop receiving emails from it, send
>>> an email to excel-macros+unsubscr...@googlegroups.com.
>>> To post to this group, send email to excel-macros@googlegroups.com.
>>> Visit this group at http://groups.google.com/group/excel-macros.
>>> For more options, visit https://groups.google.com/groups/opt_out.
>>>
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/groups/opt_out.
>>
>
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
