Snasui Excel Forum

Code: Select all

Application.Calculation = xlCalculationManual
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rs Then rt.Offset(0, 28) = "Y"
        Next rt
    Next rs
Application.Calculation = xlCalculationAutomatic

Code: Select all

Application.Calculation = xlCalculationManual
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rs Then rt.Offset(0, 28) = "Y"
        Next rt
    Next rs
    For Each rs In rSource
        For Each rt In rTarget
            If rt = rd Then rt.Offset(0, 29) = "Y"
        Next rt
    Next rd
    Application.Calculation = xlCalculationAutomatic

Code: Select all

Application.ScreenUpdating = False
   Set rk = wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    With formBook.Sheets("TemBilling")
    .Range("A20:N20").Copy
    wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
 End With

Code: Select all

Application.ScreenUpdating = False
   Set rk = wkShare.Sheets("Check").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    With formBook.Sheets("TemBilling")
    .Range("A20:N20").Copy
    wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).PasteSpecial xlPasteValues
End With

Code: Select all

Sub test()
    Application.ScreenUpdating = False
    If Sheets("Form").Range("J4") = "เงินสด" Then
        Set rk = wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        With formBook.Sheets("TemBilling")
            .Range("A20:N20").Copy
            wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp) _
            .Offset(1, 0).PasteSpecial xlPasteValues
        End With
    Else
        Set rk = wkShare.Sheets("Check").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        With formBook.Sheets("TemBilling")
            .Range("A20:N20").Copy
            wkShare.Sheets("Cash").Range("A" & Rows.Count).End(xlUp) _
            .Offset(1, 0).PasteSpecial xlPasteValues
        End With
    End If
End Sub