Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
                Sheets("DataReimbursement").Select
                Range("C11").Select
                    Do While True
                            If ActiveCell.Value = TextBox1.Text Then
                                    ActiveCell.Offset(0, 0).EntireRow.Delete
                                    'Unload Me
                                    Exit Do
                            End If
                                ActiveCell.Offset(1, 0).Select
                        Loop
End Sub

Code: Select all

Private Sub CommandButton1_Click()
On Error Resume Next
                Sheets("DataReimbursement").Select
                Range("C11").Select
                    Do While ActiveCell <> ""            
                            If ActiveCell.Value = TextBox1.Text Then
                                    ActiveCell.Offset(0, 0).EntireRow.Delete
                            End If
                                ActiveCell.Offset(1, 0).Select
                        Loop
Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    'On Error Resume Next
    Sheets("DataReimbursement").Select
    Range("C11").Select
    Do While ActiveCell <> ""
        If ActiveCell.Value = TextBox1.Text Then
            ActiveCell.Offset(0, 0).EntireRow.Delete
            'Unload Me
'            Exit Do
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
End Sub

Code: Select all

Private Sub CommandButton111_Click()
    Dim i As Integer
    Sheets("DataReimbursement").Select
    Range("C11").Select
    Do While ActiveCell <> ""
        If ActiveCell.Value = TextBox1.Text Then
            ActiveCell.Offset(0, 0).EntireRow.Delete
            i = i + 1
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
            Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    
Sheets("DataEachUse").Select
Range("C11").Select
   Do While True
        If ActiveCell.Value = TextBox1.Text Then
           ActiveCell.Offset(0, 0).EntireRow.Delete
           Exit Sub
         End If
          ActiveCell.Offset(1, 0).Select
   Loop
Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()

    Sheets("DataReimbursement").Select
    Range("C11").Select
    Do While ActiveCell <> ""
        If ActiveCell.Value = TextBox1.Text Then
            ActiveCell.Offset(0, 0).EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
    Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()

Sheets("DataEachUse").Select
Range("C11").Select
   Do While ActiveCell <> ""
        If ActiveCell.Value = TextBox1.Text Then
           ActiveCell.Offset(0, 0).EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
    Sheets("DataReimbursement").Select
    Range("C11").Select
    Do While ActiveCell <> ""
        If ActiveCell.Value = TextBox1.Text Then
            ActiveCell.Offset(0, 0).EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
Unload Me
MsgBox "          ขั้นตอนดำเนินการลบใบพัสดุเลขที่  " & TextBox1 & "เสร็จเรียบร้้อยแล้ว      ", vbExclamation, "   โปรแกรมการจัดเก็บข้อมูล"
End Sub