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 puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

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

1RESUELTO Macro "Se requiere un objeto" el 24/08/18, 02:31 pm

ORIONIRIA


Hola, qué tal!
Tengo el siguiente código, pero al ejecutarlo me dice que requiero seleccionar un bojeto

qué hice mal

Sub Ocultarceldasenrojo()


For Each cell In Range("A6:A79")

If Interior.ColorIndex = 3 Then
EntireRow.Hidden = True

End If

If Interior.ColorIndex = 2 Then
EntireRow.Hidden = False

End If



Next
End Sub


graaciaas!

2RESUELTO Re: Macro "Se requiere un objeto" el 24/08/18, 10:10 pm

Igtelo

avatar
Falta el cell.

Dice: If Interior.ColorIndex = 3 Then

Debe decir: if cell.interior.colorindex= 3 then

Los objetos son cualquier elemento de Excel tales como: celdas, rangos, hojas libros, etc. Cuando te marca el error te aparece la ventana de ayuda, aprovéchala y lee lo que dice.

Saludos
Ignacio Téllez

3RESUELTO Re: Macro "Se requiere un objeto" el 28/08/18, 11:38 am

hrios


Try it:

Sub Ocultarceldasenrojo()

Dim rng As Range: Set rng = Application.Range("A6:A79")
Dim cel As Range

For Each cel In rng.Cells

If cel.Interior.ColorIndex = 3 Then cel.EntireRow.Hidden = True
If cel.Interior.ColorIndex = 2 Then cel.EntireRow.Hidden = False

Next
End Sub

4RESUELTO Re: Macro "Se requiere un objeto" el 02/09/18, 01:22 am

Igtelo

avatar
Resuelto y cierro.
Gracias hrios por tu participación y tiempo.

Saludos
Ignacio Téllez

Contenido patrocinado


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.