Snasui Excel Forum

จากการทดลอง ผมได้ส่งเมล์แล้วแนบไฟล์มาโคร เพื่อให้เครื่องอื่นๆได้ copy ลงไปยังเครื่องนั้นๆครับ โดยให้ทำการเซฟไฟล์ไว้ที่ drive C โดยตรง และในหน้า desktop แล้วครับ ไม่ได้บันทึกไว้ใน Drive ส่วนรวมครับ เมื่อลองเซฟไฟล์ ก็แจ้งเตือนตามภาพ 1,2 และ 3 ตามลำดับครับ

ผมได้ทำการเขียนมาโครและ save ไฟล์ .xlsm มา 1 ไฟล์ และส่งเมล์เพื่อแชร์ไฟล์กับคอมพิวเตอร์เครื่องอื่นครับ
เมื่อตอมพิวเตอร์เครื่องอื่น โหลดไฟล์มาโครมาใช้ ปรากฎว่าไม่สามารถเซฟได้ครับ

ปล1.ในไฟล์มีการใช้ Power query และ macro ครับ
ปล.2 ก่อนหน้านี้เคยแชร์ไฟล์มาโครอื่นกับคอมพิวเตอร์เครื่องอื่นแต่สามารถใช้ได ...

ได้ผลลัพธ์แล้วครับ ลองสลับเงื่อนไขนิดหน่อย ขอบคุณมากครับ
Dim srAll As Range, rngSr As Range
Dim tgAll As Range, rngTg As Range
With Worksheets("Sheet3")
Set srAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
End With
With Worksheets("Sheet1")
Set tgAll = .Range("a3", .Range("a" & .Rows ...

ตัวแปร rngSr และ rngTg ต้องกำหนดค่าไหมครับ พอดีลองนำมาปรับแล้วค่อนข้างงง

พอดีไปจำลองไฟล์ข้อมูลแล้วปรับโค้ดดูบางส่วน ดังไฟล์แนบครับ แต่เกิด runtime error '424'
Sub testmc()
Dim i As Long
Dim j As Long

j = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To j
If Sheet3.Cells(i, "J") = Sheet1.Cells(i, "H") And Sheet3.Cells(i, "K") = Sheet1.Cells(i, "G") Then ...

สวัสดีครับ ต้องการ ก๊อปปี้ค่าจาก sheet3 มาวางที่ sheet1 แบบหลายเงื่อนไขครับ
- สิ่งที่ต้องการคือ copy column O จาก Sheet3 มาวางที่ column AL ของ Sheet1 และ copy column F จาก Sheet3 มาวางที่ column AP ของ Sheet1 ถ้าเข้าเงื่อนไขครับ
- เงื่อนไขคือ column H ของ Sheet1 ต้อง = column J ของ Sheet3 และ ...