Jump to content

Subtotales de mas de 10 columnas


Recommended Posts

Saludos amigos foristas, recurro a su apoyo de un archivo el cual consta de dos hojas, y se carga mediante un userform que contiene 12 columnas, de la columna 6 a la 12 contiene números, al activar el userform, me carga la información de la Hoja1, y suma las columnas de la 6 a la 12, el error que se origina es que al filtrar por Nombre de Emisor, las columnas 11 y 12, no aparecen los números y no filtra los subtotales pertenecientes al Nombre del Emisor, sino que suma el total de los números en dichas columnas, ¿podrían indicarme o proporcionar información para corregir este error?, de antemano les agradezco mucho.

CONTROL 2021.xlsm

Link to comment
Share on other sites

Saludos @Antoni, me es grato saludarte, y agradezco mucho el aporte del archivo, ya estuve haciendo pruebas y funciona muy bien, solo que en cuanto al rendimiento, por lo regular trabajo con mas de 1,000 filas de información, y al cargar la información mediante el userform, se congela por un momento la pantalla, al igual cuando realizo el filtro de algún dato, hace tiempo utilice un archivo que era un autofiltro, no recuerdo bien de quien de los foristas pertenece, y funcionaba bastante bien con cierta cantidad de datos, pero con mas de mil filas de información también se congelaba la pantalla, asi que aprovecho de comentártelo y ver si hay otra opción de búsqueda, de antemano muchas gracias

 

https://drive.google.com/file/d/1tHQPpyZfd47goSsywl23Zc5tnPXeoY6r/view?usp=sharing

Link to comment
Share on other sites

Agradezco nuevamente tu tiempo y aporte Antoni, funciona bastante rápido, y ya no se congela la pantalla. Solo por último, al momento de hacer el filtrado en el textbox, no realiza el filtrado si la palabra que busco no se encuentra al inicio, por ejemplo, busco SEGURO, y me da resultados de SEGUROS ATLAS, pero si busco AXA SEGUROS, debo buscarlo por AXA, se que puedo utilizar el comando UCase, solo que no se donde debería registrarlo, de antemano gracias por tu apoyo.

Link to comment
Share on other sites

Hace 9 horas, Hector Suarez dijo:

Agradezco nuevamente tu tiempo y aporte Antoni, funciona bastante rápido, y ya no se congela la pantalla. Solo por último, al momento de hacer el filtrado en el textbox, no realiza el filtrado si la palabra que busco no se encuentra al inicio, por ejemplo, busco SEGURO, y me da resultados de SEGUROS ATLAS, pero si busco AXA SEGUROS, debo buscarlo por AXA, se que puedo utilizar el comando UCase, solo que no se donde debería registrarlo, de antemano gracias por tu apoyo.

Se buscan mayúsculas/minúsculas indistintamente y puedes utilizar comodines: 

*SEGUROS o *seguros,  darán el mismo resultado, es decir, se buscará la palabra seguros en cualquier parte.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
    • Hola,   No me funciona.   Sale este error.   Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm?   Muchas gracias
    • A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy