** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Cómo eliminar datos duplicados con macro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCómo eliminar datos duplicados con macro

 Responder Responder
Autor
Mensaje
angell.h90 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 22/Enero/2014
Localización: peru
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Tema: Cómo eliminar datos duplicados con macro
    Enviado: 07/Febrero/2014 a las 22:00
10067205818
GONZALES PONCE BERTHA VIOLETA 01 17/01/2014 Improcedente por I/E S/. 68.00 S/. 0.00 S/. 0.00 130023426324 19/11/2013 52100
10067205818 GONZALES PONCE BERTHA VIOLETA 02 17/01/2014 Improcedente por I/E S/. 98.00 S/. 0.00 S/. 0.00 130023426324 19/11/2013 53100
10067205818 GONZALES PONCE BERTHA VIOLETA 03 17/01/2014 Improcedente por I/E S/. 68.00 S/. 30.00 S/. 30.00 130023426324 19/11/2013 52100
10067205818 GONZALES PONCE BERTHA VIOLETA   04 17/01/2014 Improcedente por I/E S/. 98.00 S/. 0.00 S/. 0.00 130023426324 19/11/2013 53100
10067205818 GONZALES PONCE BERTHA VIOLETA 05 17/01/2014 Improcedente por I/E S/. 68.00 S/. 0.00 S/. 0.00 130023426324 19/11/2013 52100
10067205818 GONZALES PONCE BERTHA VIOLETA 06 17/01/2014 Improcedente por I/E S/. 98.00 S/. 0.00 S/. 0.00 130023426324 19/11/2013 53100
este es mi cuadro y quiero generar plantilla con registros unicos(ruc y tributo(53100,52100)) y en cada plantilla  que serian 2, ingresar los duplicados por ruc y tributo segun corresponda...
 
 
jeanette
Arriba
-Marta- Ver desplegable
Moderadora
Moderadora
Avatar

Unido: 08/Septiembre/2005
Localización: Venus
Estado: Sin conexión
Puntos: 2970
Enlace directo a este mensaje Enviado: 07/Febrero/2014 a las 23:09
.......y que es lo que llevas hecho?, donde fallas?, quieres que te lo hagamos nosotros?

Arriba
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Enviado: 09/Febrero/2014 a las 03:08
Podrías utilizar Select Distinct o Select DistinctRow en una consulta... habría que ver porque no aportas muchos datos de lo que quieres.
"To VBA or not to VBA... that's the question" DFP
Arriba
angell.h90 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 22/Enero/2014
Localización: peru
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 10/Febrero/2014 a las 21:50

Sub Borra_Duplicados()
Hoja1.Activate
datos = Worksheets("Datos").Cells(65536, 1).End(xlUp).Row

 For fila = 5 To datos
    Range(Hoja1.Cells(fila, 1), Hoja1.Cells(500, 30)).Select
    ActiveSheet.Range("$A$4:$AD$137").RemoveDuplicates Columns:=Array(3, 16), _
        Header:=xlYes
   
 Next
 
 End Sub

mi procedimiento me elimina los duplicados :) y me deja con valores unicos , lo que quiero es que no me elimine sino que me copie eso valores unicos que esos valores unicos se creen en cada Hoja.
jeanette
Arriba
angell.h90 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 22/Enero/2014
Localización: peru
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 10/Febrero/2014 a las 21:57

Estoy aprendiendo! y deseo adquirir mas conocimento en VBA ahora trabajo con el 6.0. Macros. Lamp

jeanette
Arriba
Adrian05 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 28/Noviembre/2013
Localización: Chamical-LR-ARG
Estado: Sin conexión
Puntos: 248
Enlace directo a este mensaje Enviado: 11/Febrero/2014 a las 00:39
Hola, cñodigo ayuda para modificar a sus necesidades:

Eliminar Repetidos
Solo Excel 2007 y Superiores
Sub QuitarRepetidos()
    ActiveSheet.Range("A1:A" & Range("A" & _
    Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Arriba
angell.h90 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 22/Enero/2014
Localización: peru
Estado: Sin conexión
Puntos: 10
Enlace directo a este mensaje Enviado: 11/Febrero/2014 a las 15:40
Me elimina Datos Duplicados
 
Sub Borra_Duplicados()
Hoja1.Activate
datos = Worksheets("Datos").Cells(65536, 1).End(xlUp).Row
        For Fila = 5 To datos
           Range(Hoja1.Cells(Fila, 1), Hoja1.Cells(500, 30)).Select
           ActiveSheet.Range("$A$4:$AD$137").RemoveDuplicates Columns:=Array(3, 16), _
               Header:=xlYes
        Next
 End Sub
 
Me crea hojas con todos los valores de mi hoja DATOS.
Sub crear_hojas()
Dim MiMatriz As Variant
Z = Sheets("Datos").Range("c5").End(xlDown).Row
    MiMatriz = Sheets("Datos").Range("c5:c" & Z)
    'ubound sirve para indicar la ultima posicion de la matriz
    For i = 1 To UBound(MiMatriz)
nombrehoja = Hoja1.Cells(i + 4, 3).Value & ". " & Trim(Hoja1.Cells(i + 4, 16).Value)
Hoja3.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nombrehoja
Next i
Hoja1.Activate
End Sub
* lo que se desea es crear hojas con valores unicos de hoja DATOS, sin eliminar los registros de la hoja DATOS , solo detectar valores unicos, no eliminar...
jeanette
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5462
Enlace directo a este mensaje Enviado: 12/Junio/2014 a las 14:06
Parece un tema olvidado, pero no entiendo que consulte "Como eliminar datos..." y luego se queje de que los elimina.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable