Jump to content
Fórum Script Brasil

duducp

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About duducp

Contatos

  • Website URL
    http://facebook.com/duducp
  • Skype
    duducp2010

Perfil

  • Gender
    Male
  1. Boa tarde galerinha! É o seguinte estou utilizando um código na textbox neste formato: Private Sub txt_id_AfterUpdate() Dim Linha As Long Dim id As Long 'mudar para string se o id tiver letras ou símbolos If Val(Me.txt_id) = 0 Then Exit Sub End If Plan1.Activate Linha = 2 id = txt_id Do Until Cells(Linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia 'Condição para localizar o registro If Cells(Linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada opt_funcionario = Cells(Linha, 2)
×
×
  • Create New...