Saltar al contenido

DiegoLG

Miembros
  • Contador de contenido

    675
  • Unido

  • Última visita

  • Days Won

    5

4Seguidores

Sobre DiegoLG

  • Rango
    DLG

Formas de contacto

Información de perfil

  • Sexo Hombre
  • Localización: México

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

1040 visitas de perfil
  1. AYUDA EN LENTITUD DE MACRO

    La verdad no descargue tu archivo. pero lo que podrías hacer es: crear un nuevo módulo mas de los 90 módulos que menciona @Haplox donde tienes que pegar este código: Sub OptimizaExcel(Activar As Boolean, Optional Agresivo As Boolean = False) Dim WS As Worksheet Dim PVT As PivotTable If Activar Then Application.DisplayAlerts = False Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Application.CutCopyMode = False If Agresivo Then For Each WS In ThisWorkbook.Worksheets If ThisWorkbook.PivotCaches.Count > 1 Then For Each PVT In WS.PivotTables PVT.CacheIndex = 1 PVT.SaveData = False Next PVT End If Next WS End If Else Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.CutCopyMode = True End If End Sub y en cada módulo pega al inicio: optimizarcodigos.OptimizaExcel True y al final: optimizarcodigos.OptimizaExcel false Espero que así pueda funcionar un poco mejor. Saludos mi estimado @Haplox
  2. HABILITAR MACROS

    Que tal @Jonhatan Morant , googleando un poco, existen programas que hace ese trabajo (Solo que son de paga), lo que hace es crear como .exe el archivo de excel, de repente lo que yo utilizo es el XLtoEXE (lo puedes descargar como demo). Saludos amigo @avalencia DLG.
  3. Estimado (a) porque no subes un archivo de ejemplo desde: donde se obtiene los datos y en donde se tiene que pegar y como tiene que quedar. Saludos,
  4. @EDGAR S. H. adjunto tu archivo, a mi si me funciona dale clic en la fecha azul y veras el resultado. La verdad no valide que hacen tus código, lo que tienes que hacer es validar el proceso de ejecución, es decir cual va primero y despues cual sigue y así sucesivamente. Saludos. ESHM.rar
  5. Si no quieres que salga inputbox: entonces sería así: Sub BUSCARV_EN_CÓDIGO() Dim BUSCAR As String BUSCAR = ActiveCell ActiveCell(, 2) = Application.VLookup(BUSCAR, Range("$AF$2:$AG$100"), 2, 0) End Sub
  6. Estimado @EDGAR S. H. aqui va otra forma, donde tu tienes que seleccionar la celda que quieres buscar y en donde quieres que ponga el resultado. Sub BUSCARV_EN_CÓDIGO() Dim BUSCAR As String BUSCAR = Application.InputBox("Valor a buscar") ActiveCell = Application.VLookup(BUSCAR, Range("$AF$2:$AG$100"), 2) 'En la celda activa pega el resultado End Sub Creo que ya tienes dos opciones para que tu decides cual tomar. Saludos amigo @Haplox
  7. Agrupar por proveedor, modelo y color.

    Si por supuesto! gracias amigo. Doy tema solucionado. Saludos,
  8. Agrupar por proveedor, modelo y color.

    Siempre hay que tomar con buen humor las cosas y como tu dices con humildad Y porsupuesto que lo seguiré intentando hasta conseguir, aunque con el aporte que me adjuntar me ayudó bastante para solucionar el problema (Pero seguiré intentando con tu código porque veo que si se puede ajustar). Mis respeto. Saludos y excelente día.
  9. Agrupar por proveedor, modelo y color.

    Buen día a todos. Que tal amigo @Gerson Pineda precisamente en mi tema anterior (Que se borro), adjunte el avance, a continuación adjunto nuevamente el borrador. Digo para que no piensen que no pongo mi granito de arena, no me considero un experto en este tema es por ello que me acudo a ustedes de vez en cuando. Como comenta el señor y maestro @Antoni a quien merece todo mi respeto, de lo que sé yo trato de ayudar a los demas, porque gracias a expertos como ustedes he aprendido ciertas cosas. Estimado amigos @ikanni y @tierra_pampa es justo lo que necesito, por lo que agradesco por el tiempo que le invirtieron a mi tema. Muchas gracias. Saludos y excelente día. Copia de Agrupar datos por hoja.xlsm
  10. Hola a todos amigos, resulta que ayer subí un tema que deplano no se que le habra pasado aqui en el foro, porque no encuentro ningun archivo resciente mio. Es por ello que subo nuevamente mi tema. Tengo una hoja donde tengo concentrado la información Hoja1 y lo que necesito esque dentro de esa hoja me vaya creando una nueva hoja por cada proveedor y que dentro de cada proveedor desglose el MODELO, TALLA (Esto viene dentro de la columna C) y COLOR. adjunto un archivo de ejemplo de como pretender tener el resultado fina.. De antemano muchas gracias por la atención prestada.. Saludos Desglosar por proveedor.xlsm
  11. Cual función y como debo hacer este problema

    @daniloexcel Ahora si quieres manejar un solo cálculo, es decir, saltar el paso de dividir primero y despues analizar si pasa o no pasa, podrías manejar de la siguiente manera, =SI((D2/3)>=70%,"Pasa","No pasa") Saludos,
  12. @Auvert: Eliminé varias hojas para poder adjuntar el archivo, se supone que ya no reemplaza los datos, si cambias el código 1 a 2 te va ir copiando en la Hoja facturas sin problemas. Lo mas fácil que encontré es crear celdas puentes para que en esas celdas copie los datos a la hoja Factura (yo se que hay varias formas ) Sub COPIAR() Application.ScreenUpdating = False UF = Hoja8.Cells(Rows.Count, "B").End(xlUp).Row Hoja1.Range("S4") = Hoja1.Range("C7")'Puente Hoja1.Range("T4") = Hoja1.Range("D7")'Puente Hoja1.Range("U4") = Hoja1.Range("G7")'Puente Hoja1.Range("V4") = Hoja1.Range("D10")'Puente Hoja1.Range("W4") = Hoja1.Range("D13")'Puente Hoja1.Range("X4") = Hoja1.Range("G12")'Puente Hoja1.Range("Y4") = Hoja1.Range("D16")'Puente Hoja1.Range("S4:Y4").Copy'Puente Hoja8.Cells(UF + 1, "B").PasteSpecial Application.CutCopyMode = False Hoja1.Range("S4:Y4").Clear End Sub Saludos, Copia de CONTROL DE INVENTARIO COPIA.xlsm
  13. Son estas celdas marcadas en color café?
  14. No entendi! yo te preguntaba: Porque lo unico que quieres es copiar datos de unas celdas (Hasta ahorita no me has dicho que celdas) y pasar en la hoja8 que es la que se llama "FACTURAS"
  15. @Auvert: ¿En que hoja se tiene que copiar los datos y (en que celdas)? ¿Entiendo que la información se tiene que ir guardando en la hoja llamada FACTURAS? Quedo en espera de tu respuesta. Saludos,
×