Este fórum está sendo desativado

[Ryujin]

Bom dia Amigos,

Falta-me Apenas umas mensagens de Erro ^^

No UserForm9 , Preciso que ele verifique os números que estão na planilha Semanas e se eu inserir 59 na textbox e apenas Houver 58 registos aquilo dizer que o registo que inserimos não existem!

[babdallas]

primeira_lin = 2 'linha inicial
ultima_lin = worksheets ("semanas").Cells(rows.count).End(xlup).Row

For Lin = primeira_lin tô ultima_lin
If worksheets ("semanas"). Cells (Lin,1). value = userform9.textbox.value then
Exit for
End if
Next lin
MsgBox "número dá semana inválida"

[Ryujin]

Já tinha descoberto uma maneira mas obrigado ! Vim agora marcar como resolvido! Obrigado na mesma pela preocupação