Números repetidos

Hola,

Muchas gracias.

De nada, Raul.

Me dá un error en:
.Offset(0, 2).Value = Application.Transpose(Direcciones)
Estoy usando la versión sin Dictionary.

Y como el codigo siguiente, funciona?

Daniel M.

Sub BuscarDuplicadasEnVariasHojas()
Dim Hoja As Worksheet, C As Range, Resultados As Range
Dim res As Variant ' resultado de Match()
Dim j As Long, i As Long, k As Long
Dim LLaves As Variant, Veces As Variant, Direcciones As Variant

Set Resultados = Worksheets("HojaSumar").Range("A2:C10000")

j = 0
For Each Hoja In ActiveWorkbook.Worksheets
Select Case Hoja.Name
Case "HojaSumar", "Perez", "Sanchez" 'etc.
Case Else
For Each C In Intersect(Hoja.Range("A:D"), Hoja.UsedRange)
' cambia el rango si lo quieres
If Not IsError(C.Value) Then ' sin celda con error
If C.Value <> "" Then ' sin celda vacia
If j = 0 Then
res = CVErr(xlErrNA)
ReDim LLaves(1 To 1)
ReDim Veces(1 To 1)
ReDim Direcciones(1 To 1)
Else
res = Application.Match(C.Value, LLaves, 0)
End If
If IsError(res) Then
j = j + 1
ReDim Preserve LLaves(1 To j)
ReDim Preserve Veces(1 To j)
ReDim Preserve Direcciones(1 To j)
LLaves(j) = C.Value
Veces(j) = 1
Direcciones(j) = LaDireccion(C)
Else
Veces(res) = Veces(res) + 1
Direcciones(res) = Direcciones(res) & " " &
LaDireccion(C)
End If
End If
End If
Next C
End Select
Next Hoja

'Monstrar resultados
Resultados.ClearContents ' borrar resultados viejos
'
k = 1
For i = 1 To j
If Veces(i) > 1 Then
Resultados(k, 1) = LLaves(i)
Resultados(k, 2) = Veces(i)
Resultados(k, 3) = Direcciones(i)
k = k + 1
End If
Next i


Resultados.Resize(k, 3).Sort key1:=Resultados.Cells(1, 2), order1:=xlDescending,
header:=xlNo

End Sub


Private Function LaDireccion(C As Range) As String
Dim s As String, i As Integer
s = C.Address(False, False, xlA1, True)
i = InStr(1, s, "]")
LaDireccion = Mid(s, i + 1)
End Function

Muchiiiiiiiiiiiiiiiiisimas gracias al igual que al amigo KL que siempre se
intereso

Un placer.

Solo tuve que hacerle una correcion y es agregar:
Worksheets("HojaSumar").Range("A2:B10000").ClearContents

Pues si, creo q se nos habia escapado este detalle.

Felices fiestas!
KL

Hola,

> Solo tuve que hacerle una correcion y es agregar:
> Worksheets("HojaSumar").Range("A2:B10000").ClearContents

Pues si, creo q se nos habia escapado este detalle.

Hay la fila:

Resultados.ClearContents

que lo hace (o yo no entendi bien ==> muy posible :-) ).

Saludos,

Daniel M.

Pues si, creo q se nos habia escapado este detalle.

Hay la fila:

Resultados.ClearContents

Si, tienes razon :-( Me apresure a reconocer el error, pero en mi codigo yo
tambien habia incluido la linea :-)
RangoExtracto.CurrentRegion.ClearContents

Un abrazo,
KL

Para terminar con esto y para que quede MAS QUE BIEN,
me gustaría contar todas los número de la columna B en todas las hojas, por
supuesto que obviando las que no quiero.
probé:

Range("F9").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-8]C[-4]:R[291]C[-4])"
Range("F9").Select

pero solo me suma lo de la hoja "hojasumar"

Muchas gracias desde ya.

Saludos

Raul Z.
quisiera tener este resultado en la hoja "

"Daniel.M" escribió:

Hola,

> > Solo tuve que hacerle una correcion y es agregar:
> > Worksheets("HojaSumar").Range("A2:B10000").ClearContents
>
> Pues si, creo q se nos habia escapado este detalle.

Hay la fila:

Resultados.ClearContents

que lo hace (o yo no entendi bien ==> muy posible :-) ).

Saludos,

Daniel M.