En este grupo En todos

Foro de Excel



ALCANCE A BORRAR Y REGISTRAR "X" EL CELDAS

Milton
Ingeniero civil universidad central
Escrito por Milton Cordova
el 04/01/2011

Estimado cacho gracias por tu apoto siempre muy inportante, en todos las ocaciones que he necesitado ayuda del foro siempre has estado tu y los otros mastes de una manera oportuna y excelente para dar soluciones y enseñanzas a los foristas.

Deseo hacerte otra consulta: si quiero que en un rango de celdas por ejm. D22:D24 cada vez que me ubico con el cursor se digite "x"; c ual seria la macro, yo he intentado algunas opciones pero lamentablemente no logro, indico la macro a la que he llegado:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D22"). Select
ActiveCell. FormulaR1C1 = "X"
If Target. Range("D22"). Count > 0 Then Exit Sub
If Not Intersect(Target, Range("D22:D23")) Is Nothing Then Exit Sub
Range("D23"). Select
ActiveCell. FormulaR1C1 = "X"
If Target. Range("D23"). Count > 0 Then Exit Sub
If Not Intersect(Target, Range("D22:D23")) Is Nothing Then Exit Sub
End Sub
Aprovecho este dia para deserte un feliz 2011, y que tus conocimeintos cada vez sean mas excelentes con la finalidad de que este foro se engrandezca con los masters como tu, que son la columna vertebral del foro.

Gracias por la ayuda una vez mas

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 04/01/2011

Hola! Milton. Gracias por tus comentarios: siempre tan generoso.

Entiendo que desees que al seleccionar alguna de las tres celdas (D22, D23 ó D24) se coloque en ella una "X".

Pero lo que no entiendo del código que muestras es: ¿Y qué pasa con las otras dos celdas? ¿Quieres que se borre su contenido? ¿Quieres que se queden como están? ¿Alguna otra cosa?

Saludos y muy feliz 2011.
Cacho.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 04/01/2011

Saludos estimado Cacho, lo que deseo es que en el rango solamente se registre la "X" en la celda activa del rango D22,D23,D24, los demas deben borrarse, y otra pregunta que posibilidad hay de que esto se pueda hacer para otro rango por ejm: para E22,E23,E24, esecir que se pueda aplicar para mas de un rango.

Gracias por la ayuda, felicidades

Milton Cordova

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 04/01/2011

Si solo estuviese involucrado el rango D22:E24 entonces podría servirte:
________________________

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
If Intersect(Target, [D22:E24]) Is Nothing Then Exit Sub
Cells(22, Target. Column). Resize(3). ClearContents
Target = "X"
End Sub
________________________

Saludos, Cacho.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 20/04/2011

Gracias por la ayuda, me ha servido para el calculo que estaba realizando

Milton Córdova