Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro 1004 - método ...
 
Notifications
Clear all

Erro 1004 - método 'Range' do objeto falhou

 
2024 - VBA & Macros
Post Recente por srobles 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,900 Visualizações
RSS
 Perroni
(@perroni)
Posts: 0
New Member
Topic starter
 

Está dando erro em uma parte do meu código, alguém poderia me ajudar por favor?
Está dando o erro: 1004 - O método 'Range' do objeto '_Worksheet' falhou.
o erro é nessa linha: i = WorksheetFunction.Match(cmbSelecionar_pesquisar_lidos.Column(2), Plan2.Range("Codigo"), 0) + 1

O código total é esse:

Private Sub btAbrir_lidos_Click()
Dim i          As Long

   Me.btSalvar_lidos.Enabled = False
   Me.btAtualizar_lidos.Enabled = True
   fmCadastro_Livros_Lidos.Caption = "Atualizar Livros Lidos"
   
   If Me.cmbSelecionar_pesquisar_lidos = "" Then
      MsgBox "Selecione um Autor/Titulo"
      Exit Sub
   End If
   
   i = WorksheetFunction.Match(cmbSelecionar_pesquisar_lidos.Column(2), Plan2.Range("Codigo"), 0) + 1
   'preencher As caixas
   Me.txtCodigo = Cells(i, "M").Value 'codigo
   Me.txtAutor = Cells(i, "A").Value ' autor
   Me.txtTitulo = Cells(i, "B").Value ' titulo
   Me.txtSaga = Cells(i, "C").Value ' saga
   Me.txtVolume = Cells(i, "D").Value ' Volume
   Me.txtTotal_paginas = Cells(i, "E").Value ' total de pgs
   Me.selecionar_genero = Cells(i, "F").Value ' genero
   Me.selecionar_status = Cells(i, "G").Value ' status
   Me.selecionar_abandonei = Cells(i, "H").Value ' abandonei
   Me.txtData_inicio = Cells(i, "I").Value ' data inicio
   Me.txtData_final = Cells(i, "J").Value ' data fim
   Me.selecionar_nota = Cells(i, "K").Value ' nota
   Me.txtSinopse = Cells(i, "L").Value ' sinopse
   
End Sub
 
Postado : 05/04/2018 1:43 pm
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Anexe uma planilha de exemplo, assim fica mais fácil tentar ajudar.

De qualquer forma, não acredito o Range() aceite String como você colocou aqui: Plan2.Range("Codigo")

att,

 
Postado : 05/04/2018 1:49 pm
 Perroni
(@perroni)
Posts: 0
New Member
Topic starter
 

Boa tarde,

Anexe uma planilha de exemplo, assim fica mais fácil tentar ajudar.

De qualquer forma, não acredito o Range() aceite String como você colocou aqui: Plan2.Range("Codigo")

att,

Eu nao consegui anexar a planilha aqui pq ela é maior do que o permitido.
É no botao abrir do formulário 'fmCadastro_Livros_Lidos' que está dando esse erro.
Mas o engraçado é que no formulário 'fmCadastro_Leitura_Atual' tem o mesmo código e não está dando problema.

Vou deixar um link que dá para baixar pelo Minhateca.
http://minhateca.com.br/Perroni91/imagens+EXCEL/M*c3*a1rcia-Minha-Planilha,1304577241.rar(archive)

 
Postado : 05/04/2018 3:45 pm
 srobles
(@srobles)
Posts: 0
New Member
 

Perroni,

Como o controle está em um UserForm, experimente referenciar o nome do formulário e do controle (este, de outra forma) na linha WorkSheetFunction, ex :

   i = WorksheetFunction.Match(fmCadastro.cmbSelecionar_pesquisar_lidos.List(fmCadastro.cmbSelecionar_pesquisar_lidos.ListIndex, 1), Plan2.Range("Codigo"), 0) + 1

Creio que isso talvez ajude na resolução do problema.

Abs

 
Postado : 05/04/2018 5:28 pm
 Perroni
(@perroni)
Posts: 0
New Member
Topic starter
 

Perroni,

Como o controle está em um UserForm, experimente referenciar o nome do formulário e do controle (este, de outra forma) na linha WorkSheetFunction, ex :

   i = WorksheetFunction.Match(fmCadastro.cmbSelecionar_pesquisar_lidos.List(fmCadastro.cmbSelecionar_pesquisar_lidos.ListIndex, 1), Plan2.Range("Codigo"), 0) + 1

Creio que isso talvez ajude na resolução do problema.

Abs

Não consegui :(
Na verdade eu não sei como fazer isso, sou péssima nessa parte de códigos, ainda estou aprendendo.
Mas obrigada pela ajuda, vou tentando fazer aqui.

 
Postado : 05/04/2018 5:45 pm
 srobles
(@srobles)
Posts: 0
New Member
 

Perroni,

Pelo pouco que analisei seu modelo, notei o que segue :

Para o formulário fmCadastro_Leitura_Atual, a rotina funciona pois existe 2 colunas no cmbSelecionar_Pesquisa. Veja que o comando existente no botão, procura na planilha LENDO, pelo valor da 2ª coluna do controle, veja ( cmbSelecionar_pesquisar_lidos.Column(2)):

i = WorksheetFunction.Match(cmbSelecionar_pesquisar_lidos.Column(2), Plan2.Range("Codigo"), 0) + 1

Agora, para o fmCadastro_Livros_Lidos, a rotina é a mesma, porém, o controle cmbSelecionar_pesquisar possui apenas uma coluna, ocasionando o erro. O correto neste caso é alterar esta instrução para o que segue abaixo. Note que a pesquisa é feita também na mesma planilha (aba, também errada), Plan2 :

i = WorksheetFunction.Match(Me.cmbSelecionar_pesquisar_lidos, Plan2.Range("Codigo"), 0) + 1

Deixo abaixo um link para o WeTransfer (pois não consegui disponibilizá-lo aqui) contendo seu modelo já com estas e outras alterações feitas.
[url]
https://wetransfer.com/downloads/5654d8 ... 639/968222
[/url]
Espero ter ajudado.

Abs

 
Postado : 05/04/2018 8:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico