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

Problema com macro Colar Especial

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Silvio Felinto
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sex Abr 01, 2022 11:56 am

Problema com macro Colar Especial

Mensagem por Silvio Felinto »

Bom dia pessoal.

Preciso de ajuda com a macro abaixo.
Quando vou colar os dados de um planilha do excel com a macro ela dá um erro e preciso selecionar e copiar novamente os dados e colar com o botão da macro. Aí ela funciona na segunda vez.
Como se resolve este problema?
Grato
Silvio Felinto

Código: Selecionar todos

Sub Colar_Dados_Especial_123()
'
Dim convenio As Range
Dim msgResposta As VbMsgBoxResult

Set convenio = Range("E4")

' COLOARESPECIAL123 Macro
    
Application.ScreenUpdating = False


   On Error GoTo TE

ActiveSheet.Unprotect "123"

          If Range("E4").Value = "" Then
          MsgBox "QUAL O Nº DO PEDIDO?"
          Exit Sub
          
          End If
          
 msgResposta = MsgBox("**************** CUIDADO! ****************" & Chr(13) & Chr(13) & "Tem certeza que os dados são deste PEDIDO nº   " & PEDIDO & "?", vbYesNo)

 
  If msgResposta = vbYes Then
  
          If Range("D11").Value = "" Then
          
           
           Range("D1").End(xlDown).Offset(2, 0).Select
        
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
   
            Range("D11").Select
            Application.CutCopyMode = False
            'Variável para a linha de inicio da execução
            
                lin = 11
            
                'Fazer até que a coluna 4 esteja vazia
                Do Until Cells(lin, 4) = ""
                
                'Preencher a coluna 3 com o número do CV...
                
                Cells(lin, 3).Value = Range("E4").Value
                lin = lin + 1
                
                Loop
                
                Range("D11").Select
            ActiveCell.Offset(0, 12).End(xlDown).Offset(1, 0).Select
    
                
        
    ElseIf Range("D11").Value <> "" Then
          
           
           Range("D11").End(xlDown).Offset(1, 0).Select
        
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
   
            Range("D11").Select
            Application.CutCopyMode = False
            'Variável para a linha de inicio da execução
                lin = 11
                
                'Fazer até que a coluna 4 esteja vazia
                Do Until Cells(lin, 4) = ""
                
                'Preencher a coluna 3 com o número do CV...
                
                Cells(lin, 3).Value = Range("E4").Value
                lin = lin + 1
                
                Loop
        
        Range("C11").ClearContents

 Range("D11").Select
ActiveCell.Offset(0, 12).End(xlDown).Offset(1, 0).Select


        End If

Else

End If



ActiveSheet.Protect "123"


Exit Sub
TE: 'Tratamento de Erros
    MsgBox "O Seguinte erro ocorreu: " & Err.Description & Chr(13) & "Copie e cole novamente até encontramos uma solução."

Application.ScreenUpdating = True
    
End Sub
P.S. - Não consigo anexar a pasta do Excel com o exemplo do problema. Está dando o seguinte erro:
Tela de erro no fórum.PNG
Tela de erro no fórum.PNG (39.28 KiB) Exibido 735 vezes


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
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Problema com macro Colar Especial

Mensagem por webmaster »

Quanto ao anexo, é preciso ser zip, rar ou 7z


Silvio Felinto
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sex Abr 01, 2022 11:56 am

Re: Problema com macro Colar Especial

Mensagem por Silvio Felinto »

Ok, Webmaster.

Segue, em anexo, o arquivo para ajuda.

Grato.
Silvio Felinto.


Silvio Felinto
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sex Abr 01, 2022 11:56 am

Re: Problema com macro Colar Especial

Mensagem por Silvio Felinto »

Bom dia pessoal.

Acho que não foi o anexo. Por isto, estou postando de novo para me ajudarem.
ANALISE PROCESSOS.rar
(269.72 KiB) Baixado 44 vezes
Silvio Felinto.


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