Condición de acuerdo al contenido de celdas
Publicado por Rodrigo (15 intervenciones) el 13/07/2006 18:02:08
Tengo una macro que me imprime ciertos palabras en excel de acuerdo al OptionButton que se escoja en un formulario. Mi problema es que necesito evitar que en dos columnas contiguas se imprima la misma palabra, por ejemplo:
A B
1 MOLDEO OXIDACION
2 MOLDEO REDUCCION
3 MOLDEO MOLDEO
4 MOLDEO MOLDEO
En este caso en la columna B, a contar de la fila 3, se empieza a imprimir la palabra MOLDEO. Eso es lo que actualmente hace la macro, pero lo que necesito es que cuando de REDUCCION vaya a pasar a MOLDEO (en la columna B) se detecte que en la columna A ya está la palabra MOLDEO y que en vez de esa palabra, imprima EN ESPERA hasta que en la culumna A se deje de imprimir la palabra MOLDEO. Para lograr esto hice el siguiente código, el cual no me ha dado resultado ya que me sigue imprimiendo palabras iguales en ambas columnas:
For j = 3 To 3 + caran
If Cells([j], [2]).Select = "En Carguio" Then
Cells([j], [1]).Select
ActiveCell.FormulaR1C1 = "En Espera"
Else
Cells([j], [4]).Select
ActiveCell.FormulaR1C1 = "En Carguio"
End If
Next j
Espero haberlo explicado claro, la verdad es que me complicó bastante graficar la situación. Ojalá puedan ayudarme, de antemano, muchas gracias.
A B
1 MOLDEO OXIDACION
2 MOLDEO REDUCCION
3 MOLDEO MOLDEO
4 MOLDEO MOLDEO
En este caso en la columna B, a contar de la fila 3, se empieza a imprimir la palabra MOLDEO. Eso es lo que actualmente hace la macro, pero lo que necesito es que cuando de REDUCCION vaya a pasar a MOLDEO (en la columna B) se detecte que en la columna A ya está la palabra MOLDEO y que en vez de esa palabra, imprima EN ESPERA hasta que en la culumna A se deje de imprimir la palabra MOLDEO. Para lograr esto hice el siguiente código, el cual no me ha dado resultado ya que me sigue imprimiendo palabras iguales en ambas columnas:
For j = 3 To 3 + caran
If Cells([j], [2]).Select = "En Carguio" Then
Cells([j], [1]).Select
ActiveCell.FormulaR1C1 = "En Espera"
Else
Cells([j], [4]).Select
ActiveCell.FormulaR1C1 = "En Carguio"
End If
Next j
Espero haberlo explicado claro, la verdad es que me complicó bastante graficar la situación. Ojalá puedan ayudarme, de antemano, muchas gracias.
Valora esta pregunta


0