Saltar al contenido

pedrot

Miembros
  • Contador de contenido

    98
  • Unido

  • Última visita

  1. Contar Repetidos

    Saludos y gracias Excel_ente Gerson Todos excel_entes Gracias por poner tu nombre en el codigo, siempre sabre quien lo hizo. Si algun dia se hace un aporte se deberá colocar debajo: '************ by Gerson Pineda ************ '------------------ap. Pedro Tovar ------------------ Listo y gracias
  2. Contar Repetidos

    Saludos y gracias Excel_ente Gerson Revisaré y gracias de antemano. Nota: No se porque no pude montar el archivo. no se activaba el cuadro. ahora si se activa el cuadro de adjunto Va sin adjunto
  3. Contar Repetidos

    Buen dia, tarde o noche Excel_entes Ya resolví el problema (NO pude cargar el archivo) Sub Duplicados() '--- On Error Resume Next Set RngValores = Range([a3], [a10000].End(xlUp)) With Range([a3], [a10000].End(xlUp)) NVal = WorksheetFunction.Count(.Cells) + 2 End With Range("C3:D" & NVal).Clear Range("A3:A" & NVal).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C3" _ ), Unique:=True Set RngValores2 = Range([c3], [d10000].End(xlUp)) With Range([c3], [c10000].End(xlUp)) NVal2 = WorksheetFunction.Count(.Cells) + 2 End With Range("D3:D" & NVal2).Formula = "=COUNTIF(A$3:A$" & NVal & ",C3)" ActiveWorkbook.Worksheets("BaseCliente").Sort.SortFields.Clear ActiveWorkbook.Worksheets("BaseCliente").Sort.SortFields.Add Key:=Range( _ "D3:D" & NVal2), SortOn:=xlSortOnValues, Order:=xlDescending, _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("BaseCliente").Sort.SortFields.Add Key:=Range( _ "C3:C" & NVal2), SortOn:=xlSortOnValues, Order:=xlDescending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("BaseCliente").Sort .SetRange Range("C3:D" & NVal2) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
  4. Contar Repetidos

    Saludos de nuevo Resolvi una parte pero me falta ordenar los valores de C y D x la columna D falto el archivo ppp.xlsm
  5. Contar Repetidos

    Saludos de nuevo Resolvi una parte pero me falta ordenar los valores de C y D x la columna D
  6. Contar Repetidos

    Buenas noches Excel_entes Tengo una lista de valores y quisiera saber como cuento los elementos que se repiten desde el que se repite mas hasta el que se repite menos y por supuesto los que no se repiten. Sin mas, gracias de antemano ppp.xlsx
  7. Centrar celda seleccionada

    Hola Hola Gracias a los dos: HBanchieri Antoni Resuelto
  8. Buenas tardes, noche o dia Excel-entes No se como hacer que una celda seleccionada en caulquier parte de la hoja se muestre, con una macro, en el centro de la pantalla sin buscarla manualmente.
  9. Sobre Inventario Autmático

    Saludos Excel_entes 2do comentario: ERROR En hoja 'Datos' desplegar columnas ocultas desde H En celda M16 'FechaHasta' contiene "=FIN.MES(M18;0)" debe decir "=FIN.MES(M18;0) + 1" ¡¡favor chequear si es correcto lo que espongo!! ¿Están revisando? --------------------------------------------------------------------------------- No conozco de Tablas dinámicas. ¿Ya han sustituido resumen por una tabla permanente?
  10. Sobre Inventario Autmático

    Saludos Excel_entes 1er comentario: El contador de Consumo e Ingreso se inicia manualmente Desproteja la hoja y cambielo.
  11. Sobre Inventario Autmático

    Buenas tardes, noche o dia Excel_entes Alguien me sugirió que el resumen sea permanente creando una tabla dinámica. ¿Puede alguno crear esa tabla dinámica y facilitarla a todos?
  12. Sobre Inventario Autmático

    Saludos Se debe estar consiente que cada mes tiene su propia base de rubros y de precios Hagan sus consultas Hasta la proxima aclaratoria
  13. Sobre Inventario Autmático

    Gracias por la sugerencia Gerson peeero... quisiera que sea bien probado. Luego lo aportamos. Esperando su sugerencia...
  14. Buen dia, tarde o noche Excel_entes Tengo un aporte sobre la culminación del Inventario Automático Cualquier error ya saben... https://drive.google.com/file/d/0B5LzGXxDioitSUR5bW1NUmZvcVE/view?usp=sharing
  15. Saludos Excel_entes Me olvide de la "x" como referencia pasa saber donde terminaba cada grupo y quedó así: Public CantPiezas, CantGrupos As Integer Sub comprime() '****** ' '''############################ ' Para agrupar los iguales ' Acceso directo: Ctrl+Mayús+P ' AyudaExcel > Pedrot '''############################ ' Dim grupo() As String Dim aa, rb As String Dim a1, a2 As Integer i = 1: j = 0: k = 0: a1 = 0 Range("A7").Select aqui0: While ActiveCell() <> "***" While ActiveCell() <> "" fila = ActiveCell().Row Nfila = Range("A" & ActiveCell().Row).End(xlDown).Row - fila ReDim Preserve grupo(Nfila) For j = 1 To Nfila grupo(j) = ActiveCell().Value ActiveCell.Offset(1, 0).Select Next j ActiveCell.Offset(2, 0).Select If ActiveCell().Value <> "***" Then ' While a1 = 0 Nfila2 = Range("A" & ActiveCell().Row).End(xlDown).Row - ActiveCell().Row If Nfila = Nfila2 Then For jj = 1 To Nfila2 If grupo(jj) = ActiveCell().Value Then ActiveCell.Offset(1, 0).Select Else GoTo aqui1 End If Next jj k = k + 1 ActiveCell.Offset(2, 0).Select Else a1 = 1 jj = 1 End If Wend aqui1: a1 = 0 ActiveCell.Offset(-jj + 1, 0).Select If k > 0 Then Range("A" & fila).Select CantPiezas = j - 1 CantGrupos = k + 1 Call borragrupos ' Borra lineas k = 0 End If GoTo aqui0 Else Exit Sub End If Wend ActiveCell.Offset(1, 0).Select Wend End Sub Sub borragrupos() nViga = ActiveCell.Offset(CantPiezas, 7).Value * CantGrupos NoSelec = CantPiezas + 2 TotalSelec = NoSelec * (CantGrupos - 1) - 1 Range(ActiveCell(), ActiveCell().Offset(TotalSelec, 7)).Select Selection.Delete Shift:=xlUp ActiveCell().Select ActiveCell.Offset(CantPiezas, 0).Value = nViga & " x " & "12050" ' Range("longAlmacen") For i = 0 To CantPiezas - 1 ActiveCell.Offset(i, 3).Value = nViga Next i ActiveCell.Offset(i, 4).Value = nViga ActiveCell.Offset(i, 7).Value = nViga End Sub A tracción de sangre ... pero funsiona Resuelto
×