UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

jovalcon


Buenas tardes,

he conseguido crear una maco en la cual si la celda >0 y contiene color, que elimine el color, necesito que elimine el color y también el comentario interno que contiene la celda y eso no lo consigo.

por favor si me pudiera ayudar alguien?

Muchas gracias como siempre.

adjunto archivo.

saludos//
Archivos
Al marcar quitar color.zip
No tienes los permisos para descargar los archivos.
(13 KB)

Igtelo


Hola jovalcon.

Con ClearComments lo obtienes.
Te recomiendo utilices el grabador de macros, éste te facilita obtener las instrucciones, luego lo adaptas a tu código y borra el módulo que te creó.

Saludos
Ignacio Téllez

jovalcon


Hola Ignacio,

muchas gracias por tu aportación.

adjunto código por si alguien le sirviera.

Private Sub worksheet_Change(ByVal target As Range)
On Error Resume Next
If Union(target, Range("A3:A102")).Address = Range("A3:A102").Address Then
Range("A3:A102").SpecialCells(xlCellTypeBlanks).In terior.ColorIndex = 0
If target = Empty Then target.Interior.ColorIndex = 4
If target <> Empty Then target.Interior.ColorIndex = 0
If target <> Empty Then target.ClearComments
End If
Range("A3:A102").Borders.LineStyle = xlContinuous
Range("A3:A3").Borders(xlEdgeTop).Weight = xlMedium
Range("A3:A102").Font.Name = "Arial"
Range("A3:A102").Font.Size = 10
End Sub

saludos//

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.