Ir para conteúdo
Fórum Script Brasil
  • 0

Como posso fazer para corrigir Erro em tempo de execução '1004' ?


senhordestino

Pergunta

Olá, Gostaria de inserir uma linha a baixo do registro escolhido na combobox no meu formulário. 

exemplo:

combobox

01 - escolhi esse aqui .... então o programa vai identificar ele na planilha de lançamento.

02

03

... Depois e vai ver o de baixo que é diferente e vai inserir em cima do 02 uma linha para colocar a nova informação do 01.

 

então fica assim na planilha somente.

01

01 - novo registro 

02

03 

 

Vou deixar o modelo do código:

 

Sub opçoes1()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim a As Long
For a = 5 To 1048000

If Filial1 = Cells(a, 1) Then                   ' se Filial1 for igual célula na coluna 1 na linha variavel então
If Filial1 <> Cells((a) + 1, 1) Then
Plan1.Cells(a, 1).Select                        'Seleciona a célula da plan1 na coluna 1 na linha variavel
Plan3.Activate                                  'Ativar a célula da plan3
Plan3.Range("j1:O1").Select                     'Selecionar e Carregar células da plan3
    Selection.Copy                              'Cópiar seleção

    Plan1.Activate                              'Ativa plan1
    Plan1.Select                                'seleciona plan1
    Plan1.Rows((a) + 1).Select                  'selecina a variavel atual e cola abaixo
'Insere uma seleção na linha inferior
    Selection.Insert Shift:=xlDown
    'Call Salve1
    ActiveCell.Value = filial.Value            'O valor da célula ativada e igual ao valor de filial
'Call Vazio

Dim Data As Date
Data = Ldata1.Caption
Dim ano As Double
ano = Lano1.Caption
ActiveCell.Offset(0, 1).Value = Filial1
ActiveCell.Offset(0, 2).Value = bancoconta
ActiveCell.Offset(0, 3).Value = agenciabanco
ActiveCell.Offset(0, 4).Value = ccbancoA  
ActiveCell.Offset(0, 5).Value = cpbancoA
ActiveCell.Offset(0, 6).Value = Ldata1
ActiveCell.Offset(0, 7).Value = lblHora1
    End If
    End If
    Next
    Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...