Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 04/18/2019 in all areas

  1. 2 points
    Antoni

    ComboBox carga muy lento

    Y a las demás personas que han intervenido ¿Que?
  2. 2 points
    Antoni

    cargar datos de hoja activa a listbox

    Pues a mi me ha salido esto. PRUEBA (2).xlsm
  3. 1 point
    Hola @jose lopez contreras Termino de probarlo y funciona correctamente. Por favor, prueba el formulario con ese único libro abierto. Te darás cuenta enseguida si lo cierra o no (también puedes controlar la hora de última grabación). Suerte!
  4. 1 point
    Hola @jose lopez contreras Con la orden "ActiveWorkbook.Close", VBA cierra el libro. Si se ejecuta, debiera cumplir con dicha orden. Puse tu código en un libro y lo cierra normalmente. Puedes darte cuenta en la pestaña "VISTA", con los botones "OCULTAR" y/o "MOSTRAR". Quizás puedes modificar la última orden de tu código: debe ser "TRUE" y también debiera estar encima de la orden de cerrar el libro. Application.ScreenUpdating = True ActiveWorkbook.Close Suerte!
  5. 1 point
    tierra_pampa

    Registro de de datos en form

    Hola @renato13 Te dejo la versión 3 del archivo. No es necesario hacer click en el botón "ORDER". Terminado el ingreso de datos, la macro ordenará la base considerando el último registro ingresado. 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. Gracias por el feedback! Suerte ae20190424_post41658_ReviArtDem_v3.xlsm
  6. 1 point
    Dr Hyde

    ComboBox carga muy lento

    una forma mas corta seria esta, como no mencionas si en tu hoja hay mas informacion hace una copia de tu informacion en la hoja2, elimina los duplicados y hace la carga al combobox Sub cargar_combo() Range("e2").CurrentRegion.Copy With Sheets("hoja2").Range("a1") .PasteSpecial .CurrentRegion.RemoveDuplicates Columns:=1 matriz = .CurrentRegion End With ComboBox1.List = matriz Sheets("hoja2").Cells.Clear End Sub
  7. 1 point
    Haplox

    ComboBox carga muy lento

    Otra forma Sub cargacombo1() Dim datos As New Collection Dim item n = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To n On Error Resume Next datos.Add Cells(i, "A"), CStr(Cells(i, "A")) Next i For Each item In datos ComboBox1.AddItem item Next item End Sub
  8. 1 point
    Haplox

    ComboBox carga muy lento

    Esto hay que decirlo desde el principio 🙄
  9. 1 point
    Dr Hyde

    ComboBox carga muy lento

    puedes usar una matriz de datos y la propiedad combobox1,list Sub cargar_combo() filas = Range("e1").CurrentRegion.Rows.Count matriz = Range("e1").Resize(filas, 1) ComboBox1.List = matriz End Sub
  10. 1 point
    renato13

    Registro de de datos en form

    Wow! Ferfecto es justo lo que quería. Un último favor más quiero que si al ingresar datos (fechas) en los 4 texbox se pinten con esos colores del ejemplo como el 1er ejemplo que me enviaste y por último como hacer para que con el botón "Order Dates" se ordenen las fechas que están en la columna "A" ya que se ingresa no siempre en orden de fecha pero luego si es importante que esté ordenado. Muchas gracias por dedicarme tu tiempo te agradezco un mundo ReviArtDem_v2.xlsm
  11. 1 point
    tierra_pampa

    Sumar dos texbox

    Hola @Arturo Castillo Chavez! Prueba si es lo que deseas. y si deseas limpiar los textbox, al finalizar: TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" 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! ae20190423_post41648_acc.xlsm
  12. 1 point
    tierra_pampa

    Registro de de datos en form

    Hola @renato13 Te pido revises la nueva versión. Tú comentas si te sirve. 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! ae20190423_post41658_ReviArtDem_v2.xlsm
  13. 1 point
    Gerson Pineda

    Eliminar multiples filas

    @JSDJSD el comando .Find es un invento maravilloso, verdad! Solo una acotación y como parte del inicio del formulario, para llenar el Listbox, yo lo hago así: Private Sub UserForm_Initialize() With Me.ListBox1 .ColumnCount = 14 .ColumnWidths = "50 pt; 50pt; 50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt;70 pt; 50 pt;" .RowSource = Hoja3.UsedRange.Address(, , , 1) End With End Sub Saludos
  14. 1 point
    Gerson Pineda

    FILTRAR INGRESO MENSUAL ACUMULADO

    Yo lo he leído y visto el archivo, pero no tengo ideas aun de lo que se busca, ahora me siento mas tranquilo! Saludos a ambos
  15. 1 point
    johnmpl

    FILTRAR INGRESO MENSUAL ACUMULADO

    ¡Hola, luchito11! Para ayudarte de mejor manera, ayudaría que coloques un par de ejemplos con un antes y un después, en tu mismo archivo. ¡Bendiciones!
  16. 1 point
    tierra_pampa

    Registro de de datos en form

    Hola @renato13 Fijate si es más o menos lo que necesitas. 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! ae20190422_post41658_ReviArtDem.xlsm
  17. 1 point
    Hola Me he tomado un tiempito, para prepararte mi aporte Saludos Buscar y formatear letras_GP.zip
  18. 1 point
    Hola luis Puedes automatizarlo desde VBA, tal que: Sub ConfiguracionParaImprimir_GP() With Hoja1 'o ActiveSheet .PageSetup.PrintArea = .Range("A1:G20").Address(, , , 1) 'AREA DE IMPRESION .PageSetup.FitToPagesWide = 1 'A UNA HOJA '.PageSetup.FitToPagesTall = 1 .PageSetup.Orientation = xlPortrait 'VERTICAL, xlLandscape HORIZONTAL .PageSetup.PaperSize = xlPaperA4 'xlPaperLetter xlPaperLegal .PrintPreview End With End Sub Y puedes configurar mas con la propiedad .PageSetup Saludos
  19. 1 point
    Otra forma: Sub DíaSemana() Dim Día As Variant, x As Long Application.ScreenUpdating = False Día = Array("", "Lunedi", "Martedi", "Mercoledi", "Giovedi", "Venerdi", "Sabato", "Domenica") For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("B" & x) = Día(Weekday(Range("A" & x), vbMonday)) Next End Sub
  20. 1 point
    1) lista de países: - https://www.countries-ofthe-world.com/all-countries.html - https://www.nationsonline.org/oneworld/countries_of_the_world.htm - http://www.worldometers.info/geography/how-many-countries-are-there-in-the-world/ - https://en.wikipedia.org/wiki/List_of_sovereign_states 2) lista de ciudades por país: - https://en.wikipedia.org/wiki/Lists_of_cities_by_country OJO: en la lista de ciudades de cada país, al final hay una lista de ciudades por provincia/estado/condado/... (indicada en rojo italicas) algunas se acompañan de su "entidad federativa" (estado) los municipios enunciados son solo los principales (los secundarios no aparecen en estas listas) 3) hay que hacer una buena "talacha" de depuración y arreglo saludos, hector.
  21. 1 point
    JSDJSD

    cargar datos de hoja activa a listbox

    Hola howling, prueba el adjunto y comenta PRUEBA(1).xlsm
  22. 1 point
    JSDJSD

    Eliminar multiples filas

    Hola jose lopez contreras, prueba el adjunto y comenta, el borrado de líneas se hace mediante un doble Click sobre la línea que deseas borrar tanto filtrando como sin filtrar. https://www.dropbox.com/s/ivnz5h9n1wq3hz9/SALIDAS (2) .xlsm?dl=0
  23. 1 point
    Gerson Pineda

    No funciona el complemento

    Paso algo similar donde trabajo, el sistema contable no tiene la forma de números a letras, entonces les compartí el complemento y de como instalarlo en sus PC, ahora cada quien lo utiliza Es similar como adquirir un complemento cualquiera, cada uno debe instalarlo en su PC, para su uso Saludos
  24. 1 point
    isidrod

    No funciona el complemento

    subo esta función a ver si le sirve Function PesosMN(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, i As Variant 'Si esta como Option Explicit tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For i = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case i Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next i Select Case lnNumeroBloques Case 1 PesosMN = lcBloque Case 2 PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN Case 3 PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN End Select lnNumeroBloques = lnNumeroBloques + 1 Loop Until lyCantidad = 0 PesosMN = "(" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)" End Function saludos isidro


  • Newsletter

    Want to keep up to date with all our latest news and information?

    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy