Doble clic en celda valor igual a "1"

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Doble clic en celda valor igual a "1"

Notapor SARAIBA » 13 Ene 2018 07:35

Hola,

Tengo una hoja en la que en la columna "H" al hacer doble clic con el ratón inserta el numero 1. Mi pregunta es si se puede hacer lo mismo dentro de la misma hoja por ejemplo en la columna "B" y que le de un valor distinto al hacer doble clic, puede ser en vez del número 1 que sea el 2.

adjunto archivo

Gracias de antemano
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
SARAIBA
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 13 Ene 2018 07:12

Re: Doble clic en celda valor igual a "1"

Notapor Héctor Miguel » 13 Ene 2018 16:14

prueba cambiando el codigo que tienes actualmente en el modulo de esa hoja con algo +/- como lo siguiente:
Código: Seleccionar todo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target(1)
    Select Case .Column
      Case 2: Cancel = True
        If .Value = 2 Then .Value = "" Else .Value = 2
      Case 8: Cancel = True
        If .Value = 1 Then .Value = "" Else .Value = 1
    End Select
  End With
End Sub

cualquier adaptacion por cambios en la situacion (real), ya va por tu cuenta ?

saludos,
hector.
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 4593
Registrado: 26 Mar 2005 18:31

Re: Doble clic en celda valor igual a "1"

Notapor SARAIBA » 13 Ene 2018 16:29

Funciona perfectamente, solo tuve que adaptarla a mi hoja de calculo.

Muchisimas gracias
SARAIBA
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 2
Registrado: 13 Ene 2018 07:12


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Antoni y 13 invitados