wolneypk,
Boa Tarde!
Não entendi muito bem a lógica da sua programação. Mas... vamos lá:
Você tem um botão chamado CADASTRAR que dispara a rotina que grava o que você tiver digitado no form na planilha. Nesse Form, você também tem um combobox onde o usuário deve selecionar o nome de um cliente para cadastrar e, ao selecionar esse nome no combo, o nome vai para uma caixa de texto do nome do cliente. É isso mesmo?
O que vocvê não quer: quye o usuário clique no botão CADASTRAR, estando com a caixa de texto relativa ao nome do cliente em branco. É isso mesmo?
Se for isso, você não precisa de um While ou de outro laço qualquer. Você só precisa testar, no início da rotina que efetuará o cadastrameneto, se o a caixa de texto está preenhida. Para fazer isso, utilize o código abaixo, supondo que sua TextBox se chama Txt_NomeCliente:
If Ttxt_NomeCliente.Text = "" Then
Msgbox "O Campo Cliente está em Branco", vbDefaultButton1, "CAMPO EM BRANCO"
Txt_NomeCliente.Setfocus
Else
'Aqui entram as rotinas normais de cadastramento se a caixa de texto for diferente de branco.
End If
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 13/03/2013 1:42 pm