Sabe tudo sobre COLAR ESPECIAL no VBA? Tem certeza?

Você não sabe tudo sobre COLAR ESPECIAL no VBA e provarei isso neste vídeo. Confira como essa ferramenta é mais ampla do que imagina e pode lhe ajudar muito em suas planilhas Excel.

O nosso canal tem como objetivo ensinar Excel e VBA a internautas com pouco ou nenhum conhecimento sobre o assunto. VBA, ou Visual basic for Application, é uma linguagem de programação que automatiza qualquer tarefa em suas planilhas. Confira!

CAPÍTULOS:
00:00 Colar Especial (Paste Special) fundamentos
01:48 Colar Especial (Paste Special) com VBA na prática

CÓDIGO DESTE VÍDEO:
Sub CopiarColar_1()
Range("B2").Copy
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_2()
Range("B5").Copy
Range("D5").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_3()
Range("B8").Copy
Range("D8").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_4()
Range("B11").Copy
Range("D11").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_5()
Range("B14").Copy
Range("D14").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_6()
Range("B17").Copy
Range("D17").PasteSpecial Paste:=xlPasteAllExceptBorders
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_7()
Range("B20").Copy
Range("D20").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_8A()
Range("B23").Copy

Range("D23").PasteSpecial Paste:=xlPasteFormulas
Range("D23").PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_8B()
Range("B23").Copy

With Range("D23")
.PasteSpecial Paste:=xlPasteFormulas
.PasteSpecial Paste:=xlPasteFormats
End With

Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_9A()
Range("B26:B29").Copy
Range("B31").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_9B()
Range("B31:E31").Copy
Range("D26").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_10()
Range("B34:B40").Copy
Range("D34:D40").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_11()
Range("B43").Copy
Range("D43").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlAdd
Application.CutCopyMode = False
End Sub
'----------------------------------
Sub CopiarColar_12()
Range("B46:B52").Copy
Range("D46:D52").PasteSpecial Paste:=xlPasteValues, _
SkipBlanks:=True, Operation:=xlSubtract
Application.CutCopyMode = False
End Sub

DOWNLOAD ARQUIVOS GRÁTIS:

PLAYLIST PERGUNTAS DOS INTERNAUTAS:

PLAYLIST DICAS RÁPIDAS:

PLAYLIST PROCEDIMENTOS:

PLAYLIST FORMULÁRIOS:

CURSO EXCEL VBA BÁSICO:

[explorarexcel]

CÓDIGO DESTE VÍDEO:
Sub CopiarColar_1()
Range("B2").Copy
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Sub CopiarColar_2()
Range("B5").Copy
Range("D5").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub

Sub CopiarColar_3()
Range("B8").Copy
Range("D8").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Sub CopiarColar_4()
Range("B11").Copy
Range("D11").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub

Sub CopiarColar_5()
Range("B14").Copy
Range("D14").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub

Sub CopiarColar_6()
Range("B17").Copy
Range("D17").PasteSpecial
Application.CutCopyMode = False
End Sub

Sub CopiarColar_7()
Range("B20").Copy
Range("D20").PasteSpecial
Application.CutCopyMode = False
End Sub

Sub CopiarColar_8A()
Range("B23").Copy

Range("D23").PasteSpecial Paste:=xlPasteFormulas
Range("D23").PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False
End Sub

Sub CopiarColar_8B()
Range("B23").Copy

With Range("D23")
.PasteSpecial Paste:=xlPasteFormulas
.PasteSpecial Paste:=xlPasteFormats
End With

Application.CutCopyMode = False
End Sub

Sub CopiarColar_9A()
Range("B26:B29").Copy
Range("B31").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

Sub CopiarColar_9B()
Range("B31:E31").Copy
Range("D26").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

Sub CopiarColar_10()
Range("B34:B40").Copy
Range("D34:D40").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Application.CutCopyMode = False
End Sub

Sub CopiarColar_11()
Range("B43").Copy
Range("D43").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlAdd
Application.CutCopyMode = False
End Sub

Sub CopiarColar_12()
Range("B46:B52").Copy
Range("D46:D52").PasteSpecial Paste:=xlPasteValues, _
SkipBlanks:=True, Operation:=xlSubtract
Application.CutCopyMode = False
End Sub

[amirsessim]

Melhor explicação sobre colar especial do youtube. Parabéns. É possível copiar apenas valores maiores de zero?

[jaelson_alexandre]

Amigo, eh possível usar essas fórmulas do colar especial apenas valores, porém vou colocar dados ou informações de um site ou um programa diferente do Excel.?

[dayanepaduim]

Muito Bom seu video, ajudou muito mesmo. Só tenho uma pergunta, quando é para copiar e colar entre abas, o que muda? Estou usando o código abaixo, mas não consigo colar apenas os números, sem as formulas: Sheets("ABA2").[A4]