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.

 

 

 

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!

 

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.

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