Excel Forum

Posted: **Tue Apr 09, 2019 4:45 pm**

เรียน ท่านสมาชิกทุกท่านค่ะ

เนื่องจากต้องการ Copy ข้อมูลรายปัญหางานที่เกิดขึ้นในแต่ละวันจาก Pivot Table ใน Sheet "Short&Over by SKU" โดยให้ Copy ข้อมูลจากคอลัมน์ A ถึง Q ไปรวมที่ Sheet "Summary_Short&Over" โดยมีเงื่อนไขคือให้ Copy ข้อมูลไปเฉพาะบรรทัดในคอลัมน์ Q มีคำว่า "Record" ถ้าไม่มีไม่ต้อง Copy ไป และให้ข้อมูลเรียงต่อกันทุกวัน แต่เมื่อทดลองทำพบว่าติดปัญหา คือ ข้อมูลไปแทนที่ข้อมูลเก่าและข้อมูลทับแถวที่ 2 ที่เป็นชื่อคอลัมน์ทุกครั้ง

สรุปคือ ต้องการให้ข้อมูลที่ Copy มาเรียงต่อกันและต้องการให้ Copy เฉพาะข้อมูลมาโดยไม่เอาหัวคอลัมน์มาค่ะ

รบกวนท่านผู้รู้ช่วยแนะนำวิธีแก้ไขด้วยค่ะ

Posted: **Tue Apr 09, 2019 8:40 pm**

ปรับเป็นนี้ดูครับ

Code: Select all

Sub Record_ShortOver()
On Error Resume Next
     'Record Short & Over to sheet summary
     r = Sheets("Summary_Short&Over").Range("A" & Rows.Count).End(xlUp).Row + 1
    'Sheets("Summary_Short&Over").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CurrentRegion.ClearContents
    Sheets("Short&Over by SKU").Range("A8:Q15000").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Short&Over by SKU").Range("A1:A2"), _
    CopyToRange:=Sheets("Summary_Short&Over").Range("A" & Rows.Count).End(xlUp).Offset(1), Unique:=False
    Sheets("Summary_Short&Over").Rows(r).Delete
    End Sub

Posted: **Tue Apr 09, 2019 9:47 pm**

K.Puriwutpokin ใช้ได้ตามที่ต้องการเลยค่ะ ขอบคุณมากๆ ค่ะ

Excel Forum

ต้องการ Copy ข้อมูลรายวันจาก Pivot Table ไปรวมที่ Sheet สรุปและให้ข้อมูลเรียงต่อกันทุกวัน

ต้องการ Copy ข้อมูลรายวันจาก Pivot Table ไปรวมที่ Sheet สรุปและให้ข้อมูลเรียงต่อกันทุกวัน

Re: ต้องการ Copy ข้อมูลรายวันจาก Pivot Table ไปรวมที่ Sheet สรุปและให้ข้อมูลเรียงต่อกันทุกวัน

Re: ต้องการ Copy ข้อมูลรายวันจาก Pivot Table ไปรวมที่ Sheet สรุปและให้ข้อมูลเรียงต่อกันทุกวัน