Principales respuestas
CREAR MACRO PARA EXCEL

Pregunta
-
Respuestas
-
Chico, encontre un ejemplo hace dias de como sobrear las celdas esta en la ayuda en linea de excel
este es el codigo de la macro que proporciona microsoft, analizalo y creo que puedes construir lo que estas solicitando
Option Compare Text
Sub LoopRange2()
'Indique a VBA que la variable MyCell variable es un intervalo
Dim MyCell As Range
'Repita usando For Each…Next en la selección
For Each MyCell In Selection
If MyCell.Value Like "*Book*" Then
'Establezca el color de fondo de la celda como rojo
MyCell.Interior.ColorIndex = 3
ElseIf MyCell.Value Like "*Movie*" Then
'Establezca el color de fondo de la celda como verde
MyCell.Interior.ColorIndex = 4
ElseIf MyCell.Value = "" Then
'Elimine el color de fondo de la celda
MyCell.Interior.ColorIndex = xlNone
Else
'Establezca el color de fondo de la celda como azul
MyCell.Interior.ColorIndex = 5
End If
Next
End Sub- Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:01
Todas las respuestas
-
-
Chico, encontre un ejemplo hace dias de como sobrear las celdas esta en la ayuda en linea de excel
este es el codigo de la macro que proporciona microsoft, analizalo y creo que puedes construir lo que estas solicitando
Option Compare Text
Sub LoopRange2()
'Indique a VBA que la variable MyCell variable es un intervalo
Dim MyCell As Range
'Repita usando For Each…Next en la selección
For Each MyCell In Selection
If MyCell.Value Like "*Book*" Then
'Establezca el color de fondo de la celda como rojo
MyCell.Interior.ColorIndex = 3
ElseIf MyCell.Value Like "*Movie*" Then
'Establezca el color de fondo de la celda como verde
MyCell.Interior.ColorIndex = 4
ElseIf MyCell.Value = "" Then
'Elimine el color de fondo de la celda
MyCell.Interior.ColorIndex = xlNone
Else
'Establezca el color de fondo de la celda como azul
MyCell.Interior.ColorIndex = 5
End If
Next
End Sub- Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 15:01