Jump to content

isidrod

Members
  • Content Count

    243
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. Like
    isidrod got a reaction from davidgorros12 in Copiar Rangos de diferentes libros a un unico libro   
    @davidgorros12 buen día te  dejo  este a ver si te funciona y es lo que buscas
    saludo isidro
  2. Like
    isidrod got a reaction from Gerson Pineda in uso de botones de opción al mismo tiempo   
    @howling buen día un favor no escribas tus mensajes en mayúsculas, porque eso quiere decir que estas gritando
    gracias que tengas un excelente dia
    saludos isidro
  3. Haha
    isidrod reacted to GabrielRaigosa in Administrador de Nombres   
    Un poco de humor informatico...

  4. Like
    isidrod reacted to Sergio in Automatizar fórmula para datos entre fechas   
    @johnmpl, en el videotutorial que he mencionado utilizaré la función FIN.MES para determinar el último día del mes de la fecha. Eso acorta bastante las fórmulas que has propuesto.
  5. Thanks
    isidrod reacted to Sergio in Automatizar fórmula para datos entre fechas   
    @Haplox, precisamente mañana tenía agendado grabar un videotutorial  sobre algo parecido: desde un listado de movimientos bancarios, crear un cuadro de ingresos y gastos detallado por meses.
    Estate atento  a la web.
  6. Thanks
    isidrod reacted to Antoni in Optimizar macro de Codigo de Barras   
    Hola:
    Aquí te dejo la macro corregida para que puedas procesar todos los códigos que quieras en la columna A.
    Dado que es un proceso bastante lento (1 código/segundo mas o menos), he puesto un seguimiento en la barra de estado de Excel para que veas la situación de la ejecución.
    Saludos
    Code39 múltiple.xls
  7. Thanks
    isidrod reacted to Silvia in CONTAR VALORES UNICOS DE ACUERDO A VARIAS CONDICIONES   
    a ver esta...🙄
    Libro eoscar2.xlsx
  8. Like
    isidrod reacted to JSDJSD in uso de SUBTOTAL en Macro   
    Hola segalo, te dejo un ejemplo para ver si es más o menos lo que necesitas.
    ejemplo1.xlsb
  9. Like
    isidrod reacted to johnmpl in REPETIR FILA EL NUMEROS DE VECES QUE INDIQUE UNA COLUMNA   
    ¡Hola, a ambos!
    Esta podría ser una forma con fórmulas para lo que necesitas.  Si necesitas más repeticiones de las 20 que te dejo en el ejemplo adjunto, solamente arrastra la fórmula hasta donde la necesites (o un poco más).  ¡Bendiciones!
    ejemplo (9).xlsx
  10. Like
    isidrod reacted to Antoni in REPETIR FILA EL NUMEROS DE VECES QUE INDIQUE UNA COLUMNA   
    Con fórmulas no se, pero te adjunto una pequeña macro de evento.
    Haz doble-click en cualquier celda de la columna B (B2 en el ejemplo que has subido)
    La macro solo actúa si la siguiente fila está vacía.
    ejemplo (4).xlsm
  11. Thanks
    isidrod reacted to Silvia in Buscar y pasar datos entre hojas   
    sin las auxiliares..
     
     
    Gtos Km.Ok sq3.xls
  12. Like
    isidrod reacted to avalencia in No pedir contraseña de un libro vinculado   
    Ajá, dale, tienes razón. Coloca esto en el módulo del libro (borra lo que tienes ahora):
    Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.UpdateLinks = xlUpdateLinksNever End Sub Private Sub Workbook_Open() Workbooks.Open Filename:=ThisWorkbook.Path & "\2.xlsx", Password:="123" Workbooks("2.xlsx").Close False End Sub Ahora guárdalo y ciérralo, abre el archivo llamado "2", cambia cualquier valor de los que "alimentan" los vínculos, cierra dicho libro y vuelve a abrir el archivo de las macros y vínculos. Ahora ya no debería preguntarte nada. Saludos y discúlpanos el lapsus.
  13. Thanks
    isidrod reacted to Antoni in separar texto en renglones   
    Lo mismo que Leopoldo, pero con algo de cosecha propia.
    Sub DividirTexto_Antoni() Dim PRO As Variant, Texto As Variant Dim Columna As Integer, VAL As Variant Dim Fila As Integer, x As Integer '-- Texto = [C4] Texto = Replace(Texto, "Cantidad", "") Texto = Replace(Texto, "valorUnitario", "") Texto = Replace(Texto, "Importe", "") Texto = Replace(Texto, "Descripción", "") Texto = Replace(Texto, " ", "") Texto = Replace(Texto, "| ", "|") Texto = Replace(Texto, " |", "|") '-- Fila = 5 PRO = Split(Texto, Chr(10)) For x = 0 To UBound(PRO) - 1 VAL = Split(PRO(x), "|") Fila = Fila + 1 For Columna = 1 To 4 Cells(Fila, Columna + 3) = VAL(Columna) Next Next End Sub  
  14. Thanks
    isidrod reacted to Leopoldo Blancas in separar texto en renglones   
    Hola,
     
    Prueba con:
    Sub DividirTexto_LBV() Dim aA, n&, m&     aA = Split(Range("C4"), Chr(10))     m = 15     For n = LBound(aA) To UBound(aA)         Cells(m, "C") = Replace(Mid(aA(n), InStr(1, aA(n), "Descripción", vbTextCompare) + 14), Chr(13), "")         m = m + 1     Next n End Sub
    NOTA: Si tienes dudas del Código Puedes preguntar... 
    Saludos
  15. Like
    isidrod got a reaction from Xanito in Funcion CONTAR.SI.CONJUNTO   
    bueno ahí te dejo el mio a ver si te funciona 
    =SI(CONTAR.SI.CONJUNTO($B$6:$B$11,B6)=1,C6*0.3,"")
  16. Like
    isidrod got a reaction from Xanito in Funcion CONTAR.SI.CONJUNTO   
    bueno ahí te dejo el mio a ver si te funciona 
    =SI(CONTAR.SI.CONJUNTO($B$6:$B$11,B6)=1,C6*0.3,"")
  17. Like
    isidrod reacted to Leopoldo Blancas in AGREGAR UNA EXTENSION FL !!   
    Hummm creo que ya le entendí lo que necesita el compañero, 
    Yo prefiero las Macros antes que Power Query... Hasta que aprenda Power Query.😂😂😂
     
    Con solo unos pequeños cambios en la Macro...
     
     
     
    Saludos.
    FL_LBV.xlsm
  18. Like
    isidrod got a reaction from juan Ignacio in AGREGAR UNA EXTENSION FL !!   
    @Leopoldo Blancasme atreví a hacerlo con formula  y envió mi pequeño ejemplo a ver si es así juan ignacio
    saludos isidro
    FL.xlsm
  19. Like
    isidrod got a reaction from juan Ignacio in AGREGAR UNA EXTENSION FL !!   
    @juan Ignacio que bueno que ya se soluciono, @Leopoldo Blancas solo queda con macros para para que el archivo  sea menos pesado y gracias @GabrielRaigosa por llegar con tus formulas al rescate y PQ
    saludos isidrod
  20. Like
    isidrod got a reaction from juan Ignacio in AGREGAR UNA EXTENSION FL !!   
    @juan Ignacio que bueno que ya se soluciono, @Leopoldo Blancas solo queda con macros para para que el archivo  sea menos pesado y gracias @GabrielRaigosa por llegar con tus formulas al rescate y PQ
    saludos isidrod
  21. Thanks
    isidrod reacted to GabrielRaigosa in AGREGAR UNA EXTENSION FL !!   
    Adjunto archivo con lo que creo haber entendido.
    Copia de FL.xlsx
  22. Like
    isidrod got a reaction from juan Ignacio in AGREGAR UNA EXTENSION FL !!   
    @Leopoldo Blancasme atreví a hacerlo con formula  y envió mi pequeño ejemplo a ver si es así juan ignacio
    saludos isidro
    FL.xlsm
  23. Like
    isidrod reacted to Silvia in Formula para cambio de estatus   
    hola Carusha (y Leopoldo 😉 )
    otra opción
    =SI.ERROR(ELEGIR((C9<>"")+CONTARA(H9:O9),"Programado","Tránsito Vacío","En Espera de Carga","Cargando","Cargado","Tránsito","En Espera de Descarga","Descargando","Disponible"),"") mi separador de argumentos es la coma, si el tuyo es otro, corriges
    saludos,
    Silvia
     
  24. Like
    isidrod reacted to johnmpl in Formula que me arroje el ultimo resultado   
    ¡Hola, @Carusha!
    Puedes usar la siguiente fórmula, en C2 y arrastrar hacia abajo según tu necesidad:
    =SI(B2;BUSCAR(2;1/(Programación!B$4:B$13=A2);Programación!D$4:D$13);"") Nota: Mi separador de argumentos es ";".  Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema.  ¡Bendiciones!
  25. Thanks
    isidrod reacted to Gerson Pineda in listbox copiar coincidencias   
    Hola a ambos
    @AndreaZu 
    Te adjunto una solución
     
    Saludos
    Buscar desde formulario Vba_GP.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png