ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy สูตร

[suka]

ขอรบกวนช่วยเรื่องปรับ Code VBA ด้านล่างนี้ค่ะ
เมื่อกดปุ่ม Record ที่ชีท FormAddEmp แล้ว Code Copy ข้อมูลมาวางที่ชีทที่ DataEmp พร้อมกับ Copy สูตรที่คอลัมน์ F:I และ คอลัมน์ L:O ลงมาด้วยค่ะ จะต้องปรับอย่างไรค่ะ

Code: Select all

Sub PasteDataEmp()
    Application.ScreenUpdating = False
    Sheets("TempEmp").Range("A2:E2").Copy
    Sheets("DataEmp").Range("A65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("TempEmp").Range("F2:G2").Copy
        Sheets("DataEmp").Range("J65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

ขอบคุณค่ะ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub PasteDataEmp()
    Application.ScreenUpdating = False
    Sheets("TempEmp").Range("A2:E2").Copy
    Sheets("DataEmp").Range("A65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("DataEmp").Range("F65536").End(xlUp).Resize(2, 4).FillDown
    Sheets("TempEmp").Range("F2:G2").Copy
    Sheets("DataEmp").Range("J65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("DataEmp").Range("L65536").End(xlUp).Resize(2, 4).FillDown
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

[suka]

ขอบคุณมากๆค่ะอาจารย์ ได้ตรงตามที่ต้องการเลยค่ะ

[suka]

ขอรบกวนเรื่องปรับสูตรที่ชีท DataEmp
คอลัมน์ G:I ให้สูตร Today รวมเข้าอยู่ในคอลัมน์ G:I แทนที่คอลัมน์ F ค่ะ

ขอบคุณค่ะ

[snasui]

ในโอกาสต่อไป ควรปรับมาเองดูก่อนจะได้ฝึกความคุ้นเคย สูตรลักษณะนี้ไม่ได้มีความยุ่งยากซับซ้อนมากนักครับ

ตัวอย่าง จากสูตรเดิมที่ G2

=DATEDIF(E2,F2,"Y")

ปรับเป็น

=DATEDIF(E2,Today(),"Y")

Enter > Copy ลงด้านล่าง

[suka]

ขอบคุณค่ะอาจารย์ ในโอกาสต่อๆไปจะพยายามให้มากขึ้นค่ะ