Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
LIMITE DE LINHAS PA...
 
Notifications
Clear all

LIMITE DE LINHAS PARA PESQUISA

 
2024 - VBA & Macros
Post Recente por darliane7l 8 anos atrás
8 Posts
4 Usuários
0 Reactions
1,616 Visualizações
RSS
 darliane7l
(@darliane7l)
Posts: 13
Active Member
Topic starter
 

Olá,

Tenho esse código que está pesquisando o nome que digito, porém, a partir da linha 175 ele não pesquisa ele não acha os dados.

Alguém sabe me dizer se esse código está com limite?

Private Sub Alterar_Click()

Dim empFound As Range

With Range("alunos")
Set empFound = .Find(Me.Nome_.Value)

If empFound Is Nothing Then
    MsgBox "Aluno não encontrado", vbCritical, "Busca de aluno"
    
    Me.Nome_.Value = ""
    Else
        With Worksheets("Cadastro").Range(empFound.Address)
        

.Offset(0, -1) = Me.Cod_.Value
.Offset(0, 0) = Me.Nome_.Value
.Offset(0, 1) = Me.Curso_.Value
.Offset(0, 2) = Me.Empresa_.Value
.Offset(0, 3) = Me.Bolsa_.Value
.Offset(0, 4) = Me.Valor_.Value
.Offset(0, 5) = Me.Funcoes_.Value
.Offset(0, 6) = Me.Periodo_.Value
.Offset(0, 7) = Me.Prorrogacoes_1.Value
.Offset(0, 8) = Me.Prorrogacoes_2.Value
.Offset(0, 9) = Me.Prorrogacoes_3.Value
.Offset(0, 10) = Me.Declaracao_.Value
.Offset(0, 11) = Me.Status_.Value
 
Postado : 23/01/2017 12:39 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Esse é o codigo todo?

Poste o arquivo assim é mais facil obter ajuda

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 23/01/2017 12:44 pm
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

darliane71, provavelmente a Range("alunos") esta definida até a linha 175.
Para resolver isso de forma dinamica, ou seja, conforme a qtd. de dados vai aumentando,
Altere esta linha do codigo

 With Range("alunos")

para:

With With Worksheets("Cadastro").Columns("A") ' AQUI: ALTERE A LETRA DA RESPECTIVA COLUNA *

* Coluna onde conten os alunos

Click em se a resposta foi util!

 
Postado : 23/01/2017 12:52 pm
 darliane7l
(@darliane7l)
Posts: 13
Active Member
Topic starter
 

Em anexo o arquivo.

Não consigo pesquisar na verdade é a última linha, sempre a última linha

 
Postado : 24/01/2017 7:17 am
DJunqueira
 DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Problema corrigido.

O intervalo nomeado 'alunos' estava subtraindo 1.
=DESLOC(Cadastro!$B$2:$B$3;0;0;CONT.VALORES(Cadastro!$B:$B)-1)

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 24/01/2017 8:10 am
 darliane7l
(@darliane7l)
Posts: 13
Active Member
Topic starter
 

DJunqueira

Nossa deu certo!!Muito obrigada..

Mas me diga, onde eu encontro esse procedimento não consegui localizar

Desde já agradeço!

 
Postado : 24/01/2017 9:07 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Gerenciador de Nomes

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 24/01/2017 9:14 am
 darliane7l
(@darliane7l)
Posts: 13
Active Member
Topic starter
 

obrigada demais.... valeu

 
Postado : 24/01/2017 9:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico