UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Sólo por unos días suban sus archivos a Dropbox y dejan link en sus consultas. Gracias.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Miltonm


Saludos necesito un apoyo para revisar una macro que debe hacer lo siguiente;
1 en el rango C68:C79 se debe insertar una "X" al hacer doble clik en cualquier celda borrando automaticamente a la X que se encuentre actualmente.
2 En las celdas H204:h206 y para H231:H233, al hacer doble clik en las celdas se debe ingresar una "X" sin eliminar ningun X que se encuentre en alguna otra celda esdecir que si hago boble clik en las celdas H204,H206,H206 en cada una debe estar una X pero si vuelvo a boble clik en cualquiera de ellas se borra la X
3. para los rangos H240:I243 y H215:I220 al hacer doble clik en las celdas de la columna H se registre una X pero si hacemos otra vez boble clik se elimine la "x" y tambien el dato de la celda correspondiente a la columna I, ejm si doy doble clic en H240 se ingresa una "X" y si doy otra ves doble clik se borra la X ademas el valor que se encuentre en I240
adjunto las macro que no me funciona bien solo parcial para el primer punto
Gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Inserta y elimine "X" en celdas doble clik
    If Not Intersect(Target, Range("H204:H206,H231:H233,h215:h220,h240:h243")) Is Nothing Then
      Cancel = True
    Target(1, 1) = IIf(Target(1, 1) = "X", "", "X")
    End If
'inserta "X" en celdas con doble clik borrando la que "X" que se encuentre an alguna celda otra del rango
    If Intersect(Target, Range("C67:C79")) Is Nothing Then Exit Sub Else Cancel = True
    Cells(67, Target.Column).Resize(79, Target.Column).ClearContents: Target = "X"
      
'debe borrar la "X" al dar doble clik y eliminar el dato que se encuentre an la celda adjunta de la columna I
    If Target.Column = 8 And Target.Row > 215 And Target.Row < 220 And Target = "" Then
    Cells(Target.Row, 9) = ""
    End If

End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.