Al dar doble clic en una celda poner la D de descanso
Un favor como le hago para que al seleccionar uno de los botones de la imagen: al dar doble clic en cada una celda me coloque la letra o el numero del botón.
Ejemplo: al dar clic el botón de la D me ponga la "D" en cualquier celda que de doble clic.
Si presiono el botón UNO me ponga puros 1 en cualquier celda que de clic
1 respuesta
Si la macro debe ejecutarse al darle doble clic en alguna celda, coloca el siguiente código en el objeto HOJA donde tengas tu grilla. Ajusta el rango de la grilla (en mi ejemplo B1:J10)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:J10")) Is Nothing Then Exit Sub
Target.Value = eligio
End SubImagino que los botones son del tipo Formulario. En ese caso, clic derecho sobre un botón, opción Asignar Macro. Y les irás asignando las que correspondan a cada botón. Estas macros quedarán en un módulo donde además debes declarar una variable pública que guardará cuál fue la última tecla presionada. Completa con el resto de tus botones.
Public eligio As String Sub boton_D() eligio = "D" End Sub Sub boton_1() eligio = 1 End Sub
