Snasui Excel Forum

Code: Select all

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sheets("BAY").Range("R22") <> Sheets("BAY").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("BAY").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("BAY")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("BBL").Range("R22") <> Sheets("BBL").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("BBL").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("BBL")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
         If Sheets("CImBT").Range("R22") <> Sheets("CImBT").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("CImBT").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("CImBT")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
    If Sheets("KBANK").Range("R22") <> Sheets("KBANK").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("KBANK").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("KBANK")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("KTB").Range("R22") <> Sheets("KTB").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("KTB").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("KTB")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("KK").Range("R22") <> Sheets("KK").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("KK").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("KK")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("LHBANK").Range("R22") <> Sheets("LHBANK").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("LHBANK").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("LHBANK")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("SCB").Range("R22") <> Sheets("SCB").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("SCB").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("SCB")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("TCAP").Range("R22") <> Sheets("TCAP").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TCAP").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TCAP")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("TISCO").Range("R22") <> Sheets("TISCO").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TISCO").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TISCO")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
        If Sheets("TmB").Range("R22") <> Sheets("TmB").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TmB").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TmB")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
            If Sheets("GC").Range("R22") <> Sheets("GC").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("GC").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("GC")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("IVL").Range("R22") <> Sheets("IVL").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("IVL").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("IVL")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("PATO").Range("R22") <> Sheets("PATO").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("PATO").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("PATO")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("PTTGC").Range("R22") <> Sheets("PTTGC").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("PTTGC").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("PTTGC")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("TCB").Range("R22") <> Sheets("TCB").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TCB").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TCB")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("TCCC").Range("R22") <> Sheets("TCCC").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TCCC").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TCCC")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("TPA").Range("R22") <> Sheets("TPA").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TPA").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TPA")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("TPC").Range("R22") <> Sheets("TPC").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("TPC").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("TPC")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("UP").Range("R22") <> Sheets("UP").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("UP").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("UP")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("VNT").Range("R22") <> Sheets("VNT").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("VNT").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("VNT")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("WG").Range("R22") <> Sheets("WG").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("WG").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("WG")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    
                If Sheets("YCI").Range("R22") <> Sheets("YCI").Range("A" & Rows.Count).End(xlUp) Then
        Sheets("YCI").Range("R22,AR22,AU22,AV22,AW22").Copy
        With Sheets("YCI")
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).PasteSpecial xlPasteValues
        End With
        Application.CutCopyMode = False
    End If
    ActiveWorkbook.Save
End Sub