รบกวนสอบถามเกี่ยวกับการ Copy และ Paste

[niwat2811]

เรียนท่านอาจารย์และผู้รู้ทุกท่าน รบกวนสอบถามเกี่ยวกับการ Copy และ Paste โดยที่มีข้อมูลอยู่ที่ Sheet1 และต้องการคัดรายชื่อบางรายให้ไปวางที่ Sheet2 เมื่อวางเรียบร้อยแล้วให้กลับไปที่ Sheet1 และทำให้บรรทัดที่เลือกไปแล้วตัวอักษรเป็นสีแดง แต่ว่าติดปัญหาตรงที่ว่าสามารถเลือกได้ทีละบรรทัดเท่านั้น เช่น เลือก A1 ที่ Sheet1 ข้อมูลที่บรรทัด A1 ก็จะถูกนำไปวางที่ Sheet2 แต่สมมติว่าเลือก A5:A10 ข้อมูลจะถูกดึงไปแค่บรรทัดที่ A5 เท่านั้น ความต้องการคืออยากให้ไปทั้งหมดตั้งแต่ A5:A10 รบกวนท่านอาจารย์หรือผู้รู้กรุณาช่วยชี้แนะด้วยครับ Code อยู่ใน Module1 ชื่อ copy_paste_released ครับ

[bank9597]

การอธิบายโจทย์ ควรมีการเว้นวรรคและแยกข้อความลงมาคนละบรรทัดบ้าง เพื่อให้ง่ายต่อการอ่านครับ

สำหรับการแก้ปัญหาดังกล่าว ผู้ถามควรอธิบายเงื่อนไขของการเลือกข้อมูลด้วย เช่น เลือกเฉพาะที่เป็น "สินเชื่อเคหะ" เป็นต้น เพราะถ้าไม่ระบุเงื่อนไข การเขียนโค๊ดก็ทำไม่ได้ครับ

ลองกำหนดเงื่อนไขมาครับ ว่าต้องการให้เลือกข้อมูลใดไปวางในชีท 2

[niwat2811]

ชี้แจงข้อมูลเพิ่มเติมครับ ไม่มีเงื่อนไขใด ๆ ทั้งสิ้น เพราะว่าผมได้บอกไว้แล้วว่าเป็นการคัดรายชื่อบางราย ถ้าคลุมข้อมูลเลือก A3:A5 ที่ Sheet1 ก็ให้ดึงข้อมูลไปต่อท้ายที่ Sheet2 ครับ

[bank9597]

ถ้าทำเช่นนั้น คงต้องรอให้อาจารย์เข้ามาแนะนำดีกว่าครับ เพราะผมยังทำแบบนั้นไม่ได้เลย

[snasui]

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

Code: Select all

Sub copy_paste_Released()
    Application.ScreenUpdating = False
    Sheets("Sheet1").Select
    Selection.EntireRow.Select '<== Change this code
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sheet1").Select
    Selection.Font.Color = -16776961
    ActiveCell.Select
    Application.ScreenUpdating = True
End Sub

[bank9597]

ขอเรียนรู้ด้วยคนครับ

[niwat2811]

ขอบคุณท่านอาจารย์มากครับ Code ที่ให้มาสามารถใช้ได้ตรงกับความต้องการเลยครับ

[frodobig]

ขอบคุณท่านอาจารย์มากครับ Code ที่ให้มาสามารถใช้ได้ตรงกับความต้องการเลยครับ

[frodobig]

ขอโทษนะครับ
code ที่ให้มานี่เอาไปใส่ตรงไหนเหรอครับ
คืออยากศึกษาครับ
เผื่อลองใส่ดู แล้วจะได้รู้ว่ามันคืออะไรครับ
ช่วยบอกหน่อยนะครับ ขอบคุณครับ

[bank9597]

คิดว่าน่าจะทราบอยู่แล้วน่ะครับ

กด Alt+F11 เข้าหน้า VBE แล้วเลือก Module แล้ววางโค๊ดลงไป เวลานำมาใช้ก็สร้างปุ่มขึ้นมา แล้ว Assign Macro เข้าไป