Jump to content

DiegoLG

Members
  • Content Count

    773
  • Joined

  • Last visited

  • Days Won

    8

Reputation Activity

  1. ¡Excelente!
    DiegoLG reacted to Antoni in copiar datos de cuadros de texto a una celda   
    Prueba esta macro:
    Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub  
  2. ¡Excelente!
    DiegoLG got a reaction from Marcos14 in Cambiar color de TextBox   
    Te paso un ejemplo,
    Espero haberte ayudado,
    y si no es lo que estas buscando, sería interesante que adjuntes tu archivo.
    Diego.
    Libro4.xlsm
  3. Haha
    DiegoLG got a reaction from Silvia in Buscar y pasar datos entre hojas   
    Jaaaaa.
    Era mas fácil de entender si hubiera dicho @Luis paz, buscar con un criterio y mostrar múltiples resultados...
     
    Saludos amiga @Silvia
  4. Haha
    DiegoLG got a reaction from Silvia in Buscar y pasar datos entre hojas   
    Jaaaaa.
    Era mas fácil de entender si hubiera dicho @Luis paz, buscar con un criterio y mostrar múltiples resultados...
     
    Saludos amiga @Silvia
  5. Like
    DiegoLG got a reaction from Silvia in Sumar por grupo.   
    Hola amigos, ya valide los archivos, y me sirve todas las propuestas!
    Doy por tema solucionado.
    Muchísimas gracias por el apoyo!
    Hasta la próxima 😉
  6. Thanks
    DiegoLG reacted to Leopoldo Blancas in Sumar por grupo.   
    Hola a todos,
    Mi aporte:
    Sub FormarGrupos_LBV() Dim nFila&, Celda As Range, Uf&, nGrupo&, nItems As Byte, nSuma As Double, nSumaT As Double, m&     Uf = Sheets("Datos").Range("A" & Rows.Count).End(xlUp).Row     Sheets("Resul_LBV").Range("A2:C200").ClearContents     nGrupo = Sheets("Datos").Range("A2"): nItems = 0: m = 2     For Each Celda In Sheets("Datos").Range("A2:A" & Uf)         If nGrupo = Celda.Value And nItems <= 5 Then                 Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = nItems + 1         ElseIf nGrupo = Celda.Value And nItems > 5 Then                 Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"                 Sheets("Resul_LBV").Cells(m, 3) = nSuma                 nSuma = 0: nItems = 0: m = m + 1: nGrupo = Celda.Value                                  Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = nItems + 1                          ElseIf nGrupo <> Celda.Value Then                 Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"                 Sheets("Resul_LBV").Cells(m, 3) = nSuma                 nSuma = 0: m = m + 1: nGrupo = Celda.Value                                  Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = 1         End If         nSumaT = nSumaT + Celda.Offset(, 2)     Next Celda     Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"     Sheets("Resul_LBV").Cells(m, 3) = nSuma     Sheets("Resul_LBV").Cells(m + 1, 2) = "Total:"     Sheets("Resul_LBV").Cells(m + 1, 3) = nSumaT          Sheets("Resul_LBV").Range("C2:C200").Style = "Currency"      End Sub Pulsa sobre la flecha y los resultados en la otra hoja.
    Saludos
     
    Libro9_LBV.xlsm
  7. Thanks
    DiegoLG reacted to Silvia in Sumar por grupo.   
    entonces que?, con auxiliar... 
    Libro9 1.xlsx
  8. Thanks
    DiegoLG reacted to Leopoldo Blancas in Sumar por grupo.   
    Bueno afinando un poco y Obteniendo la Suma por Grupo:
    Saludos.
    Libro9_LBV.xlsm
  9. Thanks
    DiegoLG reacted to Leopoldo Blancas in Sumar por grupo.   
    No hay que ser tan pulcros... un poquito de colorsito....
    Saludos.
    Libro9_LBV.xlsm
  10. Like
    DiegoLG got a reaction from Silvia in Sumar por grupo.   
    Por eso preguntaba si en PQ se podía hacer eso 😀, pero con el archivo que adjunto @johnmpl ahora si me funcionó.
    Pero veo que hay mas propuesta, denme chance de validar mañana, me metí hacer otras cosas (Una disculpa)
    Mañana les digo si es lo que necesito,
    Agradezco el apoyo la verdad.
    Saludos
  11. Like
    DiegoLG reacted to Leopoldo Blancas in Fórmula para conteo de pendientes   
    Creo que todo se basa en diferentes enfoques, ya que a lo largo de dar capacitación y asesoría sobre Excel me he encontrado con situaciones variadas, pero las más importantes son:
    Desconocen el potencial de Excel, que cosas se pueden hacer y que no. Dueños y Empleados. Tienen miedo que si les cambias la forma de "ver" los datos, ellos ya no van a tener el control, ya que ellos están acostumbrados a trabajar así, y temen de depender de un servidor, como si yo fuera el único que sabe algo de Excel. Esto es referente al Dueño o encargado de la Micro Empresa. La iniciativa del trabajador a aprender y mejorar su trabajo es demasiado baja, la mayoría no se esfuerza por aprender y mejorar su forma de trabajar y reducir los tiempos empleados en las diferentes tareas. El Dueño o Empleador como esta acostumbrado a trabajar así... no quiere cambiar su forma de trabajar y deja a un lado que puede tener la información más precisa y en diferentes formas (gráficas, tablas, etc.) y reducir el tiempo que tarda su empleado en realizarla, que en muchos casos es el 50 y 60% menos tiempo que emplea. Saludos.
     
     
  12. Like
    DiegoLG got a reaction from Silvia in Fórmula para conteo de pendientes   
    Muy cierto! pero creo que son personas que le temen a Excel o de plano no quieren aprender, pero despues sufren y andan preguntando :) :)
  13. Like
    DiegoLG got a reaction from Nady in Bloquear casilla de marcación   
    =CONTAR.SI.CONJUNTO($D$7:$D$32,"VERDADERO")  
  14. Thanks
    DiegoLG got a reaction from lphant in Nombre hoja interno para usarlo en formula.   
    Estimado:
    Debería de adjuntar la información completa para ver en que columna se encuentra la información en tus otros libros,
    De todas maneras aca te preparé algo
    1.- Extraer la información
    2.- Abre el archivo Copia de Ejemplo
    y dale ejecutar ==> seleccione la carpeta donde esta tu información, (En este caso los ejemplos que puse en la carpeta llamada: Nueva carpeta)
    y Listo.
    Saludos,
    Buscar.rar
  15. Like
    DiegoLG got a reaction from TREBUR in Inconveniente con formato de fecha   
    y Si quieres utilizar fórmula, utiliza esta función
    =FECHANUMERO(A2)  
  16. Thanks
    DiegoLG got a reaction from GabrielRaigosa in Inconveniente con formato de fecha   
    Aqui va otra forma:
    1.- Copia el rango:

    2.- Luego Seleccione la celda donde quieres pegar el resultado Digamos que en la B2,
    2.1- Ctrl + Alt + V y te va aparecer esta ventana y seleccionar la opción Sumar:

    Y le das aceptar yyyyy asunto arregaldo.
    Nota: Solo lo he utilizado cuando la celda tiene formato texto y funciona a la perfección.
    Saludos,
    Saludos,
  17. Like
    DiegoLG got a reaction from TREBUR in Inconveniente con formato de fecha   
    y Si quieres utilizar fórmula, utiliza esta función
    =FECHANUMERO(A2)  
  18. Like
    DiegoLG reacted to GabrielRaigosa in Inconveniente con formato de fecha   
    1. Seleccione el rango de fechas "A2:A11"
    2. Vaya al menú "DATOS" -  "TEXTO EN COLUMNAS"
    3. Seleccione la opción "delimitados"

    "siguiente"
    Desmarque cualquier delimitador

    "Siguiente"
    Seleccione formato de fecha DMA

    Presione en finalizar.
     
  19. Thanks
    DiegoLG got a reaction from CarlosKurt in Sumar con varias condiciones en varias hojas   
    Hola @GabrielRaigosa Por lo que entiendo, el insiste en utilizar fórmula, que yo en lo particular no utilizaría fórmula cuando el archivo es demaciado grande, en fin,
    @CarlosKurt aqui te prepare una fórmula bien loca
    =SUMAR.SI.CONJUNTO(BANCO.1!C:C,BANCO.1!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.1!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.1!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.2!C:C,BANCO.2!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.2!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.2!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.3!C:C,BANCO.3!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.3!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.3!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.4!C:C,BANCO.4!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.4!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.4!B:B,RESUMEN!A4) Saludos amigo,
    Copia de PRUEBA.xlsx
  20. Thanks
    DiegoLG got a reaction from CarlosKurt in Sumar con varias condiciones en varias hojas   
    Hola @GabrielRaigosa Por lo que entiendo, el insiste en utilizar fórmula, que yo en lo particular no utilizaría fórmula cuando el archivo es demaciado grande, en fin,
    @CarlosKurt aqui te prepare una fórmula bien loca
    =SUMAR.SI.CONJUNTO(BANCO.1!C:C,BANCO.1!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.1!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.1!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.2!C:C,BANCO.2!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.2!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.2!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.3!C:C,BANCO.3!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.3!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.3!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.4!C:C,BANCO.4!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.4!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.4!B:B,RESUMEN!A4) Saludos amigo,
    Copia de PRUEBA.xlsx
  21. Thanks
    DiegoLG reacted to German in Cambiar nombre de hoja desde una celda   
    Hola estimado amigo Antoni (para amigos más "veteranos" Macro Antonio) es un placer volver a "hablar" contigo, espero que todo te vaya bien.
    Y volviendo al tema, he probado tu código y perfecto, ya que eran botones de formulario.
    Queda SOLUCIONADO, si necesito algo más abro otro post.
    Saludos cordiales a @DiegoLG y a tod@s, y un fuerte abrazo @Antoniy a @Gerson Pineda que se pasó por el post. 
  22. Thanks
    DiegoLG reacted to Antoni in Cambiar nombre de hoja desde una celda   
    Hola Germán:
    Prueba la macro.
    Sub MacroGermán() ActiveSheet.Name = Range("C2") For Each Control In ActiveSheet.Shapes If Control.Type = msoFormControl Then If Control.FormControlType = xlButtonControl Then Control.Delete End If End If Next End Sub Saludos 
    Nota: Solo funciona para botones de formulario, no para botones ActiveX.
  23. Like
    DiegoLG got a reaction from silver_axe007 in Cambiar nombre de hoja desde una celda   
    Sería así:
    ActiveSheet.Name = Range("C2") Saludos,
  24. Thanks
    DiegoLG reacted to Dr Hyde in Agrupar información en cada criterio   
    prueba con esta macro
    Sub copiar_categorias() Set h1 = Worksheets("catalogo") Set h2 = Worksheets("hoja3") Set datos = h1.Range("a2").CurrentRegion Set lista = h2.Range("a3").CurrentRegion filasd = datos.Rows.Count filasl = lista.Rows.Count Set resultado = h2.Range("f3").Resize(filasd, 2) With lista     For i = 1 To filasl         If i > 1 Then Set resultado = resultado.Rows(filasd + 1).Resize(filasd, 2)         resultado.Columns(1) = .Cells(i, 1)         resultado.Columns(2).Value = datos.Value     Next i End With Set resultado = Nothing: Set lista = Nothing End Sub  
  25. Thanks
    DiegoLG reacted to Gerson Pineda in Agrupar información en cada criterio   
    Hola Diego
    Te adjunto mi versión
     
    Saludos a ambos
    Agrupar Vba_GP.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png