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

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


Rodrigo Ferreira


"Pepito" escreveu na mensagem
ups.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

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

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

On 16 abr, 12:01, "Rodrigo Ferreira" wrote:
Selection.Range("B" & i + 1 & ":F" & i + 1).Interior.ColorIndex = 5

--

Rodrigo Ferreira

"Pepito" escreveu na mensagemnews:1176739903.931095.132830@p77g2000hsh. googlegroups.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- Ocultar texto de la cita -

- 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