Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenas noches a todos los integrates del este foro, agradeciendo por sus aportes brindados, la cual me ayudaron a solucionar el problema con dicha formula, por lo que daría como TEMA SOLUCIONADO.
  2. Buenas tardes, no es que, ni sepa uno lo que requeria, lo anetrior es un ejemplo de como sería la condición al preguntar, la formula que necesito es solamente que la condición sea unica y exclusivamente WE1, WE2, WE3, WE4, WJ1, WJ2, WJ3, WJ4 todo es se multiplica por el 10% y esta otra condición, PE1, PE2, PE3, PE4, PJ1, PJ2, PJ3, PJ4 al 5% se mulipleque por la celda J6 y sea mayor a 0.
  3. En la celda K9, debe ser 0, porque la condición es que solo pregunte cuando es WE1, WE2, WE3, WE4, WJ1, WJ2, WJ3, WJ4, PE1, PE2, PE3, PE4, PJ1, PJ2, PJ3, PJ4 y sea mayor a 0.
  4. Buenos días a los integrantes de este foro, recurro a uds para que me brinde su apoyo con esta formula para determinar el resultado en la celda K6, según las condiciones que describo a continuación: 1º Condición: Valor de la celda F6 puede ser WE1 o PE1 2º Condición: Valor de la celda H6 es mayor a 0 3º Condición: Valor de la celda J6 se multiplique por el 10% (cuando es WE1) y 5% (cuando es PE1) Espero haber explicado con lo requerido y desde ya agraezco su apoyo. AYUDA CON FORMULA WINCHERO O PORTALONERO.xlsx
  5. En los mensajes líneas arriba está el link para la descarga del archivo, caso contrario envíame tu email personal y adjunto el archivo @DiegoLG Saludos
  6. Hola @DiegoLG salvo que se pueda confeccionar otra macro pero sin realizarlo con filtros.
  7. @DiegoLG realice la modificación indicada, pero al consignar la instrucción Hoja1.Unprotect "CONTRESEÑA", en la hoja INGRESO borra toda la fila 6 y en la hoja busqueda el valor consignado como criterio a buscar no se borrar.
  8. cuando se ejecuta la macro con la hoja protegida el error lo emite en la instruccion: Range("DATOS").Font.ColorIndex = 3
  9. ya lo he intentado e inclusive designando variables a la hoja y no funciona.
  10. Buenas tardes @DiegoLG vuelo a subir el link, acabo de realizar la descarga en la laptop y si la permite hacerlo. https://drive.google.com/file/d/1W3GRpCt_XdxzoC9zHXLlZ15vnhsIpYRH/view?usp=sharing
  11. Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que me ayuden a mejorar la macro que describo a continuación: Sub FILTOR() Range("DATOS").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "FILTRO"), CopyToRange:=Range("RESULTADO"), Unique:=False '''''''''''''''''''''''''''''''''''''''''''''''''''''' Range("DATOS").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _ "FILTRO") Range("DATOS").Font.ColorIndex = 3 Range("DATOS").AutoFilter '''''''''''''''''''''''''''''''''''''''''''''''''''''' ActiveWindow.ScrollColumn = 1 Range("A6:V6").Select Selection.ClearContents Range("A6").Select End Sub Hoja BUSQUEDA Lo que realiza dicha macro como su propio nombre dice busca valores que provienen de la hoja INGRESO (hoja protegida clave “A” para ocular las fórmulas), por ejemplo cuando digito en DNI a buscar en hoja BUSQUEDA celda Q6 dicho valor se resalta en la hoja INGRESO como indicador que valor buscado se encuentro, dicha macro trabajar sin ningún problema cuando la hoja INGRESO no se encuentra protegida, pero cuando la hoja INGRESO se protege genera error en la instrucción: Los valores buscados van desde la fila A6 a U6. '''''''''''''''''''''''''''''''''''''''''''''''''''''' error a buscar el valor solicitado con hoja INGRESO protegida Range("DATOS").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _ "FILTRO") Range("DATOS").Font.ColorIndex = 3 Range("DATOS").AutoFilter '''''''''''''''''''''''''''''''''''''''''''''''''''''' Por lo que he intentado colocando al inicio de la macro las instrucciones para que la desproteja y proteja automáticamente la hoja con la clave, pero sin ningún resultado, Adjunto archivo. https://drive.google.com/file/d/1W3GRpCt_XdxzoC9zHXLlZ15vnhsIpYRH/view?usp=sharing Desde ya agradezco su apoyo y colaboración, saludos.
  12. Buenos días Srs del foro, efectivamente omite el adjuntar el archivo de acuerdo a las normas del foro, para lo cual adjunto le link de archivo donde requiero eliminar las hojas que había solicitado en el mensaje lineas arriba descrita. https://drive.google.com/file/d/1v74j2isZzQjObFq9vhf7Lb7gkTsrheWV/view?usp=sharing NOTA: La macro que contiene la instrucción es el Módulo 5, esta al final. Sub ELIMINA_TODAS_MENOS_TODAS() Application.DisplayAlerts = False Sheets(Array("EE", "TAB_JUDICIAL", "TABLA_AUXILIAR", "DATA", "HISTORICO", "PDT 601", "PDT 602", "AFP", "ONP", "TELECREDITO JUDICIAL", "DATOS", "DATOSS", "VENCIDO", "SORT", "NAVI")).Delete Application.DisplayAlerts = True End Sub pero cuando en la linea del Sheets(Array(dejo 6 nombres, si se realiza la macro, sin ningún problema) Desde ya agradezco su apoyo y colaboración con lo solicitado.
  13. Buenas tardes a los integrantes de este foro, en esta ocasión recurro a Uds, con alguna macro que permita eliminar hojas de un archivo, de las cuales el archivo en mención cuenta con 10 hojas y de las cuales pretendo eliminar 8. Desde ya agradezco su apoyo y colaboración.
  14. Buenas tardes @JSDJSD, era lo que requería complementar al escoger la letra que contenía el valor asignado. Saludos y gracias por el aporte.
  15. Buenas tares Srs, adjunto link en forma independiente los archivos que fue enviada por @Antoni y están con winrar. https://drive.google.com/file/d/1VqaUzzbAzxsLGAKuXgFHUmhMRmAAcabX/view?usp=sharing https://drive.google.com/file/d/1tQH9DEpEsOdDSOe8_A_GT32F930qJ5a7/view?usp=sharing este otro link es de @JSDJSD https://drive.google.com/file/d/1nVidG1h79fgEyehaKTaFt-lWYaZDBgKp/view?usp=sharing https://drive.google.com/file/d/1zXktSSNUSCzNstC0i9IUNzhNu4EDymh2/view?usp=sharing y adjunto la imagen que debe quedar como resultado: https://drive.google.com/file/d/1l2aYTmf3c9wS2--gRmFyJFHxpVtLN0rY/view?usp=sharing Espero haber detallado un poco mas lo requerido, gracias.
  16. Buenas días a los integrantes de este foro, en fechas pasadas los amigos @Antoni, @Leopoldo Blancas y @JSDJSD, me brindaron su apoyo con el tema "PROBLEMA AL MOMENTO DE CARGAR UN LISTBOX, cuyos datos que se encuentran en la Hoja "EE", para lo cual adjunto las macros que cada usaron para el desarrollo de formulario, para lo cual ambos diseñados son usados con diferentes datos, y ahora lo que requiero es que al momento de seleccionar el userform de CONSULTA TARIFA permita con dobleclick se cargue la letra asignada en el textbox3 con el titulo Nombre del Producto. Macro de @Antoni https://drive.google.com/file/d/1uk2O0hC0Xasd05gZRTpH9OyzrhD689mg/view?usp=sharing Private Sub ListBox1_Click() Label1 = "" With ListBox1 If Not .ListIndex = -1 Then Label1 = .List(.ListIndex, 2) End With End Sub Private Sub UserForm_Initialize() ListBox1.ListIndex = -1 End Sub Macro de @JSDJSD https://drive.google.com/file/d/1h9YmPhg8nlHpcP_G1Rcrdm_OrzolwI6T/view?usp=sharing Private Sub CommandButton1_Click() Unload Me End Sub Private Sub desc_Click() descripcion = Application.WorksheetFunction.VLookup(ListBox1.Value, Sheets("EE").Range("A2:C5"), 3, 0) Me.Label1.Caption = descripcion End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() ListBox1.RowSource = "'" & Hoja14.Name & "'!A1:C" & Hoja14.Range("A" & Rows.Count).End(xlUp).Row End Sub Desde ya agradezco su apoyo y colaboración.
  17. Buenas tardes amigo @Leopoldo Blancas, como indicastes, copie la macro que realizaba la extracción de numero, al mismo programa y funciona bien al igual que la formula brindada el cual extrae el numero. Por lo quedaría como tema SOLUCIONADO. Saludos y gracias.
  18. Amigo @Leopoldo Blancas una consulta, el complemento extraernumeroscelda la puedo copiar en el mismo archivo, es decir en la hoja donde realizó dicha extracción.
  19. Ejemplos:Celda J8 WE1 PE1 BE1 Así está distribuido en dicha celda los datos.
  20. Espero que me puedas indicarme con que fórmula podría obtener el número, cómo sería el caso de la macro (complemento xlam) gracias.
  21. Así es, eso era lo que pretendía hacer, y por ello quería usar la conexión de datos, o para evitar ese problema quizás con alguna formula se pueda reemplazar el uso de la macro el cual permite extraer números y si me pudieras ayudar. Gracias.
  22. Así es @Leopoldo Blancas, eso siempre es lo que hago, eliminar: 'C:\Users\JOSE LUIS\AppData\Roaming\Microsoft\AddIns\extraernumerosCelda.xlam'! del ='C:\Users\JOSE LUIS\AppData\Roaming\Microsoft\AddIns\extraernumerosCelda.xlam'!extraernumerosCelda(J8) para dejarlo asi: =extraernumerosCelda(J8) y así ya quedaría por defecto configurado, pero cuando actualizo el archivo de mi pc principal, y luego copiar a la otra pc, se vuelve a desconfigurar, habrá alguna manera de solucionar este impase. Gracias.
  23. adjunto link del archivo, @Leopoldo Blancas https://drive.google.com/file/d/1v74j2isZzQjObFq9vhf7Lb7gkTsrheWV/view?usp=sharing
  24. Estoy eliminando algunas opciones en el archivo que trabajo, para adjuntarlo.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png