Hacer click (o doble click) en una celda y que aparezca un valor "X"

Tengo una tabla donde cada casilla es un tipo de defecto ¿como puedo hacer para que con un click o doble click sobre la celda correspondiente solo coloque la letra "X". En esta celda previamente tiene escrito un número.

¿

?

2 respuestas

Respuesta
4

Te dejo un ejemplo donde se ejecuta sobre la col E, podes acotar el rango como así también decidir hacia dónde debe ir el cursor una vez colocada la x, en el ej se posiciona a derecha

Entrá al Editor de macros y seleccioná con doble clic el objeto HOJA donde quiera realizar esto (panel a tu izquierda).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'solo se controla col E
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
Target.Value = "X"
'desviar el cursor a derecha o hacia abajo
Target.Offset(0, 1).Select
End Sub

Sdos y no olvides finalizar la consulta

Muchas gracias, pero nunca he trabajado con macros, pensé que se podía hacer con alguna fórmula o algo similar. De todas maneras lo probaré.

Un saludo

Respuesta
1

Gracias por el aporte a mi me sirvió

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Doble click en celda y mostrar el valor de la propia celda en un msgbox (solo columnas dónde celda en fila 2 = "Observaciones"

Entiendo que con el propio titulo ya se entiende cual es el objetivo. El problema es que las celdas de las columnas "Observaciones" contienen mucho texto, y si quieres ver el contenido tienes que estar ajustando el ancho o justificando el visualmente...
2 respuestas

Paloma de verificación en celda excel

Me gustaría tener un código que al hacer doble clic sobre una celda me marque esa celda con una palomilla de las que salen el cuadro de verificación
1 respuesta

Abrir userform celda en excel

Tengo el siguiente código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Retenciones.Show End Sub Que me abre un Userform (Retenciones)cuando hago doble clic en cualquier parte de la hoja activa. Lo...
1 respuesta

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua, es decir si yo introduzco una serie de datos en una celda, desencadenen una macro que bloquee la celda contigua sin necesidad de utilizar ningún método...
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Ejecutar macro al dar clic en una celda

No soy muy experto en programar todo con las macros, pero quiero saber como puedo dar clic en una celda que tiene como titulo "buscar" y así me ejecute la macro que cree con anterioridad.
1 respuesta

Excel avanzado, colocar marca e celda con el mouse

Tengo una lista con 500 alumnos y quiero poner al lado de cada uno de ello si estuvo presente una marca con el mouse (botón de control) en la siguiente columna y si estuvo ausente una marca también con el mouse en l segunda columna, además que según...
2 respuestas

Macro lenta en la ejecución calculando celdas

Tengo esto en la hoja : Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A1:Q6000" Call Celdas_oculta End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 4 Then If Cells(Target.Row, "B") = "" Then...
2 respuestas

Como hacer para mostrar mensaje de advertencia

Tengo una hoja de 5 columnas con 600 datos en cada columna, entonces lo que necesito es que si en cualquier celda de la columna 5 (E) aparece el dato de texto que contenga la palabra "rampa", siempre me muestre en mensaje de advertencia (msgbox). Los...
1 respuesta

Worksheet_selectionChange no me deja copiar o cortar y pegar celdas dentro de una hoja de Excel

Tengo una macro que me muestra el calendario cuando se hace click en una celda de una columna. Pero como tengo la instrucción Worksheet_selectionChange a veces necesito copiar y pegar; o cortar y pegar datos dentro de la hoja de cálculo y no me lo...
1 respuesta