Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por albom
#9455
Pessoal, tenho uma Tabela com uma relação de Números de uma Rifa que foram vendidas e preciso gerar uma lista com a relação das rifas não vendidas. As rifas vão de 1 a 5000.
Montei uma macro (sou iniciante no assunto) usando o Vlookup. Coloquei um loop com o número do bloco indo de 1 até 5000. Coloquei um "On Error GoTo" para gravar em outra aba a relação dos números não vendidos.
A primeira ocorrência (código 13) dá certo, mas na sequência, quando encontra o segundo número não vendido (código 33), dá erro como se não tivesse o "On Error GoTo".
Se eu faço o loop iniciar no 32, ele grava a primeira ocorrência (código 33) e dá pau na seguinte.
Desde já agradeço quem puder ajudar.
#9456
Boa noite Albom !!!

Seja bem-vindo(a) ao fórum!

Como você é novo(a) no fórum, fineza tomar conhecimento do conteúdo dos links abaixo:

Com relação a sua dúvida, anexe um exemplo de seu arquivo, fica mais fácil para os colaboradores ajuda-lo.

Regras e Normas de Conduta (Leia antes de participar)
http://gurudoexcel.com/forum/viewtopic.php?f=8&t=4
Apresentações: fale sobre você!
http://gurudoexcel.com/forum/viewtopic.php?f=8&t=2
Como utilizar o Fórum!
http://gurudoexcel.com/forum/viewforum.php?f=5
Como Perguntar no Fórum
http://gurudoexcel.com/forum/viewtopic.php?f=5&t=6
Marcar um Tópico como [RESOLVIDO]
http://gurudoexcel.com/forum/viewtopic.php?f=5&t=22
Agradecimentos e Sistema de Reputação
http://gurudoexcel.com/forum/viewtopic.php?f=5&t=21

Att
Moderador
Por albom
#9458
Segue a Macro..
Sub Gera_não_vendidos()
'
' Define Variáveis
'
Dim intervalo As Range
Dim bloco As Integer
Dim pesquisa_quem
'
' LOOP de Incremento do número do bloco a ser pesquisado
'

bloco = 0

Pesquisa_bloco:

bloco = bloco + 1
If bloco > 5000 Then GoTo FIM
Sheets("Controle").Select
Set intervalo = Range("a3:i9999")

On Error GoTo Grava_não_vendido

pesquisa_quem = Application.WorksheetFunction.VLookup(bloco, intervalo, 2, False)

GoTo Pesquisa_bloco

Exit Sub
'
' Se não encontrou, grava como NÃO VENDIDO
'
Grava_não_vendido:

Sheets("Aux").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = bloco
GoTo Pesquisa_bloco
Exit Sub
'
' Fim
'

FIM:
End Sub
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord