Snasui Excel Forum

Code: Select all

Private Sub CommandButton3_Click()
    Range("AB7") = Sheets("CalPrint").Range("B5")
On Error Resume Next
        If MsgBox("   ·èÒ¹µéͧ¡Òà  ź   ¢éÍÁÙŹÕéãªèËÃ×ÍäÁè ?   ", vbYesNo + vbQuestion, "  â»Ãá¡ÃÁ¡ÒÃàºÔ¡¨èÒÂËÅÍ´ T5   ") = vbYes Then
                Sheets("DataEachUse").Select
                Range("C11").Select
                    Do While True
                            If ActiveCell.Value = Range("AB7") Then
                                    ActiveCell.Offset(0, 0).EntireRow.Delete
                                    Exit Sub
                            End If
                                ActiveCell.Offset(1, 0).Select
                        Loop
                
                Sheets("DataReimbursement").Select
                Range("C11").Select
                    Do While True
                            If ActiveCell.Value = Range("AB7") Then
                                    ActiveCell.Offset(0, 0).EntireRow.Delete
                                    Exit Sub
                            End If
                                ActiveCell.Offset(1, 0).Select
                        Loop
                End If
End Sub

Code: Select all

 Do While True
    If ActiveCell.Value = Range("AB7") Then
        ActiveCell.Offset(0, 0).EntireRow.Delete
        Exit Sub '<== Change to "Exit Do"
     End If
     ActiveCell.Offset(1, 0).Select
Loop