I run a rental company. I am looking to have a summary built that will pull equipment utilization % from several hundred "jobs" . I already have the "rental log" sheet built to show the percentages for each job. I would like a summary built that will pull/copy 6 fields from every "rental log" into a summary showing job number, customer name, job description, field contact, Phone number, utilization % . I am attaching a sample rental log. The fields im looking to pull are C1,C2,C3,L1,L2,M309. I have several hundred of these logs located on my server. the path is p:\customer\customer name\"job number"\rental log. I will need to ignore any rental logs that are in the "closed" folder P:customer\customer name\closed jobs. I will email rental log as it is to big (775kb) to upload. my email is "[email protected]"[/email] or post your email ITT and I will send it to you.
Pull/Copy specific cell values from multiple sheets to a summary $30
-
-
-
Re: Pull/Copy specific cell values from multiple sheets to a summary $30
will have a look at this. Sending you a mail from my id
-
Re: Pull/Copy specific cell values from multiple sheets to a summary $30
Code is ready. Please send payment to the same id, and I will post the solution here.
-
Re: Pull/Copy specific cell values from multiple sheets to a summary $30
please post your paypal ID and I will send. I have sent the $3 to ozgrid. ty
-
Re: Pull/Copy specific cell values from multiple sheets to a summary $30
just sent via paypal
-
-
Re: Pull/Copy specific cell values from multiple sheets to a summary $30
Code
Display MoreSub Consolidator() Dim strFile As String Dim strFileType As String Dim strPath As String Dim lngLoop As Long Dim wbkCSV As Workbook strPath = "C:\Give\Your\Path\Here\" strFileType = "*.xls" 'Split with semi-colon if you want to specify the file types. Example ->> "*.xls;*.xlsx;*.csv;*.xlsb" With ThisWorkbook.Worksheets("Summary") .UsedRange.Offset(1).Clear End With For lngLoop = LBound(Split(strFileType, ";")) To UBound(Split(strFileType, ";")) strFile = Dir(strPath & Split(strFileType, ";")(lngLoop)) Do While strFile <> "" Set wbkCSV = Workbooks.Open(strPath & strFile, , True) ThisWorkbook.Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 6).Value = Array(wbkCSV.Sheets(1).Range("C1").Value, wbkCSV.Sheets(1).Range("C2").Value, wbkCSV.Sheets(1).Range("C3").Value, wbkCSV.Sheets(1).Range("L1").Value, wbkCSV.Sheets(1).Range("L2").Value, wbkCSV.Sheets(1).Range("M309").Value) wbkCSV.Close 0 Set wbkCSV = Nothing strFile = Dir Loop Next lngLoop Application.Goto ThisWorkbook.Worksheets("Summary").Cells(1) strFile = vbNullString strFileType = vbNullString strPath = vbNullString lngLoop = Empty End Sub
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!