Copiar e Colar (InputBox)
Página 1 de 1
Copiar e Colar (InputBox)
Bom dia!!
O código atua em uma unica guia (guia ativa).
Att
- Código:
Sub Copiar_Colar_Dados()
'Copiar e colar dados da mesma guia via InpuBox
Dim rSource As Range, rPaste As Range
Set rSource = Application.InputBox("Selecione o intervalo a ser copiado", "Copia dados", , , , , ,
Set rPaste = Application.InputBox("Selecione o local para colar os dados", "Cola dados", , , , , ,
rSource.Copy ThisWorkbook.ActiveSheet.Range(rPaste.Cells(1).Address)
End Sub
O código atua em uma unica guia (guia ativa).
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Procurar Copiar Dados (InputBox)
» Macro para enviar planilha por e-mail (colar no corpo da mensagem)
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Encontrar e Copiar cabeçalho
» Problema ao copiar objetos via macro
» Macro para enviar planilha por e-mail (colar no corpo da mensagem)
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Encontrar e Copiar cabeçalho
» Problema ao copiar objetos via macro
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|