Foro Excel

Te devuelveo el xls con una fórmula para identificar repetidos.

Te reomiendo que veas las demos de nuestros complementos (como dice la firma) existen funciones variadas y íšTILES.

Atte.

Hola anexo codigo para lo que necesitas

Sub repetidos()
Application.ScreenUpdating = False
Range("a2").Select
fila = 2
Do Until ActiveCell = Empty
Cells(fila, 1).Select
midir = ActiveCell.Address
paso = ActiveCell.Value
Range(ActiveCell.Offset(1, 0), Selection.End(xlDown)).Select
For Each x In Selection
If paso = x Then x.Offset(0, 1).Value = "Repetido" & midir ': MsgBox "Repetidos"
Next x
fila = fila + 1
Loop
Range("a2").Select
Application.ScreenUpdating = True
End Sub



Saludos

anotra ademas la direccion del primer dato que se repite

A ver esto

Lo siento - los tiempos de recalculo para los macros estan mal en el anexo de mi mensaje anterior. Aqui va la version corregida.

No cabe duda que nunca terminamos de aprender

Dim Unicos As New Collection
Unicos.Add c.Address, c.Text

With ws
Set rng = .Range(.Cells(2, col), _
.Cells(.Rows.Count, col).End(xlUp)) _
.SpecialCells(xlCellTypeConstants)
End With

Solo un dato que me parece curioso en esta parte del codigo:

For Each ws In ThisWorkbook.Worksheets
On Error GoTo Salida

Esta parte nos obliga a salir del bucle si la hoja se encuentra vacia o las celdas no contienen datos haciendo caso omiso de las hojas consecutivas.

Pero como siempre acertado en sus comentarios

Saludos

Hola

Buscando mas detalles sobre el codigo expuesto anteriormente me tope de casualidad con esto:

La función .SpecialCells(xlCellTypeBlanks) de VBA no funciona como se espera en Excel
http://support.microsoft.com/kb/832293/es

Sí­ntomas
Cuando crea una macro de Microsoft Visual Basic para Aplicaciones ( VBA ) que selecciona varios rangos no contiguos de un libro de Microsoft Excel que utiliza una expresión de VBA que es similar a las acciones siguientes que sólo se deberí­an producir en no contiguo, las celdas se producen en cada celda de la selección original en la hoja de cálculo:

expresión.SpecialCells(XlCellType).expresión XlCellType

Puede ser cualquier uno de los siguientes:
• xlCellTypeAllFormatConditions
• xlCellTypeAllValidation
• xlCellTypeBlanks
• xlCellTypeComments
• xlCellTypeConstants
• xlCellTypeFormulas
• xlCellTypeSameFormatConditions
• xlCellTypeSameValidation
• xlCellTypeVisible


Causa
Este comportamiento se produce si selecciona más de 8192 celdas no contiguas con su macro. Excel sólo admite un máximo de 8192 celdas no contiguas a través de macros de VBA.

opermty";p="29718 escribió:Solo un dato que me parece curioso en esta parte del codigo:

For Each ws In ThisWorkbook.Worksheets
On Error GoTo Salida

Esta parte nos obliga a salir del bucle si la hoja se encuentra vacia o las celdas no contienen datos haciendo caso omiso de las hojas consecutivas.

Gracias opermty, tienes razon. A ver este codigo corregido:

Código: Seleccionar todo

Sub Repetidos2()
    Dim Unicos As New Collection
    Dim ws As Worksheet
    Dim c As Range, rng As Range
    Dim col As String
   
    col = "A"
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        With ws
            Set rng = .Range(.Cells(2, col), _
                .Cells(.Rows.Count, col).End(xlUp)) _
                    .SpecialCells(xlCellTypeConstants)
        End With
        On Error GoTo 0
        If Not rng Is Nothing Then
            For Each c In rng
                On Error Resume Next
                Unicos.Add c.Address, c.Text
                If Err.Number <> 0 Then c.Offset(, 1) = "Repetido " _
                    & rng.Find(c, rng(1), , xlWhole).Address
            Next c
            Set Unicos = Nothing
            Set rng = Nothing
            i = 0
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

Hola opermty,

opermty";p="29719 escribió:La función .SpecialCells(xlCellTypeBlanks) de VBA no funciona como se espera en Excel
http://support.microsoft.com/kb/832293/es

Buen comentario. Es cierto - este es un problema (o limitacion) conocido de SpecialCells, aunque es bastante infrecuente el intentar trabajar con 8192 celdas no contiguas. Como ejemplo, en una columna donde las celdas llenas se alternan con las vacias (llena, vacia, llena, vacia, etc.) haria falta 16.384 filas para alcanzar el limite. En las situaciones reales esta distribucion tan perfecta es posible, pero poco probable especialmente cuando se trata de bases de datos donde el codigo (ID) es obligatorio.

Aqui voy yo , preparar la muñeca chochona que ahora si que me la llevo o me estrello como el Raikkonen que todo es posible .

Hola jbf99,

Lo de siempre - dos noticias: una buena y otra no tanto...

Vaya , me han fallado los neumaticos de lluvia.

El rangecalc ese me daba que la UDF tenia una velocidad de recalculo era similar a la formula normal , se me habria escacharrao el cuentakilometros.

Hola jbf99,

jbf99";p="29769 escribió:El rangecalc ese me daba que la UDF tenia una velocidad de recalculo era similar a la formula normal

No sera que ejecutas el rangecalc en modo de recalculo en Automatico? Si el recalculo esta en automatico, las formulas no volatiles (que es el caso de todas las que se han propuesto) no recalculan y dan un tiempo demasiado bueno Prueba poner el recalculo en manual.

SEÑOR MARIANO,
CON KL USTED TIENE LA SOLUCIí“N PECFECTA CUANDO DE MACROS DE TRATA

RECOMIENDO SU APLICABILIDAD EN EL TEMA