Inicio de sesión

Nombre de usuario o e-mail

En línea

En este momento hay 0 usuarios y 111 invitados en línea.
pacomegia

Re: relleno de celdas

Bueno, se me ocurre una macro que recorra todas las celdas seleccionadas, compruebe si el color de relleno es blanco (número de color 2) y si es así, le quite el relleno (relleno color -4142)

Sub SinrellenoPorBlanco()
' Para cambiar las celdas con color blanco por celdas sin relleno 
   Dim celda As Range 
   For Each celda In Selection 
    If celda.Interior.ColorIndex = 2 Then
' el 2 es el código del color blanco 
     celda.Interior.ColorIndex = -4142 ' -4142 es el código del color de relleno de las celdas sin relleno 
    End If 
   Next
End Sub

no sé si esto resuelve tu problema

------ La potencia sin control no sirve de nada.
Power is nothing without control.

Contestar

  • Etiquetas HTML permitidas: <a> <b> <blockcode> <br> <cite> <code> <dd> <div> <dl> <dt> <em> <h1> <h2> <h3> <h4> <hr> <i> <img> <li> <ol> <p> <strong> <sub> <sup> <table> <td> <tr> <ul>
  • Los enlaces a vídeos de Youtube y Google video se convierten automáticamente en vídeos embebidos
Más información sobre opciones de formato

Si te gusta, compártelo


apúntate a nuestro newsletter

cargando...
Buscar en necesitomas.com