Jump to content
zykon

VBA pesquisa de valor e eliminar linha

Recommended Posts

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

Share this post


Link to post
Share on other 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

Edited by acao

Share this post


Link to post
Share on other 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!

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.