Dato de tabla dinámica a celda con clic

[jcaceresu]

Buen día maestros y compañeros:

1. En un TextBox se digita el nombre de un artículo.
2. Una tabla dinámica muestra aproximaciones al dato buscado.
3. Al dar clic o doble clic de los datos aproximados  en la tabla dinámica, este dato debe copiarse en la celda G7. 
4. El siguiente dato encontrado, al dar clic o doble clic debe copiarse en G8 y así sucesivamente.

Por favor, es de 0.137 MB y está en Drive compartido: https://drive.google.com/file/d/0ByjreIUrjQRLczZVanVJdzJzOVk/view?usp=sharing

Agradezco la ayuda.

 

 

 

[John Jairo V]

Hola @jcaceresu 

Coloca este código en la hoja donde quieres la extracción.  Cuando hagas doble clic en el valor, este irá directamente a la columna H, ubicándose cada nuevo dato debajo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 7 Or Target.Row < 19 Then Exit Sub
    Cancel = True
    Range("H" & Rows.Count).End(xlUp).Offset(1) = Target.Value
End Sub

¡Comentas! ¡Bendiciones!

 

[jcaceresu]

Amigo johnmpl:

No sé cómo agregar el código que me facilitaste. Si pudieras enseñarme en el archivo que adjunté, podré ir aprendiendo.

Saludos.

[John Jairo V]

Verifica el adjunto, donde podrás ver el código haciendo clic derecho en el nombre de la hoja (parte inferior de Excel) y haciendo clic en "Ver código"

TablaDinamica a celda.xlsm