INSERTAR FILA DE COLOR
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
|