Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro 1004 ( erro de definição de objeto)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Henriquebss
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Nov 14, 2018 11:25 am

Erro 1004 ( erro de definição de objeto)

Mensagem por Henriquebss »

Por que a linha em amarelo não funciona?



col = 3
Do Until Sheets("Tabela").Cells(1, col) = ComboBox1
col = col + 2
Loop

Sheets("Tabela").Cells(((col + 1) / 2), 1) = ""

Worksheets("Tabela").Range(Cells(1, col), Cells(Rows.Count, col + 1).End(xlUp)) = ""

If Sheets("Tabela").Cells(1, col) = "" And Sheets("Tabela").Cells(1, col + 2) <> "" Then

Sheets("Tabela").Range(Cells(1, col).End(xlToRight), Cells(100, (Me.ComboBox1.ListCount * 2) + 2)).Cut
ActiveSheet.Paste Destination:=Sheets("Tabela").Cells(1, col)

Sheets("Tabela").Range(Cells(((col + 1) / 2), 1).End(xlDown), Cells(Rows.Count, 1).End(xlUp)).Select
Selection.Cut
Cells(((col + 1) / 2), 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

Worksheets("Menu Inicial").Activate
ComboBox1.Clear
ListBox1.Clear
Call UserForm_Activate


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Erro 1004 ( erro de definição de objeto)

Mensagem por Mikel Silveira Fraga »

Henrique, boa noite.

Amigo, peguei o seu código e fiz uma simulação aqui, para ver se ocorria algum erro na linha informada.
Aqui passou direto e sem apresentação de qualquer tipo de erro.

Talvez exista algo em sua planilha, especificamente nos dados ou layout, que esteja gerando esse erro de objeto.

Somente com o arquivo em mãos, teria como fazer uma avaliação melhor.

Infelizmente não tive muito com o que ajudar.

No mais, forte abraço e estamos ai pelo que precisar.


Henriquebss
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Nov 14, 2018 11:25 am

Re: Erro 1004 ( erro de definição de objeto)

Mensagem por Henriquebss »

Mikel, boa noite.

Esse problema eu resolvi ativando a worksheet e notei que vários comandos que utilizam o método range (só com ele) dá esse mesmo problema . Teria alguma configuração ou solução melhor que ativar a worksheet.

Obrigado pela ajuda.


Henriquebss
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Nov 14, 2018 11:25 am

Re: Erro 1004 ( erro de definição de objeto)

Mensagem por Henriquebss »

Mikel, boa noite.

Esse problema eu resolvi ativando a worksheet e notei que vários comandos que utilizam o método range (só com ele) dá esse mesmo problema . Teria alguma configuração ou solução melhor que ativar a worksheet.

Obrigado pela ajuda.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder