Problema con Condicion al insertar a celda

08/06/2006 - 20:01 por Efrain | Informe spam
Espero me puedan Sacar de una Duda ya que no desifro el porque..
mi problema se presenta en una hoja de excel la cual cree un forma
con texbox y combo box y un comando es el que inserta renglones

en hoja 1, coloque un codigo para que me agregue un color dependiendo el
criterio tipo:
Select Case Target
Case "Orden Vencida"
.ColorIndex = 3 'rojo
aqui es donde truena y me sale el debug con el sig mensaje
Run-Time error '13' type mismatch
al ejecutar el comando insert
todo me funciona y coloca los datos en cada celda y me pone correcto el color
solo que ahi al insertar me truena y me marca el error antes mensionado
espero haber sido claro con mi problema

se los agradeceria si me pueden ayudar pero de antemano gracias
 

Leer las respuestas

#1 Benito Merino
08/06/2006 - 22:30 | Informe spam
Hola.

Prueba este código:

Select Case Target.Value
Case "Orden Vencida"
Target.Interior.ColorIndex = 3 'rojo
End Select

Saludos,

Benito


Efrain wrote:
Espero me puedan Sacar de una Duda ya que no desifro el porque..
mi problema se presenta en una hoja de excel la cual cree un forma
con texbox y combo box y un comando es el que inserta renglones

en hoja 1, coloque un codigo para que me agregue un color dependiendo el
criterio tipo:
Select Case Target
Case "Orden Vencida"
.ColorIndex = 3 'rojo
aqui es donde truena y me sale el debug con el sig mensaje
Run-Time error '13' type mismatch
al ejecutar el comando insert
todo me funciona y coloca los datos en cada celda y me pone correcto el color
solo que ahi al insertar me truena y me marca el error antes mensionado
espero haber sido claro con mi problema

se los agradeceria si me pueden ayudar pero de antemano gracias

Preguntas similares