Con procedimientos que te anexo puedes hacer lo que quieres, solo adapta el que mejor se acomode a tus datos...
'Aqui SI la celda contiene en alguna parte de su cotenido la palabra Total, no inserta la fila
Public Sub InsertarFilas_1()
Dim strValor As String
strValor = ActiveCell.Value
If InStr(1, strValor, "Total", vbTextCompare) > 0 Then
MsgBox "No se puede insertar fila"
Else
ActiveCell.EntireRow.Insert
End If
End Sub
'Aqui SI el color de fondo es Gris 25%, no inserta la fila
Public Sub InsertarFilas_2()
Dim lngColor As Long
lngColor = ActiveCell.Interior.ColorIndex
If lngColor = 15 Then
MsgBox "No se puede insertar fila"
Else
ActiveCell.EntireRow.Insert
End If
End Sub
'Aqui, SI la celda contiene la palabra Total "Y" el color del fondo es Gris25%, no inserta la fila
Public Sub InsertarFilas_3()
Dim strValor As String
Dim lngColor As Long
Dim lngRes As Long
strValor = ActiveCell.Value
lngColor = ActiveCell.Interior.ColorIndex
lngRes = InStr(1, strValor, "Total", vbTextCompare)
If lngColor = 15 And lngRes > 0 Then
MsgBox "No se puede insertar fila"
Else
ActiveCell.EntireRow.Insert
End If
End Sub
'Aqui, SI la celda contiene la palabra Total "O" el color del fondo es Gris25%, no inserta la fila
Public Sub InsertarFilas_4()
Dim strValor As String
Dim lngColor As Long
Dim lngRes As Long
strValor = ActiveCell.Value
lngColor = ActiveCell.Interior.ColorIndex
lngRes = InStr(1, strValor, "Total", vbTextCompare)
If lngColor = 15 Or lngRes > 0 Then
MsgBox "No se puede insertar fila"
Else
ActiveCell.EntireRow.Insert
End If
End Sub
'Ten cuidado con los tonos de grises que uses, estos son los valores para los diferentes grises en la paleta de colores estandar
'Gris 80% = 56
'Gris 50% = 16
'Gris 40% = 48
'Gris 25% = 15
Saludos desde México...
Mauricio Baeza
[email protected]Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.