¿Qué le ocurre a la macro que creé para Microsoft excel que sigue sin funcionar?
Que tal tengo una duda:
Revise la macro que me diste y le hice algunas modificaciones y quedo así:
Sub CopiarPorColorFondo()
Dim c As Range
Dim lin1 As Integer
lin1 = 1
Range("A1").Select
Selection.CurrentRegion.Select
For Each c In Range("A:A")
If c.INTERIOR.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Sheet2").Cells(lin1, 1)
lin1 = lin1 + 1
End If
Next
End Sub
Lo único que veo es que es muy lenta que puedo hacer.
Revise la macro que me diste y le hice algunas modificaciones y quedo así:
Sub CopiarPorColorFondo()
Dim c As Range
Dim lin1 As Integer
lin1 = 1
Range("A1").Select
Selection.CurrentRegion.Select
For Each c In Range("A:A")
If c.INTERIOR.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("Sheet2").Cells(lin1, 1)
lin1 = lin1 + 1
End If
Next
End Sub
Lo único que veo es que es muy lenta que puedo hacer.
1 respuesta
Respuesta de valedor
1