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

--

Rodrigo Ferreira


"Pepito" escreveu na mensagem
oups.com...
On 16 abr, 10:29, "Rodrigo Ferreira" wrote:
...
Selection.Rows(i).EntireRow.Insert
Selection.Rows(i + 1).Interior.ColorIndex = 5
...

Rodrigo Ferreira

"Pepito" escreveu na
ooglegroups.com...



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- Ocultar texto de la cita -

- 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