Excel Forum

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

Sub Select_Last_Row()

'Motor MTPL
Sheets("Control").Select
Range("D3:D67").Copy
Sheets("Motor MTPL").Select
Cells(10, Columns.Count).End(xlToLeft).Offset(, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True ...

จากไฟล์แนบปรับโค้ดแล้วค่ะ ไฟล์อัพเดทจะมาวางที่ชีท Control ทุกเดือนค่ะ หลังจากนั้นจะ copy D3:D67 ไปวางที่ชีท Motor MPTL ตั้งแต่คอลัมน์ B10 พอรันใหม่ในอีกเดือน ก็จะ Copy ที่ D3:D67 แต่ไปวางถัดไปที่ C10 แบบนี้ไปเรื่อยๆ ค่ะเพื่อให้เรียงตามเดือน

อาจารย์คะ

หลังจากปรับโค้ดแล้ว ข้อมูลมาที่ B10 จุดเดียวเลยค่ะ หากต้องการให้ข้อมูลเดือนถัดไป วางต่อที่ C10, D10 ตามเดือนเรื่อยๆ ต้องปรับแก้อย่างไรคะ ขอบคุณค่ะ

สวัสดีค่ะ

รบกวนขอความช่วยเหลือ Coding Macro ค่ะ
1.โจทย์ที่ชีท Control โดย Copy คอลัมน์ D3:D67 มา paste ที่ชีท Motor MTPL เริ่มที่คอลัมน์ B10 เป็นข้อมูลในเดือนม.ค.ค่ะ ปัญหาที่พบคือ หากเป็นเดือนม.ค.จะเกิด error ค่ะ หากมีเดือนถัดๆ ไปต่อกันมาทางขวาจะไม่พบปัญหาค่ะ รบกวนช่วยแนะนำหรือปรับแก้ให้หน่อยค่ะ
2 ...

เรียน อาจารย์คะ

ใช้งานได้ตรงตามความต้องการค่ะ ขอบคุณมากค่ะ

สวัสดีค่ะ
เรียนสอบถามการแก้ไข การเรียกใช้ call แล้วพบ error และ การ copyเฉพาะข้อมูลที่ต้องการ รวม 2 ข้อค่ะ

1.การเรียกใช้ call เพื่อต้องการกดทีเดียวที่ sub one click() พบ error ที่ Module I_Import ชื่อ sub LoopThroughDirectory () แสดงค้างที่ ActiveSheet.Paste Destination:=Worksheets("Collect Data ...

อาจารย์คะ เปลี่ยนไปใช้โค้ดนี้แทนแล้วค่ะ เมื่อลองทดสอบเปิด workbook ใหม่และกด copy ค้างไว้ สามารถวางได้ไม่พบ error แล้วค่ะ
ขอบคุณสำหรับความกรุณาค่ะอาจารย์

'On Error Resume Next

Worksheets("Control").Activate
Application.CutCopyMode = False
Range("A:A").Clear

Set MyWorksheet = ActiveWorkbook ...

เรียนอาจารย์คะ กรณีต้องการปิดการ copy ค้างไว้ค่ะ หลังจากวางคำสั่ง Application.CutCopyMode = False ยังไม่สามารถปิดการ copy ค้างไว้ได้ค่ะ พอกดรันอีกครั้งจะค้างที่ Range("A1").PasteSpecial Paste:=xlPasteAll ตลอด จนต้องปิด PDF และรันใหม่ค่ะ แนบโค้ดมาให้ช่วยดูค่ะ ขอบคุณค่ะ

Sub Extract_Data_from_PDF ...

สวัสดีค่ะ

ขอความช่วยเหลือในการแก้ปัญหา code ที่เจอบัคค่ะ
โจทย์ต้องการดึงข้อมูลจาก PDF วางลงไฟล์ Excel จากนั้นไฟล์ PDF จะปิดลงจากโค้ดดังกล่าวเบื้องต้นสามารถวางได้ปกติค่ะ แต่ที่พบและอยากให้ช่วยปรับคือ เมื่อ User ใช้งานจากไฟล์อื่นโดยก๊อบปี้ไฟล์ค้างไว้ หรือการเลือก copy ที่ไฟล์นี้แต่ไม่ได้ paste ให้เร ...

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

อาจารย์คะ หลังจากใส่สูตรตัวเลขที่ Case ยังไม่แยกออกมาจาก Premium ค่ะ ผลรวมบางช่องรวมผิดที่ เช่น C6หาค่า premium แต่เป็น Premium + Case เมื่อดูที่ F11 หาค่า case ผลรวมมาอยู่ที่ช่อง case แทนค่ะ ซึ่งต้องการแยก case และ premium ให้อยู่กันคนล่ะที่ค่ะ

ขอบคุณค่ะ

อาจารย์คะ หลังจากใส่สูตรที่ B6 พบว่าตัวเลข Premium ไปรวมกับ Case ค่ะ รบกวนช่วยดูอีกทีได้ไหมคะ ที่ชีท by product คอลัมน์ D จะมีข้อมูลแยก Case และ Premium อยู่ค่ะ (ไฟล์แนบที่ลองใส่สูตรชีทโจทย์ ตรง B6 ค่ะ ตัวเลขที่ต้องการอยู่ด้านล่างนะคะ)

ขอบคุณล่วงหน้าค่ะ

ที่ชีท "โจทย์" เพิ่มเติมต.ย.แล้วค่ะ /ขอบคุณค่ะ

ตัวอย่าง คำตอบ Super Low


ที่ชีท by product คอลัมน์ B เลือกฟิวเตอร์ Super Low
M101 คอลัมน์ E จะเห็น Case & Premium ที่เป็น OL ตรง M101 คอลัมน์ G =
Case 1
Premium 50000

M102 คอลัมน์ E จะเห็น Case & Premium ที่เป็น OL ตรง M102 คอลัมน์ Y ...

สวัสดีค่ะท่านผู้รู้

ขอรบกวนความช่วยเหลือ ต้องการหาผลรวมที่ชีท "region" ของข้อมูลทั้งเดือน จากชีท By product (raw data) โดยแยกตามกลุ่ม Super Low, Medium, High, Recommend แบ่งตาม OL, CL และแยกเป็นรายทีม M101, M102

ข้อมูลชีท By Product
1. กลุ่ม super Low, Medium, High, Recommend ดูที่ชีท by product ...

ได้ผลลัพธ์ตามต้องการแล้วค่ะอาจารย์ ขอบคุณมากค่ะ

สวัสดีค่ะอาจารย์

จากชีท "MTD-SelectDay" หากมีการเปลี่ยนแปลงวันที่ โดยเราเลือกที่ C1 และ C2 ต้องการให้ค่าตัวเลขเปลี่ยนแปลงตามด้วยค่ะ
ขอบคุณล่วงหน้าค่ะ

สวัสดีค่ะ

ต.ย.โจทย์จะเป็นการหาผลรวมจากข้อมูลที่มีอยู่ โดยให้สามารถคำนวนผลจากวันที่ที่ต้องการได้ค่ะ ผลการคำนวนจะเปลี่ยนตามการเลือกวันที่ (ไฟล์แนบ) มีรายละเอียดเพิ่มเติมค่ะ
ขอบคุณค่ะ

ปรับโค้ดตามคำแนะนำของอาจารย์แล้วค่ะ ขอบคุณค่ะ

แก้ไขไฟล์มาใหม่ค่ะ
สิ่งที่ต้องการ คือ ต้องการรูปแบบฟอร์แมตไฟล์ต้นทาง ก๊อปปี้มาวางให้เหมือนกับต้นฉบับค่ะ

อธิบาย: จากไฟล์ Coverage.csv คอลัมน์ที่เป็นวันที่ต่างๆ เช่น คอลัมน์ AK:AL (ไฟล์ต้นทาง) เมื่อนำเข้ามาในไฟล์ report_formatDate.xlsm (ปลายทาง) ข้อมูลที่เป็นวันที่ จะมีทั้ง Text และ Date ปนอยู่ค่ะ ต ...

สวัสดีค่ะ

รบกวนค่ะ สิ่งที่ต้องการ คือ ต้องการรูปแบบฟอร์แมตไฟล์ต้นทาง ก๊อปปี้มาวางให้เหมือนกับต้นฉบับค่ะ
อธิบาย: จากไฟล์ Coverage.csv คอลัมน์ AK:AL (ไฟล์ต้นทาง) เมื่อนำเข้ามาในไฟล์ report_formatDate.xlsm (ปลายทาง) ต้องการให้เป็นตาม Format ของต้นทาง คือ Date จากโค้ดด้านล่างเมื่อนำเข้ามาจะมีทั้ง Text ...