Saberexcel - site das macros
Essas macros do Aplicativo Microsoft Excel VBA, copiam dados de uma determinada coluna para outra, para células pre-determinadas.
Observem que um assunto também muito importante é aprender a depurar uma macro, vejam a diferença em um código gravado e um código devidamente depurado para tal finalidade. Em outro tutorial pretendo apresentar uma matéria de como inserir um subtotal em grupo de números em uma lista de grupo de numero muito intensa.
Baixe o exemplo de planilha no final da página. Fiquem com Deus, Boa Sorte.
E_Marcondes.

'linha de código depurada
Sub depurando_codigo_gravado()
Plan2.[K1:K23000].Copy Plan1.[C1]
End Sub

'aqui a mesma macro que foi gravada, com algumas linhas de códigos que poderiam muito bem
'serem suprimidas, chamamos isso de depuração de código.
Sub macro_gravada()
Sheets("Plan2").Select
Range("K1:K23000").Select
Selection.Copy
Sheets("Plan1").Select
Range("C1").Select
ActiveSheet.Paste
Range("E1").Select
End Sub

Sub deletar_teste()
[C1:C23000].ClearContents
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que copia dados referente a um determinado intervalo de datas e cola em outra folha de planilha também no mesmo intervalo de datas.


Sub Copiar_dados_para_outra_plan()

Dim vData As String
Dim vColuna As Integer
Dim vEncontrar As Boolean

On Error GoTo Err_Execute

'Retorna o valor da data
vData = Sheets("Planilha Dados").Range("B4").Value

Sheets("Plan").Select

'inicia na coluna(B)
vColuna = 2
vEncontrar = False

While vEncontrar = False

'se encontrar uma célula em branco na linha 2, termina a busca
If Len(Cells(2, vColuna)) = 0 Then
MsgBox "Dados não encontrados.", vbInformation, "http://www.saberexcel.com"
Exit Sub

'dados encontrado após a linha 2
ElseIf Cells(2, vColuna) = vData Then

'Seleciona valor para copiar da "Planilha Dados"
Sheets("Planilha Dados").Select
Range("B5:H6").Select
Selection.Copy

'Cola na "Plan"
Sheets("Plan").Select
Cells(3, vColuna).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

vEncontrar = True
MsgBox "Os dados foram copiados com sucesso!!", vbInformation, "http://www.saberexcel.com"

'continua a procura
Else
vColuna = vColuna + 1
End If

Wend

On Error GoTo 0

Exit Sub

Err_Execute:
MsgBox "Ocorreu um #erro#!", vbInformation, "http://www.saberexcel.com"

End Sub

Aprenda Aplicativo Microsoft Excel VBA - SaberExcel