Este fórum está sendo desativado

[vilc]

tenho a seguinte tabela com nome: servidores

coluna A Coluna B

Nome Secretarias
João Administração
Maria Obras

queria que quando selecionar joão na combobox ele mostrasse na texbox Administração assim por diante

[JCabral]

Veja se ajuda

Código: Selecionar todos

Private Sub ComboSolicitante_Change()

    Dim SecretariaID As Range

    Set SecretariaID = Planilha1.Range("A:A").Find(what:=ComboSolicitante, LookIn:=xlValues, lookat:=xlWhole)
    If Not SecretariaID Is Nothing Then
        Me.TxtSecretaria.Value = SecretariaID.Offset(, 1).Value
    End If
    Set SecretariaID = Nothing
    
End Sub

[vilc]

tenho a seguinte tabela com nome: servidores

coluna A Coluna B

Nome Secretarias
João Administração
Maria Obras

queria que quando selecionar joão na combobox ele mostrasse na texbox Administração assim por diante

Ok. obrigado amigo, vou colocar aqui.