Problema escribiendo Macro
Estimados expertos,
Estoy escribiendo una macro donde quiero que se recorra una columna hasta una celda final, y donde, si el contenido de cada celda es like "Total*", pinte la fila entera de un color determinado.
Cuando la pruebo, solo pinta la primera que encuentra.
Si utilizo el mismo procedimiento, pero pidiendo que pinte solo la celda activa, funciona correctamente. La verdad, no entiendo como se soluciona.
Te paso el código esperando me haya explicado bien.
Sub yyy()
Range("A1").Select
Do While ActiveCell.Value <> "Fin de Planilla"
If ActiveCell.Value Like "Total*" Then
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 34
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Espero puedas ayudarme,
Muchísimas gracias !
Estoy escribiendo una macro donde quiero que se recorra una columna hasta una celda final, y donde, si el contenido de cada celda es like "Total*", pinte la fila entera de un color determinado.
Cuando la pruebo, solo pinta la primera que encuentra.
Si utilizo el mismo procedimiento, pero pidiendo que pinte solo la celda activa, funciona correctamente. La verdad, no entiendo como se soluciona.
Te paso el código esperando me haya explicado bien.
Sub yyy()
Range("A1").Select
Do While ActiveCell.Value <> "Fin de Planilla"
If ActiveCell.Value Like "Total*" Then
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 34
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Espero puedas ayudarme,
Muchísimas gracias !
Respuesta de Elsa Matilde
1
Estimada Elsa, antes que nada gracias por tu tiempo y conocimientos.
Te cuento que en el caso real donde estoy trabajando, la información comienza en la celda "E6" recorriendo la columna "E". Probé comenzando en la celda "A1" y es como vos bien decís, funciona correctamente. Pero sigo sin poder entender porque no funciona si la rutina comienza a partir de la celda "E6". Espero puedas ayudarme. Saludos, Diego.
Te cuento que en el caso real donde estoy trabajando, la información comienza en la celda "E6" recorriendo la columna "E". Probé comenzando en la celda "A1" y es como vos bien decís, funciona correctamente. Pero sigo sin poder entender porque no funciona si la rutina comienza a partir de la celda "E6". Espero puedas ayudarme. Saludos, Diego.
En ese caso además de reemplazar la instrucción inicial de selección por esta:
Range("E6").select
Debes agregar otra que te vuelve a posicionar en la col E, porque al colorear se queda en A:
Selection.Interior.ColorIndex = 34 'esta ya está. A continuación agregá
Cells(Selection.Row, 5).Select
El resto queda igual.
Saludos
Elsa
PD) Manuales Introducción a Macros y 400MacrosPlus desde:
http://es.geocities.com/lacibelesdepunilla/manuales
Range("E6").select
Debes agregar otra que te vuelve a posicionar en la col E, porque al colorear se queda en A:
Selection.Interior.ColorIndex = 34 'esta ya está. A continuación agregá
Cells(Selection.Row, 5).Select
El resto queda igual.
Saludos
Elsa
PD) Manuales Introducción a Macros y 400MacrosPlus desde:
http://es.geocities.com/lacibelesdepunilla/manuales
