• 0
senhordestino

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

Question

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

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.