Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

zykon

VBA pesquisa de valor e eliminar linha

Mensagens Recomendadas

zykon

Viva,

Como já devem ter topado pelos meus tópicos, sou um autentico noob (ou nabo), no entanto com a vossa ajuda lá vou conseguindo...

A minha duvida desta vez é a seguinte,

estou a usar o código abaixo para pesquisar aqueles valores "PEMB00903"... entre dezenas de outros numa tabela e eliminar as linhas correspondentes.

Eu queria era tirar estes valores do código e coloca-los numa outra folha do excel e remeter a pesquisa a essa outra folha.

Como "mando" o código ir pesquisar um determinado intervalo noutra folha?

Sheets("ListaBGreen").Select

Dim lRow As Long
Dim lLast As Long

lLast = Sheets("ListaBGreen").UsedRange.Rows.Count

For lRow = lLast To 2 Step -1
If Not _
Cells(lRow, "E") Like "PEMB00903" And Not _
Cells(lRow, "E") Like "PR0099007" Then

Else

Rows(lRow).Delete
End If

Next lRow

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

tens que adicionar um modulo e é aí que colocas o codigo, deves utilizar um range da zona da folha que queres pesquisar.

passos a seguir:

1- colocar um botao na folha que queres chamar a outra folha.

2- no modulo efectuar uma sub com o codigo desejado (dentro da sub é necessário chamar a outra folha, fazer como se fosse na folha de chamamento).

3. no evento do botão chamar a sub (Call subachamar).

cumps

acao

Editado por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
pfelixa

Se bem percebi a questão, apresento uma forma de comparar com a primeira e segunda células da folha 2:

Sheets("ListaBGreen").Select

Dim lRow As Long
Dim lLast As Long

lLast = Sheets("ListaBGreen").UsedRange.Rows.Count

For lRow = lLast To 2 Step -1
If Not _
Cells(lRow, "E") Like Worksheets("Folha 2").Cells(1, 1) And Not _
Cells(lRow, "E") Like Worksheets("Folha 2").Cells(1, 2) Then

Else

Rows(lRow).Delete
End If

Next lRow

Espero que ajude, boa sorte!

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.