Ver Mensaje Individual
  #5 (permalink)  
Antiguo 28/12/2009, 08:55
Avatar de cmarti
cmarti
 
Fecha de Ingreso: noviembre-2003
Ubicación: Buenos Aires - Argentina
Mensajes: 442
Antigüedad: 20 años, 6 meses
Puntos: 1
Respuesta: Excel VBA elementos repetidos

Voy a ser un poquito egoísta si me lo permiten. Por lo gral, cuando uno "pide" o pregunta como hacer una cosa, más espera un código que sugerencias. No puedo dejar de agradecer ambas pero para ser más realistas el código es lo que más pronto a uno lo saca del paso. Es por eso que posteé en Visual Basic y no en Aplicaciones (Excel) sin embargo, en un intento de demostrar mi agradecimiento por el interés de c/u de Uds. les transcribo el código de un amigo que me sirvió para mi cometido el cual por cierto es saber cuantas veces se repite un item en la columna A devolviendo esa información en la columna B y C. En B el nombre del item que se repite y en C las veces que se repite.

Aquí el código (Nota) la columna A DEBE TENER UN TITULO SI O SI.
Código PHP:
Sub Prueba()
    
With Range("A1"Range("A" Rows.Count).End(xlUp))
        
uf = .Rows.Count
        
.AdvancedFilter 2, , Range("B1"), 1
    End With
    With Range
("B2"Range("B" Rows.Count).End(xlUp))
        
On Error Resume Next
        
.SpecialCells(4).Delete
        With 
.Offset(, 1)
            .
Formula "=COUNTIF(R2C1:R" uf "C1,RC[-1])"
            
.Value = .Value
        End With
    End With
End Sub 
Muchas gracias a todos. Espero le sirva a alguien más.
__________________
When all else is lost the future still remains.