capturar que celda se selecciona con el mouse???

"Augusto Rousset" escribió en el mensaje news:

hola, necesito averiguar como hago para que una macro solicite al usuario
que indique con el mouse en que celda se quiere pegar una informacion.

muchas gracias

Sub prueba()
Dim rngCelda As Range
Set rngCelda = Application.InputBox("Seleccione una celda: ", Type:=8)
MsgBox "La celda seleccionada es " & rngCelda.Address & " de la hoja " & rngCelda.Parent.Name
Set rngCelda = Nothing
End Sub

Nota: si la selección debe ser necesariamente de una sola celda y/o en determinada hoja, tendrás que añadir el código que se encargue de controlarlo, porque el InputBox aceptará cualquier rango.


Un saludo.


Fernando Arroyo
MS MVP - Excel