Snasui Excel Forum

ขอบคุณครับอาจารย์

[quote=aniwat2011 post_id=107824 time=1622847623 user_id=931]
หากเรานำไฟล์นี้ไปใช้กับ Excel ต่างเวอร์ชั่น เช่น Excel2003 /2007 / 2010 / 2013 /2016 / Excel365 ได้ไหมครับ
[/quote] :D ฟังก์ชั่น Find มีในทุก Version ที่กล่าวมาครับ

เรียนคุณ Bo_ry
ต้องขอขอบคุณมาก ๆ ครับ ที่กรุณาตอบ
ผมนำ code ที่ให้ไปทดสอบแล้วครับสามารถใช้งานได้ตามที่ต้องการ
ขอขอบคุณอีกครั้งครับที่สละเวลามาให้ความรู้ครั้งนี้ครับ
หากเรานำไฟล์นี้ไปใช้กับ Excel ต่างเวอร์ชั่น เช่น Excel2003 /2007 / 2010 / 2013 /2016 / Excel365 ได้ไหมครับ
ขอบคุณครับ

Sub copy()
    Range("C2", Columns(3).Find(0, LookIn:=xlValues, lookat:=xlWhole).Offset(-1)).Resize(, 3).copy
End Sub

[code]Sub copy()
Range("C2", Columns(3).Find(0, LookIn:=xlValues, lookat:=xlWhole).Offset(-1)).Resize(, 3).copy
End Sub[/code]

Sub copy()
    Range("B2").Select
    ActiveCell.Offset(0, 1).Select
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
End Sub

เรียน อาจารย์และพี่ ๆ ที่เคารพครับ
ตอนนี้ผมเพิ่งกำลังเรียนรู้ VBA ยังไม่ก้าวหน้าเลยครับ
และได้นำไฟล์งานที่ใช้ในงานประจำมาฝึกทำไปด้วยครับ
ตอนนี้ยังไม่สามารถเขียน code ได้ตามที่ต้องการครับต้องขอความรู้จากอาจารย์และพี่ ๆ อีกเยอะเลยครับ
ขอบคุณล่วงหน้าครับผม

ความต้องการ
เมื่อกดปุ่ม "คัดลอกข้อมูลเพื่อไปใช้ในไฟล์ i-pay" แล้ว
1. ให้ทำการเลือกช่วงข้อมูลเริ่มจากคอลัมน์ C2 ถึงคอลัมน์ E2 ลงมาถึงบรรทัดสุดท้ายก่อนบรรทัดรวม
2. ดังภาพตัวอย่าง ทำการเลือกข้อมูล C2 : E19 แล้วทำการ Copy
3. ซึ่งบรรทัดสุดท้ายไม่แน่นอนให้สามารถยืดหยุ่นได้
4. เริ่มต้นที่ C2 เหมือนกัน แต่บรรทัดสุดท้ายไม่เหมือนกันขึ้นอยู่กับข้อมูล
5. ข้อมูลที่นำมาวางที่ชีท “Copy จาก งด.4 มาวาง” เป็นไฟล์ นามสกุล .xls
[attachment=1]item2.xlsm[/attachment][attachment=1]item2.jpg[/attachment]

[code]
Sub copy()
Range("B2").Select
ActiveCell.Offset(0, 1).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
End Sub
[/code]