visual basic Excel com Macro(VB) Eu precis

[guguetes15 0]

Oi, preciso de ajuda para um projeto no excel utilizando códigos do vb.

Quero personalizar uma planilha é coisa simples, tipo procurar local da celula verificar o que esta escrito e escrever na celula ao lado só isso..

 

 

Sei inserir dados no excel com

Range("nomeDaCélula").Value = valor

 

Mas preciso ajustar o código para verificar o que tem escrito exemplo:

 

Se tiver escrito na celula A1 "oi" quero que edite para "01" no lugar de "oi" e se estiver "ola" quero que troque para "02" no que esta escrlito é só um exemplo irei usar para outros fins...

[Newt Scamander 217]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[guguetes15 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Já ajudou bastante, mas o projeto ainda não esta completo você poderia me ajudar mais?

Você poderia me ajudar com um código por exemplo eu escrevo em B2 um numero "2016" e clico no botão e quero procurar em qual das celulas de A isso esta escrito isso e apos achar colocar outra função para alterar o valor dela...

 

Tipo de (A1:A30) procurar algum numero ou palavra escrita

 

Acho que deve utilizar = PROCV ()

[Newt Scamander 217]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[guguetes15 0]

[quote name='Green Arrow'][CODE]Sub procuraalgo() Dim Iniciolinha As Integer Dim valorCel As Integer For Iniciolinha = 1 To 30 valorCel = Planilha1.Cells(Iniciolinha, 1) If (valorCel = Range("B1")) Then Planilha1.Cells(Iniciolinha, 1) = "Teste" 'Aqui você coloca a função de alterar valor End If Next Iniciolinha End Sub[/CODE][/QUOTE] Desculpa eu não entendi muito o código eu estou querendo eu não quero procurar uma linha dentro de B1 e sim entre A,1,A2, B1. B2, B3, C2,C3 tipo em celulas diferentes A1:C3 Estou tentando usar PROCV no caso se eu digitar o valor Que eu tenho em umas das celulas de A, por exemplo que esteja na celula A15 mas eu não saiba o que esteja escrito eu possa escrever nas celulas ao lado em C15 . Sub procurar() Dim Iniciolinha As Integer Dim valorCel As Integer For Iniciolinha = 1 To 30 valorCel = Plan1.Cells(Iniciolinha, 1) = 1 //não compilou nessa parte eu tive que adicionar o =1 para aceitar o código. If (valorCel = Range("B1")) Then Plan1.Cells(Iniciolinha, 1) = "Teste" Range("B1").Value = 1 End If Next Iniciolinha End Sub @Edit =PROCV(A20;A14:B19;2;0) Tipo assim essa função verifica o que esta escrito em A20 e procura essa mesma coisa de A14:B19 e pega o que estiver escrito na coluna ao lado do que foi procurado, a celula estiver essa formula vai aparecer isso, no caso eu queria pegar o endereço da celula da palavra procurada e escrever algo no lugar do que esta escrito em vez de amostrar o que estava escrito em outra celula. Exemplo A celula C1 esta com esse código =PROCV(A20;A14:B19;2;0) Vamos supor que em A20 esteja escrito "oi" Vai ser procurado em A14, A15, A16, A17, A18 e A19 a palavra "oi" Se "oi" estiver em A15, o que vai aparecer n celula C1 sera o conteúdo de B15 Se B15 tiver escrito "Ola" vai ser exibido em C1. Dai eu queria algo para em vez de mostrar o que esta escrito em B15, mostrar que a celula que foi procurada foi B15 e screver algo ou ate copiar algo de outra celula para colar na celula B15 por esse método de procura.

[Newt Scamander 217]

Pelo comando que eu dei da pra fazer, é só seguir a lógica.

 

O For vai percorrer todas as linhas (de 1 ~30) da coluna 1 (a);

Basta você adapta-lo como queira.

No if você faz a verificação, se A15 = A20 então o c1 recebe b15 ( que é a mesma linha , só que o index da coluna muda, 2 )

[guguetes15 0]

Pelo comando que eu dei da pra fazer, é só seguir a lógica.

 

O For vai percorrer todas as linhas (de 1 ~30) da coluna 1 (a);

Basta você adapta-lo como queira.

No if você faz a verificação, se A15 = A20 então o c1 recebe b15 ( que é a mesma linha , só que o index da coluna muda, 2 )

 

Vlw.. é pq sabendo o que esta escrito em A15 da para montar o código e modificar logo em B15 com um IF, vai ficar bem extenso a gambiarra rsrs .

Tudo bem você me deu uma boa ideia eu vou fazer vários Ifs, se eu tiver mais dúvidas eu volto. Obrigado!

[guguetes15 0]

[quote name='Green Arrow']Pelo comando que eu dei da pra fazer, é só seguir a lógica. O For vai percorrer todas as linhas (de 1 ~30) da coluna 1 (a); Basta você adapta-lo como queira. No if você faz a verificação, se A15 = A20 então o c1 recebe b15 ( que é a mesma linha , só que o index da coluna muda, 2 )[/QUOTE] Não estou conseguindo utilizar a função de procurar. Sub procuraalgo() Dim Iniciolinha As Integer Dim valorCel As Integer For Iniciolinha = 1 To 30 valorCel = Planilha1.Cells(Iniciolinha, 1) [COLOR=#ff4d4d] ' AQUI DA ERRO[/COLOR] If (valorCel = Range("B1")) Then Planilha1.Cells(Iniciolinha, 1) = "Teste" 'Aqui você coloca a função de alterar valor End If Next Iniciolinha End Sub @Edit Com varios ifs eu fiz mas se eu adicionar 10 mil itens na planilha vou ter que por 10 mil ifs? Quero melhorar isto...

[Newt Scamander 217]

Com varios ifs eu fiz mas se eu adicionar 10 mil itens na planilha vou ter que por 10 mil ifs?

Quero melhorar isto...

 

Não necessariamente.

E só fazer um outro for para percorrer cada uma das combinações.