Como aplicar formato a celda variable, por favor.

23/01/2009 - 11:12 por JC | Informe spam
Hola:

Estoy intentando diferenciar mediante dar color a la celda de destino, de
que hoja está cogiendo el dato.
Las sentencias que estoy utilizando son con variable, no enunciada, del tipo:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
End If
Cells(i, 10) = AnPr

Estoy intentando introducir una línea de formato, en el condicionante, pero
no me funciona:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
Sheets("PT").Cells(i, 10).Interior.ColorIndex = 6
End If
Cells(i, 10) = AnPr

Me podéis, por favor, comentar si sabéis de alguna manera de aplicar a una
celda variable un formato de celda o texto determinado, para poder
diferenciar si el dato proviene de una hoja u otra.

Como siempre, un millón de gracias por adelantado, por vuestro interés.

Reicibid un cordial saludo.

JC

Preguntas similare

Leer las respuestas

#1 Juan M
23/01/2009 - 14:48 | Informe spam
"JC" escribió
Hola:

Estoy intentando diferenciar mediante dar color a la celda de destino, de
que hoja está cogiendo el dato.
Las sentencias que estoy utilizando son con variable, no enunciada, del
tipo:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
End If
Cells(i, 10) = AnPr

Estoy intentando introducir una línea de formato, en el condicionante,
pero
no me funciona:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
Sheets("PT").Cells(i, 10).Interior.ColorIndex = 6
End If
Cells(i, 10) = AnPr

Me podéis, por favor, comentar si sabéis de alguna manera de aplicar a una
celda variable un formato de celda o texto determinado, para poder
diferenciar si el dato proviene de una hoja u otra.

Como siempre, un millón de gracias por adelantado, por vuestro interés.

Reicibid un cordial saludo.

JC



Hola,

Aparentemente lo que está haciendo el código, es

AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)


Asigna a una variable AnPr el valor existente en la celda Cells(UNAYER, 9)
de la hoja Datos Ayer

If AnPr = 0 Then


Compara el valor de la variable con 0 y si es verdadero...
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)


asigna a esa variable el valor de la celda Cells(UNHOY, 9) de la hoja datos
hoy y ...
Sheets("PT").Cells(i, 10).Interior.ColorIndex = 6


Ahora cambia el color del fondo de la celda Cells(i, 10) de la hoja PT
End If


Termina la condición y sigue ejecutando
Cells(i, 10) = AnPr


Asigna el valor de AnPr a la celda Cells(i, 10) de la hoja activa

El problema puede estar en la última fila prueba a cambiar
Cells(i, 10) = AnPr



por
Sheets("PT").Cells(i, 10) = AnPr

Pero es un tiro a ciegas. Comentas algún detalle más?

Un saludo,
Juan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida