Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Copiar e Colar (InputBox)

Ir para baixo

Copiar e Colar (InputBox) Empty Copiar e Colar (InputBox)

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

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos