Notifications
Clear all

For loop

6 Posts
1 Usuários
0 Reactions
886 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

Boa tarde!

Sou iniciante em Vba e criei a seguinte macro:

Sub Teste()
Dim i As Integer
For i = 2 To 26
If Range("a" & i) = "a" Then
Range("a" & i).Interior.ColorIndex = 3
End If
If Range("a" & i) = "g" Then
Range("a" & i).Interior.ColorIndex = 6
End If
Next i
End Sub

Quando procuro "a" na primeira coluna a celula fica marca e tbm quando procuro "g", quero executar esta macro trabalhando com um intervalo maior de células e copiar o valor encontrado para a "plan 2", como é possivél realizar este trabalho?

Grato.

 
Postado : 19/09/2012 11:08 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite, Cara seguindo teu codigo fiz o que entedi pelo seu algoritimo, dei uma melhorada no codigo, mais tava bacana!, da uma olhada no anexo e se nao for o que deseja
favor comentar.

att MarkoSoftware

 
Postado : 19/09/2012 2:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Perfeito markosoftware, agora somente uma dúvida se eu quiser trabalhar com esses valores em mais de uma coluna não somente na "A", mas tbm na "B", "C" e "D'' como buscaria esses valor nestas 4 colunas?

Grato.

 
Postado : 20/09/2012 10:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Cara e simples, mais ficou meio vago o pedido, voce quer q ele encontre o "a" ou o "g" e trasfira a linha referente a essas letras ? ou voce quer que ele faca aleatorio tipo, procure o "a" ou "g" na coluna A e faca a mesma busca na coluna B procurando o "a" ou "g" ? independente de linha ?

 
Postado : 20/09/2012 2:47 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue com base na logica dita por voce.

att Espero ter ajudado. qualquer coisa da o toque! se for o que queria, e so implementar no codigo anterior!

att

 
Postado : 20/09/2012 3:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

markosoftware,

Mais uma vez perfeito, para min está resolvido, muito obrigado!

Grato.

 
Postado : 20/09/2012 5:03 pm