Boa Tarde a todos
meu nome é Ronaldo e sou um iniciante em VBA, portanto tenho muitas dúvidas. No momento estou com um programinha de cadastro de OS que está semi pronto, mas com um BUG.
Quando digito o numero de OS (numa textbox), o botão "cadastro" deveria desabilitar e o botão "gravar" deveria habilitar, (para uma eventual edição).
Acontece que isso só funciona com o primeiro registro da planilha.

gostaria muito de uma solução
obrigado.

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Sheets("Plan1").Select
Range("B2").Select

If ActiveCell = TextBox2.Text Then
bt_cad.Enabled = False
bt_grava.Enabled = True
Else
bt_cad.Enabled = True
bt_grava.Enabled = False
End If

TextBox2 = Application.WorksheetFunction.Proper(TextBox2)

Do While ActiveCell <> ""
If ActiveCell = TextBox2.Text Then

MsgBox ("O.S. JÁ CADASTRADA!")

TextBox1.Text = ActiveCell.Offset(0, -1).Value
TextBox2.Text = ActiveCell.Offset(0, 0).Value
TextBox4.Text = ActiveCell.Offset(0, 1).Value
TextBox5.Text = ActiveCell.Offset(0, 2).Value
TextBox3.Text = ActiveCell.Offset(0, 3).Value
TextBox6.Text = ActiveCell.Offset(0, 4).Value
TextBox7.Text = ActiveCell.Offset(0, 5).Value
TextBox8.Text = ActiveCell.Offset(0, 6).Value
Exit Sub

End If

ActiveCell.Offset(1, 0).Activate

Loop

End Sub