Jump to content

isidrod

Members
  • Content Count

    254
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. 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  
  2. 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
  3. 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,"")
  4. 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,"")
  5. 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
  6. 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
  7. 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
  8. 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
  9. Thanks
    isidrod reacted to GabrielRaigosa in AGREGAR UNA EXTENSION FL !!   
    Adjunto archivo con lo que creo haber entendido.
    Copia de FL.xlsx
  10. 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
  11. 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
     
  12. 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!
  13. 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
  14. 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!
  15. 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
  16. 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
  17. 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
  18. 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
  19. Thanks
    isidrod got a reaction from Silvia in Quitar letras de un tabla   
    a ver  si con este te funciona @alistair
    Sub quitar_letras() Application.ScreenUpdating = False With Worksheets("Hoja1").Range("D4:K" & Range("D65536").End(xlUp).Row) .Replace What:="h", Replacement:="" End With Application.ScreenUpdating = True End Sub en mi equipo funciono
    saludos isidro
  20. Like
    isidrod got a reaction from Silvia in CONTROL DE GASTOS DE REVISTAS   
    buen día @ROVER1965  yo lo haría así sencillo con este tipo de formula y con mi poco conocimiento que tengo, pero los experto en  excel puede hacerlo mas brillante  que  apoyan en este foro
    ejemplo control de revistas.xlsx
  21. Like
    isidrod reacted to Antoni in Ayuda con busqueda de fecha marco   
    He tenido que modificar algunos conceptos porqué estaban duplicados (GAS, OTROS,..).
    NUEVO REPORTE FINAL.rar
  22. Thanks
    isidrod got a reaction from SALAVERRINO in FUSIONAR CONSOLIDADOS   
    checa este otro link
    https://www.extendoffice.com/es/documents/excel/456-combine-multiple-workbooks.html
     
  23. Like
    isidrod reacted to Antoni in Descomponer fechas con Macro   
    Se toma como base el año de la celda A2.
    Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub  
  24. Like
    isidrod reacted to Vladimir in Descomponer fechas con Macro   
    Hola a todos.
    Prueba el adjunto.
    Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento.
    V-descomponer_fech.rar
  25. Like
    isidrod reacted to Héctor Miguel in Macro une varias columnas en una sola   
    cambia esta línea:
    por esto:
    Cells(k, col + UBound(rango, 2) + 2).Value = rango(i, j)  
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png