Copiar e Colar (InputBox)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Copiar e Colar (InputBox)

Mensagem por alexandrevba em Qua Dez 03, 2014 8:01 am

Bom dia!!

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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum