ต้องการหาข้อมูลและย้ายไปอีกชีท

[ponhuahin]

ผมต้องการพิมพ์ข้อมูลใส่ฟอร์ม "ขายสินค้า" แล้วค้นหาข้อมูลที่อยู่เช่น รหัสสินค้า ใน ชีท"รายการสินค้า" แล้วกด ตกลง
ให้ลบหรือย้ายข้อมูลที่อยู่ใน ชีท "รายการสินค้า" ทั้งแถว ไป ชีท "ขายออกแล้ว"
และให้แสดง รายการนั้นทั้ง แถว ใน ชีท "หน้าแรก" ใน ListBox1
ผมนั่งคิดมาอาทิตย์กว่าแล้วครับ ไม่รู้จะเขียนโค้ดยังไงดี

[snasui]

Code ที่เขียนไว้แล้วชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ

[ponhuahin]

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

[snasui]

ตอบที่ผมถามก่อนครับ Code ชื่ออะไร อยู่ที่ใด เขียนไว้ว่าอย่างไร ติดบรรทัดใด จะได้เข้าถึงข้อมูลได้โดยไว

[ponhuahin]

UserForm3 ใน ปุ่ม ขาย แต่ผม ไม่ได้ พิมพ์ย้ายไว้คับ

[ponhuahin]

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
    If TextBox1.Text = True Then
Sheets("ÃÒ¡ÒÃÊÔ¹¤éÒ").Select
Range("A1").Select
Do While True
        If ActiveCell.Value = TextBox1.Text Then
         TextBox4.Text = ActiveCell.Offset(0, 2).Value
         TextBox5.Text = ActiveCell.Offset(0, 3).Value
         TextBox3.Text = ActiveCell.Offset(0, 4).Value
         TextBox6.Text = ActiveCell.Offset(0, 5).Value
         Exit Sub
     End If
     ActiveCell.Offset(1, 0).Select
Loop
        Else
                MsgBox " ¡ÃسҾÔÁ¾ìàÅ¢»ÃШӵÑÇ¡è͹", vbExclamation, "°Ò¹¢éÍÁÙźؤ¤Å"
        End If

End Sub

[snasui]

ช่วยแสดงลำดับการทดสอบ ตัวอย่างข้อมูลที่ทดสอบ ลำดับการทำงานของโปรแกรมสำหรับขั้นตอนนี้มาด้วยครับว่า มีขั้นตอนสำหรับการบันทึกอย่างไร

กรอกข้อมูลอะไร ที่ไหน และคลิกปุ่มใดจึงจะค้นหาข้อมูลมาให้และคลิกปุ่มใดจึงจะนำข้อมูลไปวางปลายทางและลบข้อมูลเดิมในชีทรายการค้าทิ้งไป

การจะให้ข้อมูลไปวางที่ใดก็ให้เขียน Code มาก่อน ได้เท่าไรก็เท่านั้น ถ้าไม่ทราบว่าเขียนอย่างไรก็ให้หาวิธีการมาก่อน ติดตรงไหนถามกันได้เต็มที่ครับ

[ponhuahin]

นั้นอาจารย์ สอน Code กดปุ่มในฟอร์ม แล้วลบข้อมูลออก เป็นแถวในชีท ให้ผมน่อยได้ไหมคับ
เดียว ผมรองทำดู ถ้าไม่ได้ยังไง จะให้อาจารย์ ช่วยสอนอีกที

[snasui]

ผมบอกแนวทางไปอย่างกว้าง ๆ นะครับ

ในการค้นหาข้อมูลมาเติมใน UserForm แสดงว่าเราสามารถที่จะเก็บข้อมูลได้ว่านำมาจากบรรทัดใด ในบรรทัดนั้นมีเซลล์ใดเป็นตัวแทนได้

เมื่อสามารถดักจับเซลล์นั้นได้แล้วเราสามารถเก็บค่านั้นมาเป็นตัวแปรหรือเก็บค่านั้นมาแสดงใน UserForm ก็ได้เช่นกัน เมื่อได้ตามนี้แล้วการที่จะลบข้อมูลที่เกี่ยวข้องหรือจะนำไปวางที่ชีทอื่นใดก็สะดวกขึ้น

ผมสมมุติว่าเก็บข้อมูลเซลล์แรกที่ได้จากการค้นหาเข้ามาไว้ที่ TextBox10 การที่จะสั่งให้นำข้อมูลไปบันทึกเราสามารถใช้ Statement ตามตัวอย่างด้านล่างได้ครับ

Code: Select all

Sheets("sheetB").Range(TextBox10.Text).EntireColumn.Copy
Sheets("sheetA").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("sheetB").Range(TextBox10.Text).EntireColumn.Delete