INSERTAR FILA DE COLOR

[Pepito]

Hola :

Tengo una rutina en VBA el cual, su funcion es insertar una fila
en blanco, si en un rango se encuentra una celda vacia, deseo
insertar la fila pero que la ponga de color azul, seria de mucha
ayuda si me indicaran que lineas modificar.

el codigo es el siguiente :

Sub Borrar_fila()
Dim i As Long

'We turn off calculation and screenupdating to speed up the macro.
With Application
' .Calculation = xlCalculationManual
.ScreenUpdating = False

'We work backwards because we are deleting rows.
For i = Selection.Rows.Count To 1 Step -1

If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Insert
End If

Next i
.ScreenUpdating = True
End With
End Sub

 

[Rodrigo Ferreira]

....
Selection.Rows(i).EntireRow.Insert
Selection.Rows(i + 1).Interior.ColorIndex = 5
....


Rodrigo Ferreira

 

[Pepito]

...
Selection.Rows(i).EntireRow.Insert
Selection.Rows(i + 1).Interior.ColorIndex = 5
...

Rodrigo Ferreira

"Pepito" <[email protected]> escreveu na mensagem










- Mostrar texto de la cita -

Hola Rodrigo :

Gracias por tu respuesta, ya probe la solucion que enviaste y quiero
comentarte
que funciona parcialmente ya que solo se pone color en la celda que
esta vacia,
habra alguna manera de extender el color a 3 celdas mas a la derecha
(B1:F1) ,se que es mucho
pedir, pero si tienes alguna sugerencia te lo agradecere mucho

Jose Medina

 

[Rodrigo Ferreira]

Selection.Range("B" & i + 1 & ":F" & i + 1).Interior.ColorIndex = 5

 

[Pepito]

Selection.Range("B" & i + 1 & ":F" & i + 1).Interior.ColorIndex = 5

--

Rodrigo Ferreira

"Pepito" <[email protected]> escreveu na mensagem






- Mostrar texto de la cita -

Hola Rodrigo:

Ya probe tu codigo, y funciona a la perfeccion..
muchas gracias

Recibe un saludo Jose Medina

Guadalajara, Jalisco Mexico