Cambiar color con macro

07/09/2006 - 13:47 por El Pepus | Informe spam
Hola de nuevo me pasasteis una forma de cambiar el color
de las celdas con "Formato condicional" pero ahora lo necesito
con macros, tengo lo siguiente en hoja1 que funciona bien, hay
que añadirle el codigo para que si cambio el valor de las celdas
de la columna 6 o sea la F, me lo ponga, en Rojo si esta vacia y
en Negro si le coloco un dato, es que no se el numero de filas
que me seran necesarias y con el "Formato condicional" o me paso
o no llego.
Tener en cuenta que lo tiene que hacer siempre que en la columna
A tenga un valor colocado si esta en blanco no hace falta por lo que
pienso que tiene que estar dentro del "If Not Target.Column"
y se tiene que "Revaluar" Value, porque lo mismo tengo 4 filas en
Rojo y por ejemplo subo a la 2 y le coloco un dato y tiene que cambiar
esa fila, el rango a cambiar el color es desde la columna A a la G,

Luego nos pelearemos con el BUSCAR, pero las cosas poco a poco
para no liarme.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 1 Then Exit Sub

With Cells(Target.Row, 4)
.NumberFormat = "hh:mm"
.Value = Now()
Cells(Target.Row, 5).Select

End With

End Sub

Preguntas similare

Leer las respuestas

#1 Gabriel Raigosa
30/09/2006 - 18:22 | Informe spam
Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"El Pepus" <pepus88(Quitar)@telefonica.net> escribió en el mensaje
news:
| Hola de nuevo me pasasteis una forma de cambiar el color
| de las celdas con "Formato condicional" pero ahora lo necesito
| con macros, tengo lo siguiente en hoja1 que funciona bien, hay
| que añadirle el codigo para que si cambio el valor de las celdas
| de la columna 6 o sea la F, me lo ponga, en Rojo si esta vacia y
| en Negro si le coloco un dato, es que no se el numero de filas
| que me seran necesarias y con el "Formato condicional" o me paso
| o no llego.
| Tener en cuenta que lo tiene que hacer siempre que en la columna
| A tenga un valor colocado si esta en blanco no hace falta por lo que
| pienso que tiene que estar dentro del "If Not Target.Column"
| y se tiene que "Revaluar" Value, porque lo mismo tengo 4 filas en
| Rojo y por ejemplo subo a la 2 y le coloco un dato y tiene que cambiar
| esa fila, el rango a cambiar el color es desde la columna A a la G,
|
| Luego nos pelearemos con el BUSCAR, pero las cosas poco a poco
| para no liarme.
|
| Private Sub Worksheet_Change(ByVal Target As Range)
| If Not Target.Column = 1 Then Exit Sub
|
| With Cells(Target.Row, 4)
| .NumberFormat = "hh:mm"
| .Value = Now()
| Cells(Target.Row, 5).Select
|
| End With
|
| End Sub
|
|
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida