Muy bueno y práctico. Dicen que siempre se puede mejorar y en ese sentido es el comentario. Si se ejecuta en un archivo con formato, donde las celdas ya cuentan con color de fondo, al pasar por esas celdas se borra el formato previo y ya no se restaura.
La idea es buena y muy util si el fondo de la hoja es blanco. En lo personal me ha servido mucho.
Bueno vengo desarrollando macros en excel hace mucho y a tu macro la encuetro interesante pero le falta mucho, hay varias cosas q pulir como es la perdida de formato de una celda, o cuando haces click con el mouse fuera del campo, pero vale, Suerte!
Algunas partes del código son muy útiles (estoy desarrollando una aplicación en excel automatizada mediante macros), pero debieron meter su código en una sentencia If, no me di cuenta y me movió todos los formatos de mi proyecto... ¡horrible!
si puede y quiere hagame el favor de enviarme un programa cualquiera que opere bien y junto con sus codigos y aplicaciones bien especifica, para mejorar en la materia.
tu macro me gusto, pero tiene demasiado trabajo que al hacer clic se pierde y eso me motivo a pensar en algo...
No se nada de programacion pero funcionó
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
'Utilizo la funcion al cambiar celda
'llenamos el interior de la celda activa
ActiveCell.Interior.ColorIndex = 8 'coloreo la celda activa
'validamos que la celda activa sea <> al valor almacenado
If ActiveCell.Address <> Range("b1").Value Then
'Actualizamos
Range("b1") = ActiveCell.Address
'limpiamos la celda anterior y desplazamos el valor del rango anterior
If Range("a1").Value <> Range("b1").Value Then
Range(Range("a1").Value).Interior.ColorIndex = 0
Range("a1") = Range("b1").Value
End If
Comentarios sobre la versión: Versión 1 (10)
Gracias
La idea es buena y muy util si el fondo de la hoja es blanco. En lo personal me ha servido mucho.
nicaragua, nueva guinea. aaron molina
lo que queria pedirte es si me puedes ayudar con Logica Difusa Estoy Buscado un programa sencillo.
Gracias
No se nada de programacion pero funcionó
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
'Utilizo la funcion al cambiar celda
'llenamos el interior de la celda activa
ActiveCell.Interior.ColorIndex = 8 'coloreo la celda activa
'validamos que la celda activa sea <> al valor almacenado
If ActiveCell.Address <> Range("b1").Value Then
'Actualizamos
Range("b1") = ActiveCell.Address
'limpiamos la celda anterior y desplazamos el valor del rango anterior
If Range("a1").Value <> Range("b1").Value Then
Range(Range("a1").Value).Interior.ColorIndex = 0
Range("a1") = Range("b1").Value
End If
End If
End Sub
Gracias
[email protected]