Ir ao conteúdo

Posts recomendados

Postado

Olá estou com um problema de lógica num código VBA, eu preciso que ele selecione uma planilha (segunda planilha) e encontre os valores e me mostre nas caixas, para que eu possa altera-los ou exclui-los, só que o problema é o seguinte, quando estou com a janela do Excel e a janela de códigos abertas e clico pra rodar e faço o teste ele seleciona tudo correto me mostra os valores corretamente, faço a debugação do código e tudo funciona corretamente, porém quando eu fecho o Excel e abro somente a aplicação  e executo a ação em vez de ele escolher a planilha programada ele seleciona a primeira planilha e mostra os dados dela em vez de mostrar os da que está programada no código. segue meu código que utilizei: 
 

Private Sub Combo_dadosfunc_nome_Click() 
totalfunc = Worksheets("Funcionários").UsedRange.Row.Count
For i = 0 To totalfunc 
If Combo_dadosfunc_nome.ListIndex = i Then 
'PREENCHER CAIXAS 
caixa_dadosfunc_nascimento = Cells(i + 2, 2) 
caixa_dadosfunc_telefone = Cells(i + 2, 3) 
caixa_dadosfunc_email = Cells(i + 2, 4) 
caixa_dadosfunc_funcao = Cells(i + 2, 5) 
caixa_dadosfunc_num_calcado = Cells(i + 2, 6) 
caixa_dadosfunc_tam_uniforme = Cells(i + 2, 7) 
caixa_dadosfunc_matricula = Cells(i + 2, 8) 
Exit Sub 
End If 
Next


'COMANDO PARA SALVAR AUTOMATICAMENTE 
ActiveWorkbook.Save

 

Alguem pode me dizer onde está o meu erro?

 

 

Postado

Olá.

Edsonnp, da pra usar a função WorkBooks("NOME DA PLANILHA") antes do WorkSheets, assim ele seleciona a planilha especificada. (lembrando que tem que por a extensão no nome da planilha)

Em 02/01/2018 às 12:00, Edsonnp disse:

Worksheets("Funcionários").UsedRange.Row.Count

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!