Saltar al contenido

pedrot

Miembros
  • Contador de contenido

    90
  • Unido

  • Última visita

  1. 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?
  2. Sobre Inventario Autmático

    Saludos Excel_entes 1er comentario: El contador de Consumo e Ingreso se inicia manualmente Desproteja la hoja y cambielo.
  3. 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?
  4. 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
  5. Sobre Inventario Autmático

    Gracias por la sugerencia Gerson peeero... quisiera que sea bien probado. Luego lo aportamos. Esperando su sugerencia...
  6. 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
  7. 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
  8. Saludos de nuevo esta es la rutina que intenté: Sub comprime() ' Dim ra() As String Dim aa, rb As String Dim a1 As Double aa = "-" i = 1: j = 0 Range("A7").Select While aa <> "***" vuelve: If ActiveCell().Value <> "" And ActiveCell().Value <> "***" Then While ActiveCell().Value <> "" j = j + 1 On Error GoTo aqui a1 = WorksheetFunction.Find("x", ActiveCell().Value) ' If a1 <> 0 Then i = i + 1 aa = ActiveCell().Value GoTo aqui1 ' End If Wend aqui: On Error GoTo -1 ra(i, j) = ActiveCell().Value ReDim Preserve ra(i, j) As String ActiveCell.Offset(1, 0).Select aa = ActiveCell().Value GoTo vuelve End If aqui1: j = 0 aa = ActiveCell().Value ActiveCell.Offset(1, 0).Select Wend End Sub Me rendí .......
  9. Buenas tardes, noche o día Excel_entes Necesito detectar una serie de grupos de elementos que sean iguales. La ventaja es que esos grupos afortunadamente siempre están juntos y su último elemento tiene una ‘x’ Esta serie de elementos son vigas marcadas, ej.: w-RF-45, que tienen cantidad y longitud. El programa toma esas longitudes y trata de formar la mejor distribución que sea la mayor suma y menor o igual que una longitud dada, ej.: 12050mm. La macro que contiene para la agrupación es manual? Su instrucción está en el archivo. Debe detectar los iguales y cuántos son. Comprimir iguales.xlsm
  10. Sobre CronogramaAutomático

    Buenas tardes, noche o dia Excel_entes No se que pensaba con los cambios, dejenlo como al inicio Macro ReformaUno: ... ActiveCell.Offset(-1, 4).Value = EntreDiasFinal IfUCase(ActiveCell.Offset(-1,5).Value)="F"OrUCase(ActiveCell.Offset(-1,5).Value)="O"Then ActiveCell.Offset(-1, 5).Value = "M" End If ' ------Estas 3 lineas estaban comentadas ahora NO ActiveCell.Offset(0, 4).NumberFormat = "0%" ActiveCell.Offset(0, 4).Value = Range("G" & filatarea) / Range("G" & filatarea - 1) colC = Range("CantidadAqui").Column Cells(filatarea, colC).Select ActiveCell().Value = "=sum(" & Suma1 & ":" & Suma2 & ")" Cells(filatarea, 4).Select CalculoTotales ' ------ rutina Application.ScreenUpdating = True ' ---------------------------------------fechaHoy- ' ------ eliminen esta rutina. Creo fué para bajar la linea negra de HOY ' que al ser eliminados los cuadros quedaba interrumpida. End Sub Disculpen las molestias POR FAVOR comenten cualquier ERROR Pedro Tovar
  11. Sobre CronogramaAutomático

    Buen dia, tarde o noche Excel_entes El problema que se presenta es que al clic en [Reforma] rutina ReformaUno y el final de las actividades no llega al dia de HOY se está regenerando un dia mas. Explicacion en el adjunto. Si alguien tiene la amabilidad de modificar y arreglar esta macro se lo agradeceré. En estos momentos no puedo.
  12. Sobre CronogramaAutomático

    Buens noches, dia o tarde Excel_entes Con mucha pena les pido que olviden la instruccion anterior. activen las lineas verdes y les pido que eliminen la rutina fechaHoy despues veré que se hará. Estos son Ustedes
  13. Sobre CronogramaAutomático

    Buen dia, tarde o noche Excel_entes Una nueva modificación en la Macro ReformaUno . En ella se agregó la Rutina fechaHoy y por eso hay que hacer otro cambio que es: Eliminar o comentar las tres líneas en verde. Estas líneas cambiaban la F por M y en la rutina fechahoy no se ejecutaba nada ( si se analiza debidamente estas dos rutinas ReformaUno y fechaHoy verán que se repiten muchas líneas y acciones y cosas que no debe Una de ellas pasear toda la tabla…error???) después se cambiará para mejorar. Final de la Macro: ReformaUno ….. ActiveCell.Offset(-1, 4).Value = EntreDiasFinal ' IfUCase(ActiveCell.Offset(-1,5).Value)="F"OrUCase(ActiveCell.Offset(-1,5).Value)="O"Then ' ActiveCell.Offset(-1, 5).Value = "M" ' End If ActiveCell.Offset(0, 4).NumberFormat = "0%" ActiveCell.Offset(0, 4).Value = Range("G" & filatarea) / Range("G" & filatarea - 1) colC = Range("CantidadAqui").Column Cells(filatarea, colC).Select ActiveCell().Value = "=sum(" & Suma1 & ":" & Suma2 & ")" Cells(filatarea, 4).Select CalculoTotales ' ------ rutina Application.ScreenUpdating = True fechaHoy- ' ------ rutina------- End Sub Suerte con el cambio
  14. Borrar Macro protegido

    Excel_ente Antoni, pero está algo complejo para my nivel de excel y de ingles. Gracias seguimos adelante.
  15. Borrar Macro protegido

    Excel_entes Diego, no funcionó. Debe estar abierto. Me da error al abrir el wordbook Gracias Antoni, ya veo lo que mandas. saludos
×