Este fórum está sendo desativado

[joaopaulocaetano]

Boa noite. Tenho um problema primário sobre VBA mas como não tenho muito prática, não consigo resolver através do VBA.
A questão é a seguinte: Tenho uma série de informações em uma determinada coluna de minha planilha - 11, 12 , 13...100, por exemplo. Então, desejo criar um código associando cada uma dessas informações (números) a um nome. Por exemplo: Toda vez que aparecer o número 11 quero que na célula ao lado ele me dê a informação RO, se 12, a informação seria AC, e assim por diante. Seria como se estivesse usando a função SE do excel, mas não quero fazer por lá...prefiro usar um código VBA pois em momentos posteriores posso desejar mudar as relações que aparecerão na informação ao lado. Desde já agradeço a quem puder me ajudar.

[Sandman]

Boa noite João, cara acredito que vc consegue resolver isso sem. Vba porém, se vc puder postar sua planilha fica mais fácil de ajudarmos vc

[joaopaulocaetano]

Como faço para adicionar um arquivo em anexo?

[joaopaulocaetano]

Segue em anexo a planilha com os meus dados. De fato eu poderia resolver o meu problema sem a utilização de VBA, mas tenho interesse em fazer a partir do código VBA pois poderia aplicar em outras situações que não essa atual. Agradeço pela ajuda

[Henrique]

João Paulo,

Você pode fazer assim:

Código: Selecionar todos

Public Function Estado(Cód_Est As Integer) As String

    Select Case Cód_Est
        Case 11
            Estado = "Rondônia"
        Case 12
            Estado = "Acre"
        Case 13
            Estado = "Amazonas"
        Case 14
            Estado = "Roraima"
        Case 15
            Estado = "Pará"
        Case 16
            Estado = "Amapá"
        Case 17
            Estado = "Tocantins"
        Case 21
            Estado = "Maranhão"
        Case 22
            Estado = "Piauí"
        Case 23
            Estado = "Ceará"
        Case 24
            Estado = "Rio Grande do Norte"
        Case 25
            Estado = "Paraíba"
        Case 26
            Estado = "Pernambuco"
        Case 27
            Estado = "Alagoas"
        Case 28
            Estado = "Sergipe"
        Case 29
            Estado = "Bahia"
        Case 31
            Estado = "Minas Gerais"
        Case 32
            Estado = "Espírito Santo"
        Case 33
            Estado = "Rio de Janeiro"
        Case 35
            Estado = "São Paulo"
        Case 41
            Estado = "Paraná"
        Case 42
            Estado = "Santa Catarina"
        Case 43
            Estado = "Rio Grande do Sul"
        Case 50
            Estado = "Mato Grosso do Sul"
        Case 51
            Estado = "Mato Grosso"
        Case 52
            Estado = "Goiás"
        Case 53
            Estado = "Distrito Federal"
        Case Else
            Estado = "NÃO DEFINIDO"
    
    End Select
        
End Function

Veja no anexo como fica

[alexandrevba]

Bom dai!!

Veja as duas formas.

Obs: Quanto ao VBA, eu só fiz para 3 estados, faça para o restante!

Att

[Vidal]

..sendo assim.. sempre que vc precisar alterar algum código bastará digitar diretamente dentro da tabela

[Vidal]

correção...

[joaopaulocaetano]

Gostaria de agradecer a todos pela ajuda. Foi muito precisa e agora conseguirei fazer definições sem precisar utilizar o se. Obrigado a todos pela ajuda.