Excel Copiar dados através do evento duplo clique na célula

[Martti]

Após um duplo clique em qualquer célula preenchida da Plan1(A:AH), preciso

que a ID da linha(coluna A) seja copiada para a célula AP3 da Plan2, que assim preencherá um modelo de formulário por PROCV baseado na ID.

Traduzindo, duplo clique aleatório na célula X20, o valor da ID na A20 será copiado para a Plan2 na célula AP3.

A referência para copiar e colar no VBA será sempre a célula da coluna A da linha selecionada para a Plan2 na célula AP3.

Grato pela atenção.

[Basole]

@Marttiveja se é isso que deseja: 

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lr!
Dim sh2 As Worksheet
    
  Set sh2 = Worksheets("Plan2")
  
    Lr = Cells(Rows.Count, 1).End(xlUp).Row
    
    If Not Application.Intersect(Target, Range("A1:AH" & Lr)) Is Nothing Then
       
    sh2.Range("AP3").Value = Range("A" & Target.Row).Value2
    
    If sh2.Range("AP3").Value = Range("A" & Target.Row).Value2 Then _
    MsgBox "Ok", 64, "Aviso"
    
       
    End If
    
   
End Sub

 

[Martti]

@Basolemuito obrigado mais uma vez, excelente contibuição!!!

Agregando valor ao código, seria possível, depois de copiar a informação, abrir um print preview da Plan2?

Agradeço desde já.

[Basole]

@Martti o que seria este print preview da Plan2 ?

 

Explique melhor o que no voce está pensando 

[Martti]

@Basole após o evento duplo clique, o valor da ID da coluna A da linha selecionada será copiado

para a célula AP3 da Plan2.

Esse valor na célula AP3 da Plan2 é referência de PROCV para preenchimento de outras células que

compõem um modelo de 2ª via, com área de impressão definida.

Então, uma vez o valor copiado para a Plan2, essa seria preenchida por PROCV e imediatamente

abriria um print preview para conferência.

Se não me fiz entender é por falta de lapidação no VBA...

[Basole]

@Martti é so acrescentar no codigo a linha

 

ActiveSheet.PrintPreview

 

Mas no caso teria que definir o intervalo para ser mostrado na tela, mas não esta disponibilizou essa informação

[Martti]

@Basolemais uma vez, muito obrigado.

Minha necessidade se resume no evento duplo clique copiar a ID (coluna A, números de ordem sequenciais, ID 1começa na linha 6) da linha selecionada

para a célula AP3 da Plan2 e abrir a Plan 2, que já tem uma área definida de impressão com um espelho de formulário.

Alimentando manualmente a célula AP3 com, o formulário é preenchido por PROCV e impressão com um botão por macro de print preview.

Minha ignorância está em escrever um código que copie o valor da ID da linha selecionada na Plan1 para a célula AP3 da Plan2 através do duplo clique, feche a Plan1 e abra a Plan2

preenchida para conferência.

Agradeço antecipadamente por compratilhar seu tempo e seu conhecimento.