Jump to content

sebastian1509

Members
  • Content Count

    36
  • Joined

  • Last visited

About sebastian1509

  • Rank
    Member

Converted

  • Campos Array

Recent Profile Visitors

348 profile views
  1. Muy amable Gerson Pineda, te agradezco por tu ayuda. Tema solucionado
  2. Buenos días Gerson Pineda, disculpa por la molestia hasta cuantos criterios podría aplicar con este método
  3. Buenas noches comunidad del foro por solicitarles su colaboración. Como podría aplicar criterio para filtrar información de un determinado código, es decir solo aquellos que cuenten con el código ACAI, ACAP, ACAK. Actualmente aplico el Criterio para cada uno de ellos: Criteria1:=Array("ACAI-072", "ACAI-084", "ACAI-106", "ACAI-107", "ACAI-109", "ACAI-197", "ACAI-198", "ACAI-199", "ACAI-205", "ACAI-219", "ACAK-120R1", "ACAK-121", "ACAK-122", "ACAK-123", "ACAK-124", "ACAK-125", "ACAK-180", "ACAK-181", "ACAK-182", "ACAK-183", "ACAP-056", "ACAP-100", "ACAP-103", "ACAP-175", "ACAP-176", "ACAP-177", "ACAP-179"), _ Operator:=xlFilterValues Diariamente tengo que ir agregando el código con su respectivo número que le antecede para poder filtrar. A la espera de sus comentarios les quedo agradecido PARAMETROS.xlsm
  4. Muy amable Haplox y Gerson Pineda por el el tiempo brindado y su gran colaboración a este Tema. Les quedo agradecidos.
  5. Mi estimado Haplox e modificado el código como me indicaste y no soluciona en nada lo que anteriormente comente. Te adjunto el libro con el código y comentarios en la hoja Monitoreo_A . en el libro Ingreso Parametros II. De antemano te quedo agradecido y atento a tus comentarios Ingreso Parametros II.rar Parametros.rar
  6. Entendido Gerson Pineda, tendré mas cuidado y resumido en la petición de ayuda hacia el foro
  7. Muy amable Haplox te agradezco por tu ayuda. Disculpa por mi atrevimiento un ultimo favor modifique la segunda macro del libro Ingreso Parametros.xlsm de nombre MONITOREO_A(), copia los datos de la ultima fila de las hojas del libro Parámetros a la hoja MONITOREO_A. si el valor de la columna J de la hoja ZONA_NORTE es > a 400. Cuando ejecuto la macro por segunda vez se me cambia por completo los datos en la hoja MONITOREO_A y debería ser acumulativo cada vez que se ejecuta y no suplantar los valores que ya fueron copiados del libro Parametros Nuevamente mil disculpas por mi atrevimiento al solicitar tu ayuda. Parametros.rar
  8. Buenos días Gerson Pineda e utilizado el objetos Workbooks para especificar el libro destino, e ejecutado la macro y no copia la información al libro destino que en este caso es Parametros.xlsm, me encuentro atascado ya que la información que debería copiarse al libro Parametros.xlsm no es una hoja especifica sino que se selecciona por medio una lista de validación en la hoja INGRESO PARAMETROS en el libro del mismo nombre. A la espera de tus comentarios te quedo agradecido. Option Explicit Public i As Integer Public Uf As String Dim Worksheet Sub PARAMETROS() Application.ScreenUpdating = False Workbooks.Open "C:\Desarrollo Excel\Parametros.xlsm" 'Cambiar por la dirección correcta del libro en la PC For i = 3 To ThisWorkbook.Worksheets.Count Uf = ThisWorkbook.Worksheets(i).Range("B" & Rows.Count).End(xlUp).Row + 1 ' Verifica cual es la ultima fila de la columna B del libro Parametros de la hoja escojida con la lista de validacion ' With ThisWorkbook.Worksheets(i) If Hoja1.Range("D7").Text = ThisWorkbook.Worksheets(i).Name Then .Range("B" & Uf) = Hoja1.Range("D7") 'NOMBRE .Range("C" & Uf) = CDate(Hoja1.Range("D9")) 'FECHA .Range("D" & Uf) = Hoja1.Range("D11") 'H .Range("E" & Uf) = Hoja1.Range("D13") 'A .Range("F" & Uf) = Hoja1.Range("D14") ' B .Range("G" & Uf) = Hoja1.Range("D15") ' C .Range("H" & Uf) = Hoja1.Range("D17") 'VOLTS .Range("I" & Uf) = Hoja1.Range("D19") 'P1 .Range("J" & Uf) = Hoja1.Range("D21") 'P2 .Range("K" & Uf) = Hoja1.Range("D23") 'T1 .Range("L" & Uf) = Hoja1.Range("D25") 'T2 .Range("M" & Uf) = Hoja1.Range("D27") 'P3 .Range("N" & Uf) = Hoja1.Range("D29") 'T3 .Range("O" & Uf) = Hoja1.Range("D31") 'P4 .Range("P" & Uf) = Hoja1.Range("D33") 'P5 .Range("Q" & Uf) = Hoja1.Range("D35") 'T4 .Range("R" & Uf) = Hoja1.Range("D37") 'Novedades MsgBox "Información Registrada en la Hoja : " & ThisWorkbook.Worksheets(i).Name, vbInformation, "Listo" End If End With Next i End Sub
  9. Adjunto libros (Ingreso Parámetros y Parámetros) que por el tamaño de los mismo no puede adjuntarles junto con el libro anterior Ingreso Parametros.rar Parametros.rar
  10. Buenas días comunidad del foro, por solicitarles su valiosa ayuda. - Cuento con un libro en el cual ingreso información en una hoja llamada Datos y registra la información en la hoja correspondiente que se escoja por medio de una validación. - Copia el último valor de las diferentes hojas a la hoja Monitoreo_A, si el valor de la columna J de la hoja Zona Norte es > 400. Las macros se ejecutan en un mismo libro y realiza lo que detalle anteriormente. Libro nombre Ejemplo Mi petición y solicitud de ayuda es para poder realizar ahora en 2 libros distintos (Ingreso Parámetros y Parámetros) lo que antes lo hacía en un solo libro, es decir ingresaría información en la hoja Ingreso Parámetros y la registraría en la hoja Parámetros. Copiaría la información de la última fila de las diferentes hojas del libro Parámetros hacia la hoja Ingreso Parámetros si el valor de la columna J de la hoja Zona Norte es > 400 A la espera de sus comentarios les quedo agradecido Ejemplo.rar
  11. Muy amable mi estimado Haplox te agradezco por tu valiosa colaboración en la solución de la macros. Gracias nuevamente, tema resulto
  12. Buenas noches comunidad del foro, por solicitarles su valiosa y acostumbrada ayuda la cual detallo a continuación: Cuento con una hoja en el libro de nombre Base de la cual por macro copio algunos de sus valores dependiendo de la cantidad de la columna D (>=400 copia a hoja A), (> 150 y <=399 copia a la hoja B) La petición al foro es como puedo hacer que al momento de ejecutar la macro me copie de igual manera los datos de la última fila de las distintas hojas que hay en el libro y que son iguales a los de la Hoja A columna B. Ejemplo Copiara los últimos datos de la hoja A-006UI hacia la hoja A ya que en la columna B de la misma consta el nombre A-006UI. Cabe mencionar que los nombres de la hoja A columna B no serán siempre los mismos ya que todo dependerá si los valores de la hoja Base columna D cambia. A la espera de sus comentarios y recomendaciones les quedo agradecidos.
  13. Buenas noches comunidad del foro, pude encontrar solución a mi petición adjunto archivo del mismo por si algún usuario lo requiera. Tema solucionado AYUDA.zip
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5