Jump to content

isidrod

Members
  • Content Count

    241
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. 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
  2. Thanks
    isidrod reacted to Silvia in CONTAR VALORES UNICOS DE ACUERDO A VARIAS CONDICIONES   
    a ver esta...🙄
    Libro eoscar2.xlsx
  3. 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
  4. 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
  5. 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
  6. Thanks
    isidrod reacted to Silvia in Buscar y pasar datos entre hojas   
    sin las auxiliares..
     
     
    Gtos Km.Ok sq3.xls
  7. 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.
  8. 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  
  9. 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
  10. 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,"")
  11. 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,"")
  12. 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
  13. 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
  14. 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
  15. 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
  16. Thanks
    isidrod reacted to GabrielRaigosa in AGREGAR UNA EXTENSION FL !!   
    Adjunto archivo con lo que creo haber entendido.
    Copia de FL.xlsx
  17. 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
  18. 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
     
  19. 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!
  20. 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
  21. Thanks
    isidrod reacted to tierra_pampa in LEER ACCES DESDE EXCEL   
    Hola @josegomez
    Prueba el dato modificando la versión del programa que usas en la cadena: ( Microsoft.ACE.OLEDB.xx.0; )
    bd = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ruta & "\" & base_de_datos & ";Persist Security Info=False;" Conn.Open bd La macro funciona.
    Suerte!
  22. Thanks
    isidrod reacted to bigpetroman in Formulario de Advertencia   
    Saludos @Alonso Ojeda, algo sencillo que te puede servir, cada vez que actives la hoja se mostrara la informacion
     
    Suerte
     
    Permisolog.xlsm
  23. Thanks
    isidrod reacted to Antoni in Eliminar solo unas imágenes otras no, con macro   
    Y esto de regalo. Abre el adjunto y pulsa sobre la bola blanca.
    GOLF.xlsm
  24. Like
    isidrod reacted to DiegoPC in AÑADIR FILAS AUTOMÁTICAMENTE   
    Hola!
    Así como lo planteas... solamente con macros. Yo te diría que luches para no crear usuarios mancos... está bien que no sean profesionales en Excel pero es solo insertar filas, no es algo que requiera un elevado conocimiento ni profesionalismo, creo que no deberías acostumbrarlos a que hasta lo más pequeño se haga automáticamente y hacerlos despertar al menos las habilidades mínimas.
    Igual contribuyo a tu afán de crear usuarios zombies con una pequeña macro, en la segunda hoja está la configuración según el calibre.
    CONTROLES.xlsm
  25. Thanks
    isidrod got a reaction from Silvia in Quitar letras de un tabla   
    Sub quitar_letras() Dim lColumn As Long Application.ScreenUpdating = False With Worksheets("Hoja2").Range("A2:iv" & Cells(Rows.Count, "iv").End(xlUp).Column) .Replace What:="h", Replacement:="" End With Application.ScreenUpdating = True End Sub esta otra  solución
    saludos
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png