Jump to content

sebastian1509

Pro Member
  • Content Count

    43
  • Joined

  • Last visited

About sebastian1509

  • Rank
    Member
  • Birthday 11/27/1979

Converted

  • Campos
    ,

Recent Profile Visitors

458 profile views
  1. Buenos dias Janlui gracias por tu archivo, afirmativo ya no se crea otra hoja en VBAProject , el inconveniente es que ahora ya no se genera la lista de validadcion en la hoja Ingreso Pruebas C3.
  2. Estimado Abraham Valencia aplique tu recomendación pero igual continua con el erros y se continua creando hojas en VBAProject. Adjunto el libro nuevo New.xlsm
  3. Estimado Janlui al concluir con la macro que me ayudades nuevamente al abrir el libro se da el mensaje de error.
  4. Buenas tardes Janlui, respondiendo a tu pregunta la hoja no tiene ninguna contraseña. Esa hoja se crea cada vez que se graba el libro. La primera imagen es antes de ejecutar la macro, grabo y cierro el libro al abrir nuevamente sale el mensaje que se tiene problemas en el libro. La segunda imagen corresponde cuando se abre el libro nuevamente, cambia el nombre de la hoja Sheet3(INGRESO PRUEBAS) @ Sheet1(INGRESO PRUEBAS) no sé por qué está ocurriendo eso.
  5. Buenas tardes comunidad del Foro por solicitar su valiosa ayuda con las siguientes inquietudes. 1. Ejecuto una macro lista de validación, datos de la hoja CAMPO NORTE. Al cerrar el libro y abrirlo nuevamente me da un error Y se me va creando un nuevo ThisWorkbook en el VBAProject 2. Del resultado que obtengo en Q3 hoja INGRESO PRUEBA me compare con el valor de la hoja CAMPO NORTE columna J según el nombre de la lista de validación escogido en C3 y en W3 de la hoja INGRESO PRUEBA me dé cual es la diferencia entre esas cantidades. Les agradezco de antemano por su ayuda y tiempo con el código de programación VBA DESARROLLO1.xlsm
  6. Muy amable Gerson Pineda, te agradezco por tu ayuda. Tema solucionado
  7. Buenos días Gerson Pineda, disculpa por la molestia hasta cuantos criterios podría aplicar con este método
  8. 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
  9. Muy amable Haplox y Gerson Pineda por el el tiempo brindado y su gran colaboración a este Tema. Les quedo agradecidos.
  10. 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
  11. Entendido Gerson Pineda, tendré mas cuidado y resumido en la petición de ayuda hacia el foro
  12. 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
  13. 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
×
×
  • Create New...

Important Information

Privacy Policy