Anónimo
Buscar varios registros duplicados
Hola Elsa: necesitaría que me indicara como localizar en una base varios registros duplicados, es decir:
Producto Contar
Bananas 38
Peras 25
Peras 41
Peras 38
Naranjas 40
Necesitaraia una sacar todos los registros de Peras con sus datos:
Peras 25
Peras 41
Peras 38
Le agradecería me indicara procedimiento.
Muchas gracias
Producto Contar
Bananas 38
Peras 25
Peras 41
Peras 38
Naranjas 40
Necesitaraia una sacar todos los registros de Peras con sus datos:
Peras 25
Peras 41
Peras 38
Le agradecería me indicara procedimiento.
Muchas gracias
1 respuesta
Respuesta de Elsa Matilde
1
Para esto podes utilizar Autofiltros.
Posiciónate en cualquier celda de títulos y desde menú Datos, Filtro, activá Autofiltros.
Ahora podes seleccionar el producto que quieras .
Si necesitás la tabla resultante en otro sitio, seleccioná las filas desde su encabezado, copiar. Seleccioná la primer celda de destino y pegar.
Posiciónate en cualquier celda de títulos y desde menú Datos, Filtro, activá Autofiltros.
Ahora podes seleccionar el producto que quieras .
Si necesitás la tabla resultante en otro sitio, seleccioná las filas desde su encabezado, copiar. Seleccioná la primer celda de destino y pegar.
Hola Elsa:
La tabla es grande, querría que poniendo una referencia en una celda (A1), imprimiera varias tablas, me gustaría saber si hay un procedimiento similar a BUSCARV, pero que selecionara todos los artículos iguales de la celda (A1). Para poder imprimir los albalanes.
Muchas Gracias.
La tabla es grande, querría que poniendo una referencia en una celda (A1), imprimiera varias tablas, me gustaría saber si hay un procedimiento similar a BUSCARV, pero que selecionara todos los artículos iguales de la celda (A1). Para poder imprimir los albalanes.
Muchas Gracias.
Manualmente podes utilizar la fila1 y 2 para títulos y criterio respectivamente, en un filtro avanzado que te permite copiar el rango obtenido en otro destino para luego imprimirlo.
La rutina adjunta tiene explicaciones como para que la ajustes a tu gusto y necesidad.
Entrás al Editor, insertás un módulo y allí la copias. Luego podes asignarla a un botón o desde menú Herramientas, Macros, seleccionarla de la lista y desde botón Opciones ingresar una letra para un atajo de teclado.
La rutina copia la tabla resultante en la hoja siguiente... tenerla disponible
Sub MacroFiltros()
'
' Macro desarrollada por Elsamatilde 4/5/08
'
ActiveSheet.Next.Cells.ClearContents 'ajustar hoja si no será la sgte
crit = ActiveSheet.Range("A1")
'seleccionar alguna celda de títulos (*)
Range("A2").Select
Selection.AutoFilter
'ajustar rango total a filtrar. Field:= indica la col a filtrar
ActiveSheet.Range("$A$2:$F$7").AutoFilter Field:=2, Criteria1:=crit
Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
'se copia en hoja siguiente - Ajustar
ActiveSheet.Next.Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintPreview 'reemplazar por la de impresión (PrintOut)
'vuelve a hoja
ActiveSheet.Previous.Select
'quita el autofiltro- Ajustar celda - ver(*)
ActiveSheet.Range("A2").AutoFilter
End Sub
Saludos y confirmá si esto es lo esperado
Elsa
Invertir en conocimientos produce los mejores intereses. B.Franklin
http://es.geocities.com/lacibelesdepunilla/manuales
La rutina adjunta tiene explicaciones como para que la ajustes a tu gusto y necesidad.
Entrás al Editor, insertás un módulo y allí la copias. Luego podes asignarla a un botón o desde menú Herramientas, Macros, seleccionarla de la lista y desde botón Opciones ingresar una letra para un atajo de teclado.
La rutina copia la tabla resultante en la hoja siguiente... tenerla disponible
Sub MacroFiltros()
'
' Macro desarrollada por Elsamatilde 4/5/08
'
ActiveSheet.Next.Cells.ClearContents 'ajustar hoja si no será la sgte
crit = ActiveSheet.Range("A1")
'seleccionar alguna celda de títulos (*)
Range("A2").Select
Selection.AutoFilter
'ajustar rango total a filtrar. Field:= indica la col a filtrar
ActiveSheet.Range("$A$2:$F$7").AutoFilter Field:=2, Criteria1:=crit
Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
'se copia en hoja siguiente - Ajustar
ActiveSheet.Next.Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintPreview 'reemplazar por la de impresión (PrintOut)
'vuelve a hoja
ActiveSheet.Previous.Select
'quita el autofiltro- Ajustar celda - ver(*)
ActiveSheet.Range("A2").AutoFilter
End Sub
Saludos y confirmá si esto es lo esperado
Elsa
Invertir en conocimientos produce los mejores intereses. B.Franklin
http://es.geocities.com/lacibelesdepunilla/manuales