Números repetidos

Raul,

Prueba una de estas.

Saludos,
KL

'Inicio Codigo
Sub test()
Dim nPrimeraHoja As String
Dim nUltimaHoja As String
Dim miRango As String

nPrimeraHoja = "Hoja1"
nUltimaHoja = "Hoja22"
miRango = "B1:B300"
miFormula = "=COUNT('" & nPrimeraHoja & ":" & _
nUltimaHoja & "'!" & miRango & ")"

Sheets("hojasumar").Range("F9").Formula = miFormula
End Sub

Sub test2()
Dim nPrimeraHoja As String
Dim nUltimaHoja As String
Dim miRango As String

nPrimeraHoja = "Hoja1"
nUltimaHoja = "Hoja22"
miRango = "B1:B300"
miFormula = "=COUNT('" & nPrimeraHoja & ":" & _
nUltimaHoja & "'!" & miRango & ")"

Sheets("hojasumar").Range("F9") = Evaluate(miFormula)
End Sub
'Fin Codigo

"Raul Z." wrote in message
news:

Para terminar con esto y para que quede MAS QUE BIEN,
me gustaria contar todas los numero de la columna B en todas las hojas,
por
supuesto que obviando las que no quiero.
probe:

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" escribio:

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.

Gracias KL.
La segunda andubo muy bien, ahora tengo un pequeñito problema por el que
tengo que agrupar al finar las hojas que no quiero sumar, que son las mismas
de los número repetidos, se puede asociar esta macro con la de repetidos y
que tome estos? se entiende?
Gracias
Raúl Z.

"KL" escribió:

Raul,

Prueba una de estas.

Saludos,
KL

'Inicio Codigo
Sub test()
Dim nPrimeraHoja As String
Dim nUltimaHoja As String
Dim miRango As String

nPrimeraHoja = "Hoja1"
nUltimaHoja = "Hoja22"
miRango = "B1:B300"
miFormula = "=COUNT('" & nPrimeraHoja & ":" & _
nUltimaHoja & "'!" & miRango & ")"

Sheets("hojasumar").Range("F9").Formula = miFormula
End Sub

Sub test2()
Dim nPrimeraHoja As String
Dim nUltimaHoja As String
Dim miRango As String

nPrimeraHoja = "Hoja1"
nUltimaHoja = "Hoja22"
miRango = "B1:B300"
miFormula = "=COUNT('" & nPrimeraHoja & ":" & _
nUltimaHoja & "'!" & miRango & ")"

Sheets("hojasumar").Range("F9") = Evaluate(miFormula)
End Sub
'Fin Codigo

"Raul Z." wrote in message
news:
> Para terminar con esto y para que quede MAS QUE BIEN,
> me gustaria contar todas los numero de la columna B en todas las hojas,
> por
> supuesto que obviando las que no quiero.
> probe:
>
> 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" escribio:
>
>> 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.
>>
>>
>>

La segunda andubo muy bien, ahora tengo un pequenito problema por el que
tengo que agrupar al finar las hojas que no quiero sumar, que son las
mismas
de los numero repetidos, se puede asociar esta macro con la de repetidos y
que tome estos? se entiende?

La verdad es q no mucho. ?Puedes explicarlo con un poco mas de detalle?

Saludos,
KL

Haber si soy claro en esta oportunidad K.L.
Te decía que la segunda opción fué la que funcionó bien.
El tema es que tengo que agrupar al final del libro las hojas q no quiero
sumar
por ej. tengo las hojas "pedro", "juan", "josé, "mariano", "claudio" pero
resulta q quiero sumar solo "pedro", "mariano", "claudio" entonces lo que
tengo que hacer es mover manualmente a "juan", "josé", para que lo macro tome
como primera hoja a "pedro" y como última a "claudio",
Hasta aquí bien?
Bueno, lo que preguntaba es si hay alguna forma de incluírlo en la macro de
los números repetidos, ya que las que hojas que no se deben sumar son las que
excluímos en:
Case "HojaSumar", "Perez", "Sanchez" 'etc.
Case Else
recuerdas ?

Y por último te decia que esta macro quiero que esté dentro de la macro de
números repetidos.

Espero haber sido claro
Muchas Gracias

Raúl Z.


"KL" escribió:

> La segunda andubo muy bien, ahora tengo un pequenito problema por el que
> tengo que agrupar al finar las hojas que no quiero sumar, que son las
> mismas
> de los numero repetidos, se puede asociar esta macro con la de repetidos y
> que tome estos? se entiende?

La verdad es q no mucho. ?Puedes explicarlo con un poco mas de detalle?

Saludos,
KL

Raul,

Ahora si! A ver, prueba el codigo de abajo. Ojo-no lo he probado, pero creo
q deberia funcionar. De todas formas me dices si hay problemas. He puesto
mis comentarios precedidos por "KL:".

Saludos,
KL

'Inicio Codigo-
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
Dim miRng As Range 'KL: variable para el rango a evaluar.
Dim Contador As Single 'KL: variable para la cuenta de valores.

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
'KL: Establece el rango a evaluar para la hoja.
Set miRng = Intersect(Hoja.Range("A:D"), _
Hoja.UsedRange).Offset(1, 0).Resize(rng.Rows.Count - 1)

'Actualiza la cuenta de valores para cada hoja.
Contador = Contador + WorksheetFunction.Count(miRng)

For Each C In miRng
' 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

'Mostrar los 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

'KL: Asigna la cuenta total de valores a
'la celda F9 de la hoja "hojasumar"
Sheets("hojasumar").Range("F9") = Contador
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
'Fin Codigo-

"Raul Z." wrote in message
news:

Haber si soy claro en esta oportunidad K.L.
Te decia que la segunda opcion fue la que funciono bien.
El tema es que tengo que agrupar al final del libro las hojas q no quiero
sumar
por ej. tengo las hojas "pedro", "juan", "jose, "mariano", "claudio" pero
resulta q quiero sumar solo "pedro", "mariano", "claudio" entonces lo que
tengo que hacer es mover manualmente a "juan", "jose", para que lo macro
tome
como primera hoja a "pedro" y como ultima a "claudio",
Hasta aqui bien?
Bueno, lo que preguntaba es si hay alguna forma de incluirlo en la macro
de
los numeros repetidos, ya que las que hojas que no se deben sumar son las
que
excluimos en:
Case "HojaSumar", "Perez", "Sanchez" 'etc.
Case Else
recuerdas ?

Y por ultimo te decia que esta macro quiero que este dentro de la macro de
numeros repetidos.

Espero haber sido claro
Muchas Gracias

Raul Z.


"KL" escribio:

> La segunda andubo muy bien, ahora tengo un pequenito problema por el
> que
> tengo que agrupar al finar las hojas que no quiero sumar, que son las
> mismas
> de los numero repetidos, se puede asociar esta macro con la de
> repetidos y
> que tome estos? se entiende?

La verdad es q no mucho. ?Puedes explicarlo con un poco mas de detalle?

Saludos,
KL