Excel - MARCAR CELDAS

   
Vista:

MARCAR CELDAS

Publicado por BLAMIN (9 intervenciones) el 06/10/2010 20:54:56
BUENAS TARDES.
LO QUE QUIERO HACER EN UNA PEQUEÑA TABLITA DE CONTROL DE COBROS ES UN POCO COMPLEJO ( ALMENOS PARA MI ) PERO SE LOS EXPONGO A VER SI ME PUEDEN AYUDAR.
TENGO UNA TABLA DE COBRO DE FACTURAS EN LA QUE COPIO TODAS LAS FACTURAS DEL MES Y TENGO UNA COLUMNA QUE MARCA SI ESTA COBRADA O NO. ME GUSTARIA QUE, CUANDO EN LA COLUMNA DE COBRADAS, ESTE VACIA O QUE MARQUE CON "S" DE SI O "N" DE NO COBRADA, LOS DATOS DE TODAS LAS DEMAS CELDAS APAREZCAN EN ROJO Y QUE CUANDO MARQUE ( EN LA COLUMNA DE COBROS ) COMO QUE ESTA COBRADA ME PASE TODO A COLOR NEGRO, NO SE SI ME EXPLIQUE BIEN

NOMBRE FRA. FORMA PAGO COBRADA
------------- -------- -------------------- ---------------
JUAN A/100 CONTADO S
PEDRO A/101 TALON N

EN EL CASO DE JUAN AL PONER "S" ESTA PAGADA Y EL RESTO DE CELDAS ( NOMBRE, FRA., .....) QUEDARIAN EN COLOR NEGRO.
EN EL CASO DE PEDRO AL PONER "N" NO ESTARIA PAGADA Y EL RESTO DE CELDAS ( NOMBRE, FRA., .....) ESTARIA EN ROJO.

QUISIERA QUE SE IDENTIFICARA CLARAMENTE LAS FACTURAS QUE ESTAN PENDIENTES DE PAGO. PARA ESO QUIERO ESTO. SI ALGUIEN APORTA OTRA IDEA TAMBIEN ME VALE.

EN CUALQUIERA DE LOS CASOS, VAYA POR DELANTE MI AGRADECIMIENTO A LA AYUDA QUE PRESTAN.

UN SALUDO

BLAS CASANOVA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MARCAR CELDAS

Publicado por LUIS GUILLERMO (211 intervenciones) el 07/10/2010 04:54:04
no te entendi muy bien, pero tal ves esta formula te sirva

=SI(IZQUIERDA(A1;2)="N";"NO ESTA PAGADA";SI(IZQUIERDA(A1;2)="S";"ESTA PAGA";SI(T(A1)="";"TEL";"ReviseValor")))

SI ESCIRBES EN LA CELDA A1 POR ejemplo, es N. en la celda b1 sale
"no esta paga" y si escibres S , esta paga, y por ultimo si escribes un numero sal¡e tel, de teleono, esta la adicione. en caso de que no sea ninguna, sale, revise valor.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MARCAR CELDAS

Publicado por BLAMIN (9 intervenciones) el 08/10/2010 21:12:45
BUENAS TARDES LUIS. CREO QUE SI COGISTE LA IDEA PERO NO ES ESO LO QUE QUERIA NO TAN COMPLICADO. TE EXPLICO, EN VEZ DE QUE SI PONGO N EN LA CELDA A1 ME SALE EN LA CELDA B1 NO ESTA PAGA PUES QUE CAMBIE DE COLOR ES COMO CUANDO UN NUMERO ES POSITIVO SALE EN NEGRO Y CUANDO ES NEGATIVO SALE EN ROJO. NO SE SI ME ENTIENDES Y LO MISMO ESTOY PIDIENDO DEMASIADO. ESTA IDEA QUE ME DAS TAMBIEN ES BUENA PERO ME HARIA CAMBIAR TODA LA VISTA DE LA HOJA Y ES MUY COMPLICADO Y TENGO POCO TIEMPO PORQUE LA NAECESITO COMO QUIEN DICE PARA AYER. EN CUALQUIER CASO UN MILLON DE GRACIAS POR AYUDARME. UN SALUDO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MARCAR CELDAS

Publicado por enrique54 (90 intervenciones) el 09/10/2010 01:12:19
lo que estas pidiendo es una asociación de lo que te aconsejan con el formato condicional que se maneja en exc el para lo que dices que aparezca la celda de color
desarrollalo
te ayudara mucho
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MARCAR CELDAS

Publicado por BLAMIN (9 intervenciones) el 10/10/2010 20:51:32
ME VAS A PERDONAR ENRIQUE54 PERO NO ENTENDI NADA. SI ME LO EXPLICAS DE MANERA MAS GRAFICA ME AYUDARAS MEJOR. EN CUALQUIER CASO MUCHAS GRACIAS POR LA AYUDA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MARCAR CELDAS

Publicado por Ernest (1 intervención) el 14/10/2010 17:09:31
Hola Blas,

sólo se me ocurre cómo hacerlo utilizando macros VisualBasic.

Abre el editor de VisualBasic del Excel (Alt + F11), y en la hoja en la que tienes tu tabla, copia éste código:

Const DESDEFILA As Integer = 2
Const HASTAFILA As Integer = 20
Const DESDECOLUMNA As Integer = 1
Const HASTACOLUMNA As Integer = 5
Const COLUMNACOBROS As Integer = 5

Const NEGRO As Integer = 1
Const ROJO As Integer = 3

Private Sub Worksheet_Change(ByVal Target As Range)
Dim f As Integer

If Target.Count = 1 Then
If Target.Column = COLUMNACOBROS And Target.Row >= DESDEFILA And Target.Row <= HASTAFILA Then
Call PintarFila(Target.Row)
End If
Else
For f = DESDEFILA To HASTAFILA
Call PintarFila(f)
Next
End If
End Sub

Private Sub PintarFila(f As Integer)
Dim c As Integer
Dim color As Integer

If Trim(UCase(Cells(f, COLUMNACOBROS))) = "N" Then
color = ROJO
Else
color = NEGRO
End If

For c = DESDECOLUMNA To HASTACOLUMNA
Cells(f, c).Font.ColorIndex = color
Next
End Sub


Tendrás que informar las constantes con las filas y columnas en las que tienes tus datos:

Const DESDEFILA As Integer = 2 (primera fila de datos)
Const HASTAFILA As Integer = 20 (última fila de datos)
Const DESDECOLUMNA As Integer = 1 (primera columna de datos)
Const HASTACOLUMNA As Integer = 5 (última columna de datos)
Const COLUMNACOBROS As Integer = 5 (columna dónde se informa la N o S)

Para que funcione, tienes que permitir la ejecución de macros.

Espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar