Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 07/03/2020 in all areas

  1. 8 points
    Antoni
    Cálculo de rutas de montaña
  2. 5 points
    Sergio
    Antoni, no sé si eres consciente, pero en más de una ocasión nos has sacado de apuros (por lo menos a mí). Por algo encabezas la lista de máximos contribuidores, ¿no? Aprovechando el mensaje, quiero agradecerte personalmente la labor valiosísima que haces en el foro.
  3. 4 points
    Antoni
    Me aburría y he hecho esto. Abre el adjunto y pulsa sobre la flecha verde. Nota: Si utilizas una tabla en la propiedad RowSource de un listbox/combobox e intentas añadir/eliminar una fila da error, para evitarlo, debes desvincular la tabla del control y volver a cargarlo. En el archivo que he subido verás como hacerlo. 🙂😷 Inventario.xlsm
  4. 4 points
    Antoni

    Filtrar listbox con dos combobx

    JSDJSD and 3 others reacted to Antoni for a post in a topic

    A mi se me ha ocurrido esto, a ver que tal. consulta filtro combobox (2).xlsb
  5. 4 points
    tierra_pampa

    Filtrar listbox con dos combobx

    JSDJSD and 3 others reacted to tierra_pampa for a post in a topic

    Hola @Jose BN Aquí te dejo una propuesta para ver si encaja con lo que necesitas. Cualquier modificación, por aquí andaremos. Que tengas una buena jornada! Suerte! ae20200725_post43798_consulta filtro combobox.xlsb
  6. 4 points
    Antoni
    Solo añadir que estás confundiendo el objeto con el nombre del objeto Además, no es necesario seleccionar la hoja cada vez Dim Hoja As Worksheet Dim Libro As Workbook For Each Libro in Workbooks For Each Hoja in Libro.Sheets With Hoja.Cells ... ... End With Next
  7. 4 points
    bigpetroman
    saludos @paikerr, simplemente elimina las lineas Set libro = ActiveWorkbook.Name Set hoja = ActiveWorksheet.Name NO es necesario pues libro y hoja ya hacen referencia a cada uno de los objetos y cambia esta For Each hoja In Worksheets por esta otra For Each hoja In libro.Worksheets
  8. 4 points
    Antoni

    ANSWERED FORMULARIO E INVENTARIO CON IMAGEN

    Visor and 3 others reacted to Antoni for a post in a topic

    Descarga el adjunto desde el enlace a MEGA: Enlace Crea una subcarpeta con el nombre FOTOS Pon en ella las imágenes con un nombre igual al código de producto, ejemplo: 007.jpg
  9. 3 points
    tierra_pampa
    Hola @jeaa Amigo, aquí te dejo una nueva versión (modificada para ver si podemos salvar el error que te saca fuera de la aplicación) Te agregué un formulario para que te haga las veces de formulario principal (menú). Si te continúa dando problemas, lo vemos. Qué tengas un buen día! ae20200731_post43836_inventario v2.xlsm
  10. 3 points
    Mauricio_ODN
    Hola @jeaa Envió tu archivo de vuelta. Tarda un poco, por que después de cada registro, en el código quitas el UserForm en cuestión y lo vuelves a cargar.(No le veo propósito) No me marca error, pero hay algunos eventos que no tienen código, por lo que no tiene sentido que los tengas registrados. Nos comentas Inventario1.1.xlsb
  11. 3 points
    Antoni
    Tienes un lío conceptual impresionante, intentaré subirte algo hoy y si no, mañana.
  12. 3 points
    Antoni
    Sin el archivo con el formulario y datos para probar es difícil darte una respuesta. De todas formas hay algo que no se entiende, ¿Como pretendes hacer click en la option si la ocultas? ¿No deberías usar un botón?, lo dicho, sin el archivo Excel, no hay nada que hacer. Prueba así: Private Sub OptionButton1_Click() If IsNumeric(Label1) Then Do: cantpeq = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR") If IsNumeric(cantpeq) Then Label4 = Label1 - cantpeq Label5 = Label2 Label6 = Label3 Label7 = Label9 Label8 = Label10 Label12 = Label11 End If Loop While Not IsNumeric(cantpeq) End If End Sub
  13. 3 points
    Gerson Pineda

    Facturas y sus Pagos

    RubenDario and 2 others reacted to Gerson Pineda for a post in a topic

    Hola Ruben Usar SUMARSI con 20mil registros no me parece para que Excel se ralentice, a menos que sea por otras mas razones, pe: si tu archivo esta lleno de mas hojas, con demasiadas formulas [entre ellas volátiles], referencias a columnas completas y formato condicional, puede ser lo que ocasiona tu problema Además para realizar una TD, necesitas tener tus datos en forma tabular o como una especie de BD, pero este no es tu caso Te adjunto una opción con VBA, solo presionas ctrl+k y listo Saludos SumarSi Evaluate VBA_GP.xlsm
  14. 3 points
    tierra_pampa

    Trasladar Datos de Origen a Destino

    Visor and 2 others reacted to tierra_pampa for a post in a topic

    Hola amigo! Por favor, bajo ningún punto de vista, lo tomes como un enojo. Simplemente entendí que habías dejado de lado el archivo y por ello te escribí. No necesitas disculparte en lo más mínimo y, acepta que sea yo quien ofrezca mis más sinceras disculpas por no saber escribir lo que realmente quiero expresar. Que tengas un buen día! Suerte!
  15. 3 points
    Mauricio_ODN
    Hola @SebastianFelipe Espero sea de utilidad, Nos comentas. error 1004_1.1.xlsm
  16. 3 points
    Mauricio_ODN
    @jhon fredy Use como modelo el código del maestro @Antoni. Saludos. IsEven1.2.xlsm
  17. 3 points
    JSDJSD
    Descarga el archivo, descomprÍmelo y pon los archivos en este caso en tu escritorio, cambia la ruta por la tuya.... Set rngDestino = Workbooks.Open("C:\Users\JSD\Desktop\PlanillaDestino.xlsm").Worksheets("EGRESOS") _ .Cells(Rows.Count, "a").End(xlUp).Offset(1) debes cambiar lo marcado en color verde, es decir borrar lo que hay y porner el nombre de tu equipo, este cambio debes realizarlo en el botón traspasar. Prueba y comenta. Origen destino.rar
  18. 3 points
    Antoni

    MACRO PARA LIMPIAR CELDAS

    Leonardo Briceño and 2 others reacted to Antoni for a post in a topic

    Otra opción, asigna esta macro al botón "M": Sub Borrar() If MsgBox("¿Desea borrar las columnas A:C, E:G de la fila de la celda activa?", vbQuestion + vbYesNo) = vbYes Then If MsgBox("¿Está seguro?", vbQuestion + vbYesNo) = vbYes Then Range("A" & ActiveCell.Row).Resize(1, 3).ClearContents Range("E" & ActiveCell.Row).Resize(1, 3).ClearContents Exit Sub End If End If MsgBox "*** Operación de borrado cancelada ***", vbInformation End Sub
  19. 3 points
    Gerson Pineda
    Es que no habías mencionado que estabas usando un evento, o puedes ser opción para ti, lo que yo te mande fue pensando que estas usando un formulario o algún botón Saludos a todos!
  20. 3 points
    GabrielRaigosa

    ANSWERED Error en "contar.si"

    laubreeze and 2 others reacted to GabrielRaigosa for a post in a topic

    También se puede hacer con "&" como lo intentó al principio =A1&"-"&B1&SI(ESBLANCO(C1),"","-")&C1 Agregando el =SI(
  21. 3 points
    DiegoLG

    Calculo Amortizacion

    Cristian 1985 and 2 others reacted to DiegoLG for a post in a topic

    Checa el archivo, =SUMAR.SI.CONJUNTO(F3:Q3,$F$2:$Q$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(S3:AD3,$S$2:$AD$2,"<="&$C$1)+SUMAR.SI.CONJUNTO(AF3:AQ3,$AF$2:$AQ$2,"<="&$C$1) Saludos, Diego. Copia de Prueba.xlsx
  22. 3 points
    JSDJSD
    Prueba y comenta, veras que en el combobox te aparecen solamente valores únicos y ordenados alfabeticamente. listbox-comboboxPrueba(2).xlsm
  23. 3 points
    Sergio
    @pixelatumente, te recomiendo que rellenes los campos de tu perfil referentes al separador de argumentos y versión de Excel que usas. Con Excel 365 hay una respuesta fácil a tu consulta.
  24. 3 points
    Antoni
    Revisa el adjunto. Adeudos.xlsm
  25. 3 points
    Antoni

    macro filtro con varias condiciones

    Sergio and 2 others reacted to Antoni for a post in a topic

    He añadido las hojas CRITERIOS y FILTRO, si quieres puedes unificarlo todo en una sola hoja. Abre el adjunto y pulsa sobre la flecha azul. Sub FiltroAntoni() 'Vale para cualquier rango y criterios With Sheets("ALMACEN") If .FilterMode Then .ShowAllData .Range("A1").CurrentRegion.AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("CRITERIOS").Range("A1").CurrentRegion, _ CopyToRange:=Sheets("FILTRO").Range(.Range("A1").CurrentRegion.Address) End With Sheets("FILTRO").Select End Sub Filtro Antoni.xlsm
  26. 3 points
    pegones1

    Version 1.0.0

    14 downloads

    La pandemia del coronavirus hace que sea de rabiosa actualidad la crisis económica que está provocando en todo el mundo y, en concreto, las enormes tasas de desempleo que se están padeciendo en todos los países. Acabo de publicar datos históricos de las tasas de desempleo anuales en los países de la UE desde 1990 hasta 2019 para poder compararlos mas adelante con el desempleo provocado en 2020 por el Covid-19. Puedes leerlo en mi blog: Tasas de desempleo de la UE https://pedrowave.blogspot.com/2020/06/tasas-de-desempleo-de-la-ue.html No he usado ninguna herramienta MS Power pues la plantilla está diseñada totalmente en Excel, para que sea de mayor difusión, partiendo de un artículo del gran Robert Mundigl, autor del magnífico blog Clearly and Simply, como puedes leer en la nueva entrada de mi blog, desde donde puedes descargarte la plantilla e interactuar con ella. Gracias anticipadas por tus comentarios que, aunque no sean benévolos pueden ayudarme a mejorar.
  27. 3 points
    JSDJSD
    Hola Jose BN, prueba el adjunto y comenta. Consulta copiadoPrueba1.xlsm
  28. 3 points
    Mauricio_ODN

    ANSWERED Numero de Semana en VBA

    petercien1 and 2 others reacted to Mauricio_ODN for a post in a topic

    Saludos a todos. Una posible opción. ejemplo.xlsm
  29. 3 points
    Gerson Pineda
    Visor He tenido un tiempito hoy, así que envío mi versión, revísalo y nos comentas Saludos a ambos! Importar datos de otro libro_GP.zip
  30. 3 points
    Antoni

    Sumar varios Texbox en tiempo real

    Mauricio_ODN and 2 others reacted to Antoni for a post in a topic

    Lo de formatear y el tiempo real, va a ser que no, o lo uno o lo otro, tu eliges. Te dejo un ejemplo de lo que yo haría. Libro1.xlsm
  31. 3 points
    Mauricio_ODN

    ANSWERED Reemplazar guion por coma

    Visor and 2 others reacted to Mauricio_ODN for a post in a topic

    @manzano Saludos Guion x coma 1.1.xlsm
  32. 3 points
    Antoni
    Me vais a hacer llorar. 😂😂😘😷. Suerte a todos en estos tiempos difíciles.
  33. 3 points
    Gerson Pineda
    Es un reconocimiento mas que merecido, para alguien como tu @Antoni Que todo vaya bien allá por tu lado, con esta "pandemia" Saludos
  34. 2 points
    Mauricio_ODN
    Hola @MauriciodeAbreu Te dejo mi aporte, Nos comentas. PD. Solo modifique las propiedades: LEFT yTOP Formulario1.1.xlsm
  35. 2 points
    Silvia
    hola Diego (y Luis Caballero) adjunto otra posible solución Saludos, Silvia sq.xlsx
  36. 2 points
    Haplox

    Transpose

    avalencia and one other reacted to Haplox for a post in a topic

    Muy bonito @CECILIO , ¿Y ahora qué hacemos?
  37. 2 points
    Jose BN

    MACRO PARA LIMPIAR CELDAS

    Leonardo Briceño and one other reacted to Jose BN for a post in a topic

    Esto creo que te puede servir de algo.
  38. 2 points
    tierra_pampa
    Hola @ramonvar!!! Te dejo un archivo para que controles si he entendido tu solicitud (pon los nombres de cada uno de los archivos en las celdas dónde se solicita y puedes modificar la columna origen y/o destino a tu necesidad en el cuadro que se acompaña). Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20200724_PlanillaOrigen.xlsm
  39. 2 points
    JSDJSD

    Ayuda con Gráfico segunda parte

    Jose BN and one other reacted to JSDJSD for a post in a topic

    Te dejo otra opción audiometriaPrueba(2).xlsm
  40. 2 points
    GabrielRaigosa

    indice

    Jose BN and one other reacted to GabrielRaigosa for a post in a topic

    Para Excel 2010 existe un Complemento gratuito llamado Power Query, lo descarga de la web oficial de Microsoft: https://www.microsoft.com/es-es/download/details.aspx?id=39379 Hay versiones; para 32 y 64 bits Desde la tabla (Base de datos), hace una consulta y filtra los campos con los criterios que necesita Si no lo ha usado busca videos en Youtube, hay muchos y es muy fácil de utilizar. Filtro con Power Query - Excel 2010.xlsx
  41. 2 points
    Sergio
    @pixelatumente, en las fórmulas del archivo que adjuntas hay muchos errores de introducción de datos. He corregido las fórmulas. =SI.ERROR(INDICE($G$3:$G$7; K.ESIMO.MENOR(SI(CONTAR.SI($B3; "*"&$G$3:$G$7&"*"); COINCIDIR(FILA($G$3:$G$7);FILA($G$3:$G$7)); ""); COLUMNAS($A$1:A1))); "") Está preparada para que la introduzcas en la celda C3.
  42. 2 points
    Marcos14
    Chicos ya lo tengo gracias por vuestro interés y gracias por tu aporte @Mauricio_ODN aqui teneis el archivo con las rectificaciones que le ice. Por mi tema cerrado TREEVIEW.xlsm
  43. 2 points
  44. 2 points
    Mauricio_ODN
    Hola @Marcos14 Te dejo una posible solución. De cualquier forma estemos al pendiente de lo que @Antoni (¡Saludos Maestro!) vaya a compartirnos. Nos comentas. TREEVIEW.xlsm
  45. 2 points
  46. 2 points
    bigpetroman

    Macros para Distribuir deuda

    Jose BN and one other reacted to bigpetroman for a post in a topic

    Saludos @rsoto.conta te dejo una forma, es las mas simple, ordenas la deuda, y vas asignando valores maximo y minimo a cada cobrador, al final la distribución es uniforme, lo único es que si el valor máximo es muy diferente al resto, pues siempre el primer seleccionado de seguro tendrá un promedio mucho mayor Distribuir Deuda.xlsm
  47. 2 points
    DiegoLG
    Checa el archivo: Sub Copia() Application.ScreenUpdating = False Dim Uf As String Dim Ul As Long Ul = Hoja2.Range("G" & Rows.Count).End(xlUp).Row + 2 Uf = Hoja1.Range("G" & Rows.Count).End(xlUp).Row Hoja1.Range("A2:N" & Uf).AutoFilter Field:=7, Criteria1:=">0" Hoja1.Range("A3:N10000").SpecialCells(xlCellTypeVisible).Copy Destination:=Hoja2.Cells(Ul, 1) Hoja1.Range("A3:N" & Uf).EntireRow.Delete Hoja1.Range("A2:N" & Uf).AutoFilter Application.ScreenUpdating = True End Sub Copia de Consulta copiado.xlsm
  48. 2 points
    Gerson Pineda
    Hola! Para fin de mes, prueba con Application.EoMonth Saludos a todos!
  49. 2 points
    JSDJSD

    ANSWERED Numero de Semana en VBA

    petercien1 and one other reacted to JSDJSD for a post in a topic

    Coloca en la celda B2 la siguiente formula: =NUM.DE.SEMANA(A2)-NUM.DE.SEMANA(FECHA(AÑO(A2);MES(A2);1))+1
  50. 2 points
    Antoni
    Esto si que es una forma de agradecer,......😅😒 Agradecimiento


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy

  I accept