ขอรบกวนช่วยเรื่อง Code VBA เมื่อเทียบค่าตรงกัน

[suka]

ขอบคุณค่ะอาจารย์ ได้แล้วค่ะ

[suka]

เรียนอาจารย์และท่านผู้รู้ช่วยเรื่องปรับ Code ด้านล่างนี้นับถัดไป 28 คอลัมน์ให้ใส่ Y
ต้องการให้ Code เพิ่ม Y อีกตัวที่คอลัมน์ที่ 29 ค่ะ ขอบคุณค่ะ

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

[snasui]

ช่วยโพสต์ Code ที่ลองเขียนเองมาแล้ว และช่วยแจ้งด้วยว่าติดที่บรรทัดใดครับ

[suka]

ค่ะอาจารย์ code ที่เขียนติดที่บรรทัด Next rd ตามรูปแนบค่ะ

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

[snasui]

จาก Code นี้

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

ปรับ Statement ของ If จากเดิมเป็น If rt = rs Then rt.Offset(0, 28).resize(,2) = "Y" ครับ

[suka]

ขอบคุณค่ะอาจารย์ ใช้ได้ตรงตามต้องการค่ะ

[suka]

เรียนอาจารย์และท่านผู้รู้ช่ายปรับ Code ด้านล่างนี้ค่ะ

Code สำหร้บเอาข้อมูลชีท TemBilling A20:N20 คัดลอกไปไว้ชีท Cash ไฟล์ MyPay_BookShare ค่ะ

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 นี้เพื่อเอาข้อมูลชีท TemBilling เซลล์ A20:N20 คัดลอกไปไว้ชีท Check ไฟล์ MyPay_BookShare

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

ต้องการร่วมเป็นโค๊ดเดี่ยวค่ะ
ชีท Form เซลล์ J4 เป็น เงินสด ให้ Code เอาข้อมูลชีท TemBilling เซลล์ A20:N20 คัดลอกไปไว้ชีท Cash ไฟล์ MyPay_BookShare
ถ้าหากชีท Form เซลล์ J4 เป็นค่าอื่นๆไม่ใช่ (เงินสด)ให้ Code เอาข้อมูลชีท TemBilling เซลล์ A20:N20 คัดลอกไปไว้ชีท Check ไฟล์ MyPay_BookShare
ขอบคุณค่ะ

[snasui]

ตัวอย่างการใช้ If เข้าไปใช้ในการตัดสินใจ ลองปรับใช้ดูครับ

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

[suka]

ขอบคุณค่ะอาจารย์ ใช้ได้ตรงตามต้องการแล้วค่ะ