2016年7月6日星期三

How Can I Fix - auto compile data and auto sort??

auto compile data and auto sort?

how do i use excel to automatically copy data from a load of tabs in a sheet to a summary tab in the same document and then put into date order automatically too?

Keys to the Problem auto compile data and auto sort?

Download Error Fixer (Free)

Try this..
Right-click on the tab of your summary sheet (at the bottom of Excel) and View Code.
Paste the following:

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim lnLastRow As Long, lnSumNextRow As Long, lnSumLastRow As Long
   
    Application.ScreenUpdating = False
   
     'Clear the Summary sheet below the column headers:
    lnSumLastRow = Me.Range("A" & Me.Rows.Count).End(xlUp).Row
    If lnSumLastRow > 2 Then Me.Range("A2:J" & lnSumLastRow).ClearContents
   
     'Copy data from each worksheet:
    For Each ws In ActiveWorkbook.Worksheets
        If Not ws Is Me Then 'skip the summary sheet
            If WorksheetFunction.CountA(Cells) > 0 Then
                 'Get next empty row on summary sheet for destination:
                lnSumNextRow = Me.Range("A" & Me.Rows.Count).End(xlUp).Row + 1
               
                 'Get last row to be copied on the source sheet:
                lnLastRow = ws.Cells.Find(What:="*", _
                    After:=ws.Range("A1"), _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious).Row
               
                 'Copy data from source sheet to summary sheet:
                ws.Range("A2:J" & lnLastRow).Copy Destination:=Me.Range("A" & lnSumNextRow)
            End If
        End If
    Next ws
   
     'Get the last row containing data (in col A) in the summary sheet:
    lnSumLastRow = Me.Range("A" & Me.Rows.Count).End(xlUp).Row
   
     'Sort the summary sheet:
    With Me.Sort
        .SortFields.Clear
       
         'Sort by date:
        .SortFields.Add _
            Key:=Me.Range("A2:A" & lnSumLastRow), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
       
         'Then sort by time:
        .SortFields.Add _
            Key:=Me.Range("B2:B13"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
       
        .SetRange Me.Range("A:J")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Application.ScreenUpdating = True
End Sub

This code will run automatically each time you activate the summary sheet.  It clears the summary sheet, then copies all the data from ALL the other sheets in the workbook, from cols A:J, into the summary sheet.  It then sorts the summary sheet by date and
then by time.
Cheers
Rich
 
PS.
You must save your file as macro enabled *.xlsm

Because of this auto compile data and auto sort? error, Windows can fail in starting some processes and the system's performance can significantly slow down. In some cases, Windows has problems starting up and the system can freeze.

Lastly, this error auto compile data and auto sort? can even result in the Blue screen of death error message, just like other critical Windows errors. If any of the above problems and symptoms occur in your PC, then you should immediately seek to resolve this problem.

In order to resolve auto compile data and auto sort? error or repair the corrupted and damaged Windows files, you will need a auto compile data and auto sort? error repair tool. There is more than one method of treating this kind of error code, and here is how you can manually do it:

  1. Start the computer and log in as administrator
  2. Go to the start button and select All Programs. Go to Accessories, System Tools, and then System Restore
  3. Click on System Restore and in a new window, select the 'Restore my computer to an earlier time's option and click Next
  4. On the new confirmation window that appears, click Next
  5. Restart your computer after the restoration has been completed

Another Safe way to Repair the Problem: auto compile data and auto sort?:

How to Fix auto compile data and auto sort? with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer.  Open it, and it will scan your computer. The errors will be shown in the list.

2. After the scan is done, you can see the errors and problems need to be repaired. Click Fix All.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in this software. Like dll downloading, windows updating and print spooler error repair.


Related: AMD Radeon HD 7800M Win8 not working [Anwsered],I can access the internet, get on facebook and get to hotmail, but I can't play games on facebook and I can't open or respond to my e-mails,I keep getting this Media Player error when I log on my computer. [Anwsered],[Anwsered] System Hanging on shutdown and restart,Unable to get the Vlookup property of the WorksheetFunction class,Solution to Error: Error: "0x81000032 make sure the C: drive is online and set to NTFS" when trying to backup to external hard drive.
,Troubleshoot:External Hard Drive not listed in Windows 7 backup wizard Error
,I'm always being signed off so annoying Tech Support
,Solution to Problem: Impossible to use Internet Explorer! I keep getting the same error message every time i try to use IE.
,Solution to Problem: Referencing data in another file
,Troubleshoot:Error: "0x81000032 make sure the C: drive is online and set to NTFS" when trying to backup to external hard drive. Error,External Hard Drive not listed in Windows 7 backup wizard Tech Support,Tech Support: I'm always being signed off so annoying,Solution to Problem: Impossible to use Internet Explorer! I keep getting the same error message every time i try to use IE.,Referencing data in Access using Excel [Anwsered],Need Best Way To Present Data [Anwsered],Same question but for windows 7 home edition,sometimes fullscreen won't activate [Solved],Solution to Error: We bought a new computer with windows 7 and it is constantly freezing. How do we fix this?,Solution to Error: Windows 8 update crash (2013-07-22)
Read More: Solution to Error: Back up process,Troubleshooting:Backup and\/or formatting dvds causes drive to go into a loop. Need to manually eject to stop it. Error,Solution to Error: Are the MCSA and MCITP: Server Administrator on Windows Server 2008 essentially the same thing? From the looks of it they have the exact same course requirements.,AVERAGEIF and AND functions. How can I average one column if another column meets a RANGE of criteria,Troubleshooting:Averaging a group of cells with percentages & ignoring the 0% cells,application not found error,any problems in a team where one has Windows XP and the other has Windows 7?,Application/Object-Defined Error,An Excel formula question where hours are totalled and cumulating,Anyone know the hardware email?

没有评论:

发表评论

注意:只有此博客的成员才能发布评论。