Excel VBA: obtener la fila del botón presionado

Question

Estoy intentando hacer un botón en Excel que copie un cierto rango de celdas del libro activo a otro libro. La copia de esta gama funciona perfectamente cuando especifico un rango fijo, pero no sé cómo resolver la fila del botón que se está haciendo clic.

Cada fila contiene 7 o más celdas, y la 8va celda contiene una forma con una macro adjunta (el botón). Cuando el usuario presiona este botón, las 7 celdas en la misma fila que la fila que contiene el botón presionado deben ser copiadas.

El uso de ActiveCell no sirve de nada, ya que presionar el botón en realidad no establece esa celda como activa. Busqué mucho, pero parece que no puedo encontrar cómo obtener este valor. Una vez que tengo el número de fila del botón en el que hago clic, puedo resolver el resto por mi cuenta.

Answer 1

Cada Shape tiene TopLeftCell la propiedad. Contiene una celda dentro de la cual reside la esquina superior izquierda de la forma.

Answer 2

Hay una gran solución mencionado aquí: http://www.ozgrid.com/forum/showthread.php?t=33351&p=167317#post167317

código de Oro copiado del post anterior:

Sub Mainscoresheet() 
    ' Mainlineup Macro 
    Dim b As Object, cs As Integer 
    Set b = ActiveSheet.Buttons(Application.Caller) 
    With b.TopLeftCell 
     cs = .Column 
    End With 
    MsgBox "Column Number " & cs 
End Sub 

Answer 3

excelente respuesta. Por cierto, ¡también funciona para Rownumber!

'Same for rownumbers! 
Sub Mainscoresheet() 
    ' Mainlineup Macro 
    Dim b As Object, RowNumber As Integer 
    Set b = ActiveSheet.Buttons(Application.Caller) 
    With b.TopLeftCell 
     RowNumber = .Row 
    End With 
    MsgBox "Row Number " & RowNumber 
End Sub