En este grupo En todos

Foro de Excel



BORRAR Y REGISTRAR DATO AUTOMATICAMENTE

Milton
Ingeniero civil universidad central
Escrito por Milton Cordova
el 28/12/2010

Saludos maestro, tengo una consulta: en una hoja cada vez que el cursor se ubique en alguna celda de la columna "b", debe borrar los datos de la columna "b" e ingresar automaticamente una "x" en la ceda en que se encuenttre ubicado el cursor de la columna "b".

He realizado la macro con el grabador, pero mi problema es como registrar la "x" en la celda activada actualmente por el cursor:

Columns("b:b"). Select
selection. Clearcontents
range("b7"). Select
activecell. Formular1c1 = "x"
range("b7"). Select

Gracias por la ayuda. He subido un documento borrar y registrar dato automaticamente

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 29/12/2010

Hola! Milton. ¡Vaya con la contradicción que expones!...

No sé si "creerle" a tu comentario inicial ó a tu macro: ¡¡¡Una nada tiene que ver con la otra!
Ja ja ja

¿Podrías ampliar tu descripción, por favor?
Saludos, Cacho.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 30/12/2010

Saludos : Cacho deseo saber cual es la contradiccion y si acaso pareciese esta no la he realizado prmeditadamente ya que estaría faltando con el respeto a todos lo miembros de Foro.

He subido un documento en el cual deseo hacer lo siguiente: la idea es que en la fila B cada vez que ubique el cursor con el mause se escriba la letra "X",esto lo puedo hacer por primera vez, pero lo que necesito es que cada vez que ubique el cursor en otra celda de la columna B nuevamente borre el registro antes realizado en todas las celdas de la columna "B" para que escriba la letra "X" en la celda activada por el cursor.

Disculpas si no puedo ser más explicito, la macro que he acompañado es la que se refiere al borrar datos de la columna "B" y escribe la letra "X" en una celda "B7", pero para las proximas visitas o posiciones en las celdas de la columna "B" no funciona ya que siempre va a escribir la letra "X" en la celda "B7".

Saludos cordiales nuevamente, y felicidades en el proximo año 2011.

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 30/12/2010

¡Desde luego, amigo Milton!...
Que yo no haya sabido interpretar tu necesidad en modo alguno constituye una falta de respeto de tu parte, ni mucho menos.

Tras tus últimos comentarios interpreto que lo siguiente puede ayudarte:

______________________

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
If Target. Column <> 2 Then Exit Sub
Columns("b:b"). ClearContents
ActiveCell. FormulaR1C1 = "x"
End Sub
______________________

Recuerda que el evento "SelectionChange" se coloca en el módulo de la hoja, y no en un módulo común.

¿Te sirve esta idea?
Saludos, Cacho.

Milton Cordova
Ingeniero civil universidad central
Escrito por Milton Cordova
el 31/12/2010

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