ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 102 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: 3026
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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
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 2 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