- Este tópico contém 5 respostas, 2 utilizadores e foi actualizado pela última vez há 13 anos, 5 meses por camealcan.
-
AutorArtigos
-
-
19 de Outubro de 2010 às 13:20 #887camealcanMembro
olá pessoal,
sou iniciante em vba…e estou tentando montar um código, contudo não consigo chegar a um consenso. já tentei do loop, if e chego apenas a resultados parciais.
aí vai a minha dúvida:
preciso modificar um texto já existente em uma coluna, toda vez que for encontrada uma determinada expressão.
tenho a seguinte disposição:
fruta preÇo quantidade
banana madura 0,99 35
laranja 0,82 42
abacaxi 2,35 12
maçã madura 1,99 20
abacate 3,1 6
preciso que todas as vezes que a palavra madura aparece na coluna fruta, a esta coluna seja acrescentada vender,
ex.: se tiver banana madura====será alterado para===vender banana madura.
desde já muito obrigado a todos. -
19 de Outubro de 2010 às 18:13 #1481jorgerodAdministrador
boas, camealcan,
experimenta criar um botão de comando, com o seguinte código:
‘———————————————————–
‘ module : procura_madura
‘ datetime : 19-10-2010 18:45
‘ author : jorgerod
‘ purpose : adicionar a palavra “vender” a cada célula
‘ purpose : da coluna a que contenha a palavra “madura”
‘ purpose : colorindo o conteúdo de vermelho
‘———————————————————–
sub procura_madura()with worksheets(1).range(“a2:a500″)
set c = .find(what:=”madura”, lookin:=xlvalues)
if not c is nothing then
firstaddress = c.address
do
c.font.colorindex = 3
c.value = “vender ” & c.value
set c = .findnext(c)
loop while not c is nothing and c.address firstaddress
end if
end withend sub
diz qq coisa, ok?
-
19 de Outubro de 2010 às 18:57 #1482camealcanMembro
caro jorgerod…muito obrigado!!!…foi de grande ajuda.
sei que estou abusando, mas há como colocar mais de uma condição, exemplo: madura, grande…ou outra condição e também uma exceção. exemplo: madurazinha, pois quando coloco algo que contenha madura ele a a considera.mais uma vez, obrigado pela paciencia e pela boa vontade!!!!…nota 10!!!!!!!
-
19 de Outubro de 2010 às 19:17 #1483jorgerodAdministrador
boas,
experimenta:
‘———————————————————–
‘ module : procura_madura
‘ datetime : 19-10-2010 18:45
‘ author : jorgerod
‘ purpose : adicionar a palavra “vender” a cada célula
‘ purpose : da coluna a que contenha a palavra escolhida,
‘ purpose : colorindo o conteúdo de vermelho
‘———————————————————–
sub procura_madura()
dim nome as stringnome = inputbox(prompt:=”escreva a procura desejada para inserção”, title:=”procura/insere”)
with worksheets(1).range(“a2:a500”)
set c = .find(what:=nome, lookin:=xlvalues)
if not c is nothing then
firstaddress = c.address
do
c.font.colorindex = 3
c.value = “vender ” & c.value
set c = .findnext(c)
loop while not c is nothing and c.address firstaddress
end if
end withend sub
ou seja, acrecentei uma inputbox, onde poderás escolher a palavra que quiseres (ex. grande, madura, etc).
como aquilo que se procura é do tipo “contém”, se tiveres a palavra “madurazinha”, como contém a palavra por ti escolhida “madura”, vai igualmente aparecer-te. mas, se em vez de escrevesres “madurazinha”, escreveres “madurinha”, já não te aparecerá.
fica bem e diz qq coisa, ok?
-
19 de Outubro de 2010 às 19:55 #1484camealcanMembro
mais uma vez perfeito!!!…muito obrigado!!!
contudo acho que omiti um detalhe, falha minha.
indo para o meu objetivo principal descrevo o que pretendo fazer no trabalho e por várias vezes tentei e chego perto, mas não consigo…
tenho um campo na planilha quem em outros tempos eu utilizava a função filtrar, as resolvi desenvolver um código….e esbarrei exatamente nesta etapa…na coluna i…eu tenho diversas informações….
ex.:
-táfego tup
-tráfego detup
-tráfego rutp
preciso exportar isso para o acess, contudo a rotina que está no acess, por conter outras variantes, condiciona a informação apenas que está no começo, sendo assim, eu preciso de tudo que é tup, detup e rutp(nome que vem errado e precisa ser corrigido para tup).
sendo assim, o resultado da modificação pela subrotina deveria retornar:
-tup tráfego tup
-tráfego detup (sem alterações)
-tup tráfego rutp. -
21 de Outubro de 2010 às 20:07 #888jorgerodAdministrador
podes explicar um pouco melhor?
-
-
AutorArtigos
- Tem de iniciar sessão para responder a este tópico.