Leaderboard

Y a las demás personas que han intervenido ¿Que?

Pues a mi me ha salido esto. PRUEBA (2).xlsm

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!

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!

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

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

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

Esto hay que decirlo desde el principio 🙄

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

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

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

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

@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

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

¡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!

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

Hola Me he tomado un tiempito, para prepararte mi aporte Saludos Buscar y formatear letras_GP.zip

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

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

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.

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

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

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

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