Saberexcel - site das macros
Essas macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), quando eu era um moderador de um Fórum um participante precisou de uma macro que localizasse a palavra "Total" na coluna(D), porém precisaria também de uma outra macro para localizar e substituir a palavra total por Trp - isso mesmo, Sr. Marcondes. obrigado.
Bom, .... Essa macro abaixo busca na coluna(I) as ocorrencias da Palavra Total e substui por "Saberexcel"
observe que a macro busca somente até a linha I20, portanto fica uma sem modificar.
Vamos às macros,
Alguns procedimentos e macros veja abaixo.
Private Sub CommandButton1_Click()
Acesso Livre - Registrados (REGISTRE-SE!)
End Sub
Private Sub CommandButton2_Click() Acesso Livre - Registrados (REGISTRE-SE!)
End Sub
Sub Procurar_por_palavra_total() Acesso Livre - Registrados (REGISTRE-SE!)
End Sub
Sub Procurar_por_palavra_total_II() Acesso Livre - Registrados (REGISTRE-SE!)
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Acesso Livre - Registrados (REGISTRE-SE!) 
Baixe o exemplo de planilha contendo as macros e procedimentos acima
vba busca procurando blocos palavra total (38.54 KB 2011-02-05 23:25:58)
Comentários
com a condição if para analisar cada item da linha e substituiir ou deletar, colorir, sublinhar, copiar, colar, .....etc...
se encontrar então é possível fazer qualquer coisa,
como disse pode usar o Insdeusepaição Loops (For...Next), Do Loop, do While,
Wlhile Wend, Do Loop Untl, For each next para toda a região,
o Caminho é este, mas se quiser envie-me sua planilha, para analisarmos
e ajudá-lo, fique com Deus, Expedito Marcondes}
For i = 1 to Range("A" & Rows.count).end (xlup).row ' Ultima Linha
If Range("A"& cstr(i).value = Range("B" & cstr(i) then
Range("A" & Cstr(i).value = "item desejado"
End if
Next i
' um pequeno exemplo do uso da indeusepaição For...next com condição If.
para se fazer qualquer coisa, (Copiar, colar, deletar, substituir, colorir, enviar para outra coluna, outra planilha, qualquer coisa.
Fique com Deus, Expedito Marcondes
Assine o RSS dos comentários