registros duplicados en dos hojas

Hola AnsanVal,

Serías tan amable de enviarme copia del ejemplo pues he probado la macro
que expusistes y no me funciona, y creo que me puede servir para conciliar
esctractos bancarios.
Si es posible me lo envías a
Saludos


"Playa de Chilches - atención al cliente" escribió:

necesitaria el mismo ejemplo ya que tengo una situación parecida.
Me lo podrias enviar a:

gracias anticipada
Jose de Valencia


"AnSanVal" escribió en el mensaje
news:
> Hola Joan.
> Te he enviado un ejemplo. Super sencillo, pero espero que te ayude.
>
> Un saludo desde Tenerife (España).
>
>
> "JOAN BLANCH" escribió:
>
>> no me fuciona
>>
>> me puedes pasar un ejemplo en n un fichero excel a ?
>>
>> gracias
>>
>>
>>
>> "AnSanVal" escribió:
>>
>> > Hola JOAN.
>> > Una manera de hacerlo sería con una columna auxiliar (en este ejemplo
>> > columna B), con la fórmula:
>> > =SI(ESERROR(COINCIDIR(A2;Hoja2!$A$2:$A$100;0));0;1) ' (en cada fila
>> > con
>> > datos de la hoja1).
>> > =SI(ESERROR(COINCIDIR(A2;Hoja1!$A$2:$A$100;0));0;1) ' (en cada fila
>> > con
>> > datos de la hoja2).
>> >
>> > Luego copias/pegas el siguiente código en un módulo VBA, el cual (al
>> > ejecutarlo), hace lo que pides.
>> >
>> > Sub SeparaRegistros()
>> >
>> > Dim fila1 As Integer
>> > Dim fila2 As Integer
>> >
>> > ' Copia los repetidos a hoja 3.
>> > fila1 = 2 ' Hoja1.
>> > fila2 = 2 ' Hoja3.
>> > Do While Sheets(1).Cells(fila1, 1).Value > ""
>> > If Sheets(1).Cells(fila1, 2) = 1 Then
>> > Sheets(3).Cells(fila2, 1) = Sheets(1).Cells(fila1, 1)
>> > fila2 = fila2 + 1
>> > End If
>> > fila1 = fila1 + 1
>> > Loop
>> >
>> > ' Copia los no repetidos de hoja 1, a hoja 4.
>> > fila1 = 2 ' Hoja1.
>> > fila2 = 2 ' Hoja4.
>> > Do While Sheets(1).Cells(fila1, 1) > ""
>> > If Sheets(1).Cells(fila1, 2) = 0 Then
>> > Sheets(4).Cells(fila2, 1) = Sheets(1).Cells(fila1, 1)
>> > fila2 = fila2 + 1
>> > End If
>> > fila1 = fila1 + 1
>> > Loop
>> >
>> > ' Copia los no repetidos de hoja 2, a hoja 5.
>> > fila1 = 2 ' Hoja2.
>> > fila2 = 2 ' Hoja5.
>> > Do While Sheets(2).Cells(fila1, 1) > ""
>> > If Sheets(2).Cells(fila1, 2) = 0 Then
>> > Sheets(5).Cells(fila2, 1) = Sheets(2).Cells(fila1, 1)
>> > fila2 = fila2 + 1
>> > End If
>> > fila1 = fila1 + 1
>> > Loop
>> >
>> > End Sub
>> >
>> > Espero que te sirva de ayuda.
>> > Un saludo desde Tenerife (España).
>> >

Hola Jose, Te he enviado el ejemplo que pides, e igual hice con ricard. Con
el de ricard no ha habido problema pero con el tuyo, me han notificado el
siguiente error desde el servidor:
[SMTP:]: The message could not be delivered
because the domain name (NOSPAMarrakis.es) does not appear to be registered.

¿normalmente te funciona esta dirección?. Yo escribí:


Si hay algo incorrecto dímelo.
Un saludo desde Tenerife (España).

"Playa de Chilches - atención al cliente" escribió:

necesitaria el mismo ejemplo ya que tengo una situación parecida.
Me lo podrias enviar a:

gracias anticipada
Jose de Valencia

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Apuesto lo que sea a que sobran las mayúsculas

SALUDOS.
Julián-Valencia-España

"AnSanVal" escribió en el mensaje
news:

Hola Jose, Te he enviado el ejemplo que pides, e igual hice con ricard.
Con
el de ricard no ha habido problema pero con el tuyo, me han notificado el
siguiente error desde el servidor:
[SMTP:]: The message could not be delivered
because the domain name (NOSPAMarrakis.es) does not appear to be
registered.

¿normalmente te funciona esta dirección?. Yo escribí:


Si hay algo incorrecto dímelo.
Un saludo desde Tenerife (España).

"Playa de Chilches - atención al cliente" escribió:

necesitaria el mismo ejemplo ya que tengo una situación parecida.
Me lo podrias enviar a:

gracias anticipada
Jose de Valencia

Hola Julian. Creo que has ganado la apuesta :-). He probado sin mayúsculas y
no me han devuelto error.

Un saludo desde Tenerife (España).


"julian-vlc-sp" escribió:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Apuesto lo que sea a que sobran las mayúsculas

SALUDOS.
Julián-Valencia-España