2016년 9월 23일 금요일

Troubleshoot:create master sheet that summarizes data that is input from other pages

create master sheet that summarizes data that is input from other pages

I have five people (auditors) that will be using a workbook simultaneously in a shared workbook.
Each auditor has their own sheet (Auditor 1, Auditor 2, Auditor 3, Auditor 4, Auditor 5)
 
The auditors will be using columns A:F and filling various criteria on one row at a time.
(columns A & B are automated date and time stamps* see code below, C-F will be used by the auditors)
 
I need to copy that data from every row that is activated onto a master sheet that automatically paste that data on the next available row in the master sheet.
(It's a shared workbook and I dont need them getting any error messages or running into each other.)
 
----code used on the auditor's sheets---------
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo ws_exit

    If Not Intersect(Target, Me.Columns(3)) Is Nothing Then
        Me.Range("B" & Target.Row).Value = Time
    End If
    Me.Range("A" & Target.Row).Value = Date

ws_exit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

Keys to the Problem create master sheet that summarizes data that is input from other pages

Download Error Fixer (Free)

Hi,
try this..
(export data on MasterSheet in columns C:F)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Set ws = Sheets("MasterSheet")'change
    Application.EnableEvents = False
    On Error GoTo ws_exit
    If Not Intersect(Target, Me.Columns(3)) Is Nothing Then
    Me.Range("A" & Target.Row).Value = Date
    Me.Range("B" & Target.Row).Value = Time
     Range(("C" & Target.Row), ("F" & Target.Row)).Copy
     ws.Range("C" & ws.Cells(Rows.Count, "C").End(xlUp).Row + 1).PasteSpecial xlValues
     Application.CutCopyMode = False
    End If
ws_exit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub
Note
I assume that when Auditor1 selects
the cell C10, there are data
in cells D10:F10, otherwise it will copy only
cell C10.

Ι recommend the following code,
when it's ready Auditor1, then double left
click on cell C10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Set ws = Sheets("MasterSheet")
Application.EnableEvents = False
On Error GoTo ws_exit
If Not Intersect(Target, Me.Columns(3)) Is Nothing Then
Me.Range("A" & Target.Row).Value = Date
Me.Range("B" & Target.Row).Value = Time
Range(("C" & Target.Row), ("F" & Target.Row)).Copy
ws.Range("C" & ws.Cells(Rows.Count, "C").End(xlUp).Row + 1).PasteSpecial xlValues
Application.CutCopyMode = False
End If
ws_exit:
Application.EnableEvents = True
On Error GoTo 0
Cancel = True
End Sub

Boot in Safe Mode:

  • Open Run command as previously described
  • Type MSConfig
  • Click on Boot tab
  • Tick Safe boot in Boot option
  • Select Network
  • Click Apply and OK
  • Reboot your system

Your system will boot in Safe mode with Networking. You may now try and open Windows Store and should not see any errors.

Recommended Method to Repair the Problem: create master sheet that summarizes data that is input from other pages:

How to Fix create master sheet that summarizes data that is input from other pages with SmartPCFixer?

1. Download Error Fixer. Install it on your computer.

2. After the scan is done, you can see the errors and problems which need to be fixed.

3. When the Fixing part is done, your computer has been speeded up and the errors have been removed


Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: How to Fix - Conting duplicate values using COUNTIF?,How to Fix - Copy values from cell to cell in vba in the next empty row??,How to Fix Error - Creating a macro to copy range of cells from excel to word (need to keep formatting)?,Fast Solution to Error: created a document, and emailed it. email contained all formatting info etc. not just the document , how do i get rid of formatting information?,Copy values from a table to the first rows and sorted without deleting rows VBA [Anwsered],Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly

댓글 없음:

댓글 쓰기