การเขียน code VBA

[yodpao.b]

Code: Select all

Private Sub CommandButton13_Click()


Sheets("cal").Select
Range("B3").Select
Do While True
        If ActiveCell.Value = ListBox1.Text Then
            ActiveCell.Offset(0, 2).Value = TextBox02.Text
            ActiveCell.Offset(0, 3).Value = TextBox03.Text
            ActiveCell.Offset(0, 4).Value = TextBox04.Text
            ActiveCell.Offset(0, 5).Value = TextBox05.Text
            ActiveCell.Offset(0, 6).Value = TextBox06.Text
            ActiveCell.Offset(0, 7).Value = ComboBox07.Text
            ActiveCell.Offset(0, 8).Value = TextBox08.Text
            ActiveCell.Offset(0, 9).Value = ComboBox09.Text
            ActiveCell.Offset(0, 10).Value = TextBox10.Text
            ActiveCell.Offset(0, 11).Value = TextBox21.Text
            ActiveCell.Offset(0, 12).Value = TextBox22.Text
            ActiveCell.Offset(0, 13).Value = TextBox23.Text
            ActiveCell.Offset(0, 14).Value = TextBox24.Text
            ActiveCell.Offset(0, 15).Value = TextBox25.Text
            ActiveCell.Offset(0, 16).Value = TextBox26.Text
            ActiveCell.Offset(0, 17).Value = TextBox27.Text
            ActiveCell.Offset(0, 18).Value = TextBox28.Text
            ActiveCell.Offset(0, 19).Value = TextBox31.Text
            ActiveCell.Offset(0, 20).Value = TextBox32.Text
            ActiveCell.Offset(0, 21).Value = TextBox33.Text
            ActiveCell.Offset(0, 22).Value = TextBox34.Text
            CommandButton12.Enabled = True
            
            
            Exit Sub
        End If
        ActiveCell.Offset(1, 0).Select
Loop

Call Macro_OkEdit1
Unload Me
Call Macro_OkEdit2

End Sub

อยากสอบถามว่าทำไม code ด้านบน ถึง ทำงานได้บางส่วน
code ที่ทำงานไม่ได้คือ

Call Macro_OkEdit1
Unload Me
Call Macro_OkEdit2

แต่เมื่อแยก code
Call Macro_OkEdit1
Unload Me
Call Macro_OkEdit2
นี้ไว้ที่ CommandButton อื่น กลับทำงานได้

แก้ไขอย่างไรครับ

[astalavista]

น่าจะเกิดจาก Exit Sub ครับทำให้ออกจาก sub เลยไม่ทำคำสั่งข้างล่างต่อ ลองเปลี่ยนเป็น จาก Exit Sub เป็น Exit Do ครับ

[yodpao.b]

ขอบคุณครับ มั่วแต่ย้ายไปวางตรงนั่นที่ตรงโน่นที่ 2 ชั่วโมงแล้วครับ
ใช้ได้แล้วครับ