Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Formato condicional

25/01/2006 - 11:17 por navibel | Informe spam
Ayuda Hacer una pregunta
Hola amigos..

Con esta macro aplico formato condicional con más argumentos, pero
desearía me dijeseis como hago para que no me de error cada vez que
selecciono varias celdas, solo puedo insertar las letras de una en una
para que no me de error...O sea, si quiero poner una E en el rango
A1:C1, selecciono el rango y pongo E con Ctrl+intro, ya me da el error
y lo mismo si quiero eleiminar una fila entera, etc...

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target
Case "V"
.ColorIndex = 43
Case "PR"
.ColorIndex = 4
Case "R"
.ColorIndex = 3
Case "S"
.ColorIndex = 44
Case "E"
.ColorIndex = 50
Case Else
.ColorIndex = xlColorIndexNone
End Select
End With
End Sub

Saludos
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
25/01/2006 - 11:42 | Informe spam
Hola navibel,

Prueba el codigo que te pongo a continuacion.

Saludos,
KL

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Respuesta As Integer, celda As Range
If Target.Count > 10000 Then
Respuesta = MsgBox("Ha cambiado mas de 10.000 celdas." _
& Chr(13) & "La aplicacion de los formatos puede" _
& Chr(13) & "tardar unos minutos. Desea continuar?", _
vbCritical + vbYesNo)
If Respuesta = vbNo Then Exit Sub
End If
For Each celda In Target
With celda.Interior
Select Case celda
Case "V"
.ColorIndex = 43
Case "PR"
.ColorIndex = 4
Case "R"
.ColorIndex = 3
Case "S"
.ColorIndex = 44
Case "E"
.ColorIndex = 50
Case Else
.ColorIndex = xlColorIndexNone
End Select
End With
Next celda
End Sub

Preguntas similares

 

Busqueda sugerida :