Página 1 de 1
Converter número em nova informação
Enviado: 01 Out 2015 às 20:48
por 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.
Re: Converter número em nova informação
Enviado: 01 Out 2015 às 20:54
por 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
Re: Converter número em nova informação
Enviado: 01 Out 2015 às 21:03
por joaopaulocaetano
Como faço para adicionar um arquivo em anexo?
Re: Converter número em nova informação
Enviado: 01 Out 2015 às 21:07
por 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
Re: Converter número em nova informação
Enviado: 02 Out 2015 às 08:42
por Henrique
João Paulo,
Você pode fazer assim:
Código: Selecionar todosPublic 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
Re: Converter número em nova informação
Enviado: 02 Out 2015 às 08:44
por alexandrevba
Bom dai!!
Veja as duas formas.
Obs: Quanto ao VBA, eu só fiz para 3 estados, faça para o restante!
Att
Re: Converter número em nova informação
Enviado: 02 Out 2015 às 09:13
por Vidal
..sendo assim.. sempre que vc precisar alterar algum código bastará digitar diretamente dentro da tabela
Re: Converter número em nova informação
Enviado: 02 Out 2015 às 09:18
por Vidal
correção...
Re: Converter número em nova informação
Enviado: 02 Out 2015 às 20:19
por 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.