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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro 1004 ( erro de definição de objeto)
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Nov 14, 2018 11:25 am
- Mikel Silveira Fraga
- 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)
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.
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.
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Nov 14, 2018 11:25 am
Re: Erro 1004 ( erro de definição de objeto)
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.
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.
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Qua Nov 14, 2018 11:25 am
Re: Erro 1004 ( erro de definição de objeto)
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.
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.