Visual Basic para Aplicaciones - Macro para eliminar

Life is soft - evento anual de software empresarial
   
Vista:

Macro para eliminar

Publicado por Bennet Bent Abrahams bennetbent@gmail.com (3 intervenciones) el 18/10/2011 17:57:03
Muy buenos días a todos, de ante mano mil gracias por su colaboración:
en una hoja de excel en el rango A1:A200, deseo con una macro eliminar sólo las celdas con fuente de color azul.

He intentado con éste código pero no me funciona.

WorkSheets(datos).Activate
cells(A1:A200).Font.color=Vbblue
Cells.Clearcontents

S@lu2...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Macro para eliminar

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 18/10/2011 20:04:34
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub DeleteBlue()
    On Error Resume Next
    Range("A1").Activate
    Set r = ActiveCell.CurrentRegion
    Set c = ActiveCell.EntireColumn
    Set rng = Intersect(r, c)
    flg = False
    For Each cell In rng
        If cell.Font.Color = VBA.vbBlue Then
            If flg = False Then
                Set delrng = cell.EntireRow
                flg = True
            Else
                Set delrng = Union(delrng, cell.EntireRow)
            End If
        End If
    Next
    delrng.Delete
End Sub


Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro para eliminar

Publicado por Bennet Bent (3 intervenciones) el 22/10/2011 17:23:45
Hola JuanC:
Gracias por tú atneción, per con éste código que me envías se me presenta el sgte. inconveniente:
Al ejecutar la macro, primero, si hay alguna celda vacía en el rango no fucniona, segundo, cuando se elimina lo solicitado también elimina todo el resto de la fila.

S@lu2...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Macro para eliminar

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 22/10/2011 17:29:13
simplemente deberías modificarlo a tu antojo...
no es nada de otro mundo...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro para eliminar

Publicado por George Luis (1 intervención) el 27/10/2011 05:18:46
1
2
3
4
5
6
7
8
9
10
11
Sub color_relleno()
For Each cell In Range("a1:a5")
    If cell.Interior.ColorIndex = 23 Then
        cell.Delete
    End If
Next
End Sub
 
Function indice_color(celda) As Integer
='editor_indent'>indice_color = celda.Interior.ColorIndex
End Function


Aqui va una posible solucion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro para eliminar

Publicado por Bennet Bent (3 intervenciones) el 04/11/2011 14:22:36
A B C D
1 X Azul
2 X Negro
3 X "
4 X Azul
5 X "

Hola george gracias por tu ayuda, pero no me ha funcionado, aquí te dejo más o menos el esquema de la hoja de cálculo, la idea es que en el rango especificado, poder borrar lo que está an azul sin que se borre lo que está en fuente negra.

Gracias..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro para eliminar

Publicado por Jhonatan (1 intervención) el 16/02/2016 06:03:07
Probe y esto me funciono a mi, solo cambia el rango a lo que necesites.
Saludos..


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub clean()
Application.ScreenUpdating = False
Application.EnableEvents = False
 
    Range("a1").Activate
    Set Rng = Range("a1:bn200")
 
    For Each cell In Rng
        If cell.Font.Color = VBA.vbBlue Then
           cell.Select
           Selection.ClearContents
        End If
 
    Next
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar