Tengo un problema con la macros ..me ayudas
For Each celda In Range("D2:d" & Range("d10000").End(xlUp).Row)
If celda.Interior.ColorIndex = 6 Then
Total = Total + 1
lista = lista & "," & celda.Address(False, False)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
MsgBox "Hay un total de: " & Total & " y Están ubicadas en las siguientes direcciones:" & Chr(13) & lista
la verdad es q es sobre el ejemplo de contar los de color amarillo
pero me surgió hace un momento un problema
cuando no hay duplicados se me cuelga es xq esta buscando hasta 65000(final)
tengo una idea o dame otra mejor...
si con el imputbox digitar el rango para q no vaya hasta el final 65000
o cambiar un poco el código para q cuando no haiga de color amarillo me salga un msbox no hay datos..gracias
luis...
saludos
1 respuesta
La macro que te he enviado es imposible que falle, te explico:
Está preparada para analizar el rango comprendido entre la celda A2 y la última celda con datos de la columna A, por lo que es imposible que se vaya hasta la fila 65000.
asha.. ahi esta el problema entonces..
es q en la columna a todavía no tiene datos..tengo q quitar primero datos duplicados..
es posible q vaya hasta la ultima celda con datos pero de la columna d
gracias..............mil gracias
Entonces la macro es así.
Sub ejemplo()
'por luismondelo
For Each celda In Range("d2:d" & Range("d65000").End(xlUp).Row)
If celda.Interior.ColorIndex = 6 Then
Total = Total + 1
lista = lista & "," & celda.Address(False, False)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
MsgBox "Hay un total de: " & Total & " y Están ubicadas en las siguientes direcciones:" & Chr(13) & lista
End Subrecuerda finalizar la consulta
