Saltar al contenido

Hola, Soy Juan


JUAN JOSE DIAZ

Recommended Posts

publicado

Hola, buenas tardes estimados,

Me llamo Juan José Díaz, soy de Lima - Perú y tengo 29 años; soy nuevo en el campo de Macros y VBA, el uso que le daba a Excel era intermedio.

Actualmente estoy trabajando en un Excel que requiere aplicar Macros y también debe estar compartido en RED para que lo pueda usar con más usuarios en simultáneo, el detalle es que no se como aplicar el Compartir archivo. Mi Archivo consta de 5 Hojas, llamadas Comercial, Programación, Seguimiento, Emisión y Resumen. En Comercial se ingresan varios campos que pertenecen a un cliente, cada fila cuenta con un combobox del cual si el usuario le da clic en CERRADO, automáticamente 3 celdas de COMERCIAL pasarán a la hoja PROGRAMACIÓN, en un orden específico, luego en la hoja PROGRAMACION también se llenan una cierta cantidad de datos en la fila y también consta con un combobox del cual al seleccionar AUDITADO, también pasarán 3 celdas (las mismas que pasaron anteriormente de comercial) a la hoja SEGUIMIENTO, de SEGUIMIENTO es el mismo proceso, cuenta con un COMBOBOX y al seleccionar EMITIDO, pasará automáticamente ciertas celdas a la hoja EMISION y NC's, hasta aquí tengo la programación, pero mi problema viene cuando quiero sacar el resumen de las 5 hojas, la hoja RESUMEN me debería mostrar a los clientes con sus datos completos (los cuales se recopilan de las hojas COMERCIAL, PROGRAMACION, SEGUIMIENTO Y EMISION, siempre y cuando se cumplan 3 condiciones: Las condiciones son: que en COMERCIAL, la fila se encuentre con el Combobox en estado CERRADO, en la hoja PROGRAMACION se encuentre la fila con estado AUDITADO y que en SEGUIMIENTO  también la fila se encuentre con el Combobox seleccionado en EMITIDO, para la hoja EMISION le creé un sub estado que es igual al de la hoja SEGUIMIENTO el cual se genera automáticamente cuando en SEGUIMIENTO se le hace clic en EMITIDO, no logro hacer que me cumpla las 3 condiciones y estas pasen automáticamente al RESUMEN. Alguien podría ayudarme? por favor tengo varios días tratando pero no me logra salir lo solicitado, tampoco puedo hacer que se comparta en RED para que lo pueda usar un usuario más aparte de mi. Adjuntaría el archivo pero pesa mas de 200 KB y la página no me permite hacerlo.

Gracias a todos por su atención.

 

publicado

Hola estimado, bienvenido compatriota.

Según las normas deberías publicar tu consulta pero en la sección correspondiente, ya que aqui solo son presentaciones y nadie te prestara atención.

Saludos cordiales

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      97
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    1    0

  • Crear macros Excel

  • Mensajes

    • Hola a todos, tengo dos listas desplegables independientes. La primera lista si filtra bien y oculta aquellas filas no semejantes al filtro, y querría añadir una segunda lista desplegable que también filtre. Gracias de antemano por la ayuda Libro2.xlsb
    • Buenos días estimados, Tengo la siguiente consulta como obtener el promedio del rango de datos la ultima y penúltima fecha de la columna K. Ósea si tengo datos en la columna K con fecha 13-03-2025 y 12-03-2025 haga el promedio de los datos de esas fechas, pero si hay datos en la columna K con fecha 13-03-2025 y 11-03-2025 solo haga el promedio del dia 13-03-2025. El promedio debe ir en la celda M1 Anteriormente tenia en la macro la consulta del ultimo y penúltimo dato solamente sin tener en cuenta la fecha. Aqui compara los dos datos si el ultimo es menor toma ese dato si es mayor realizar el promedio. Sub Cemento() Dim Valor_1 As Single, Valor_CALIZA As Single, _ Dim Book_Moliend As Workbook, _ Book_BBDD As Workbook, _ Book_PREH As Workbook Dim Hoja_CalCto As Worksheet, _ Hoja_Caliza As Worksheet, _ Hoja_Cemento As Worksheet Dim Ruta_1 ' --- Fichero: MOLIENDA DE CEMENTO Y DESPACHOS FISICOS.xlsx Ruta_1 = "E:\Claudio\Cemento\" Application.ScreenUpdating = False Set Hoja_Cemento = ThisWorkbook.Sheets("CEMENTO") Set Book_PREH = Workbooks.Open(Ruta_1 + "PREHOMO.xlsx", ReadOnly:=False) Set Hoja_CalCto = Book_PREH.Sheets("CALIZA ADICIÓN CTO") ' --- Busca la ultima fila con datos y captura el valor With Hoja_CalCto Fila = .Cells(4, "A").End(xlDown).Row Valor_1 = 0 ' --- Ultimo dato Valor_2 = 0 ' --- Penultimo dato While Valor_1 = 0 Or Valor_2 = 0 If .Cells(Fila, "K") > 0 Then If Valor_1 = 0 Then Valor_1 = .Cells(Fila, "K") Else Valor_2 = .Cells(Fila, "K") End If End If Fila = Fila - 1 Wend End With Book_PREH.Close ' ---&--- Si el ultimo es mayor toma el ultimo If Valor_1 < Valor_2 Then Valor_CALIZA = Valor_1 Else Valor_CALIZA = (Valor_1 + Valor_2) / 2 End If Hoja_Cemento.Range("M1") = Valor_CALIZA End Sub Saludos Promedio.xlsm PREHOMO.xlsb
    • Hola mis amigos, como se encuentran, Antes que nada, gracias por tomarte el tiempo de leer mi situación. Tengo una tabla en donde se surte mercancía, el detalle esta:  Como son varios pedidos entonces, es donde se me complica un poco, a veces el cliente me pide cierta cantidad de mercancía, como no es el único, entonces quiero ver la posibilidad de mejorar este proceso, me gustaría ver si hay la posibilidad de combinar estas dos opciones, en donde si mi stock de acuerdo al pedido no cumple, entonces que surte a ciertos clientes, y la otra opción sería si de mi stock no cumple entonces que me distribuye en partes iguales la mercancía. Adjunto un archivo de ejemplo para mejor apreciación. De antemano, muchas gracias. SURTIDO DE MERCANCIAS.xlsx
    • Gracias de  todas formas, pero busco hacerlo con VBA. Son 12.000 filas a filtrar
    • Hola a ambos, @Gigi74, si te es igual conseguirlo en un rango aparte,  puedes aplicar: =APILARV(A4:D4;FILTRAR(A5:.D999;(A5:.A999=B2)+(B5:.B999=B3))) Saludos,
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.