Snasui Excel Forum

Code: Select all

Private Sub TextBox112_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Sheets("Data_Seminar").Select
        Range("D4").Select
                If ActiveCell.Value = TextBox112.Text Then
                        TextBox121.Text = ActiveCell.Offset(0, -6).Value
                        Exit Sub
                End If
End Sub

Code: Select all

Private Sub TextBox112_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Sheets("Data_Seminar").Select
        Range("D4").Select
                Do While True
                If ActiveCell.Value = TextBox112.Text Then
                        TextBox121.Text = ActiveCell.Offset(0, 0).Value
                         MsgBox "      ข้อความซ้ำ             "
                            Exit Sub
                    End If
                    ActiveCell.Offset(1, 0).Select
             Loop
End Sub

Code: Select all

Private Sub TextBox112_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim lng As Long
        Sheets("Data_Seminar").Select
        Range("D4").Select
        lng = Sheets("Data_Seminar").Range("D" & Rows.Count) _
            .End(xlUp).Row
        Do While ActiveCell.Row <= lng
            If ActiveCell.Value = TextBox112.Text Then
                    TextBox121.Text = ActiveCell.Offset(0, 0).Value
                     MsgBox "ข้อความซ้ำ"
                        Exit Sub
             End If
             ActiveCell.Offset(1, 0).Select
        Loop
End Sub

Code: Select all

Private Sub TextBox112_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim lng As Long
        Sheets("Data_Seminar").Select
        Range("D4").Select
        lng = Sheets("Data_Seminar").Range("D" & Rows.Count) _
            .End(xlUp).Row
        Do While ActiveCell.Row <= lng
            If ActiveCell.Value = TextBox112.Text Then
                    TextBox121.Text = ActiveCell.Offset(0, 0).Value
                     MsgBox "ข้อความซ้ำ"
                        Exit Sub
             End If
             ActiveCell.Offset(1, 0).Select
        Loop
End Sub

Code: Select all

If ActiveCell.Value = TextBox112.Text Then

Code: Select all

If ActiveCell.Value <>TextBox112.Text Then

Code: Select all

Private Sub TextBox112_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Dim lng As Long, i As Integer
        Sheets("Data_Seminar").Select
        Range("D4").Select
        lng = Sheets("Data_Seminar").Range("D" & Rows.Count) _
            .End(xlUp).Row
        Do While ActiveCell.Row <= lng
            If ActiveCell.Value = TextBox112.Text Then
                i = i + 1
            End If
             ActiveCell.Offset(1, 0).Select
        Loop
        If i = 0 Then
            MsgBox "Not found"
        End If
End Sub