Dante Amor

Después de cargar tu combobox según el filtro debes agregar una línea como esta: Label1.Caption = "Resgistro 0 de " & ComboBox1. ListCount Y para cuando selecciones un operador del combo, entonces pon el siguiente evento: Private Sub...

Esta puede ser una opción. Al principio de todo tu código pon la siguiente línea: Dim salida As MSForms.TextBox Estamos declarando la variable salida como una variable global, será del tipo textbox. Tus botones del 0 al 1 quedarían de esta forma:...

Quedaría de esta forma: TextBox2 = Format(h.Cells(b.Row, "C"), "hh:mm:ss AM/PM")'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda

Pero no pusiste el código que tienes de sdir, supongo que es una función. Te anexo lo siguiente para ver si te ayuda. Sub archivo() 'Por Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h11 = Sheets("Hoja1") Set h12 =...

Te anexo la macro para crear un archivo csv (delimidato por comas), por cada fila de la hoja1 Sub Crear_Csv() 'Por Dante Amor ' ' Crea un csv por cada línea ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook...

Revisa el siguiente artículo y trata de adaptarlo a tus necesidades https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html

Cambia esta línea Application.Run "ATPVBAEN.XLAM!Regress", Range("$AY$4:$AY$43"), _ Range("$AV$4:$AV$43"), False, False, , ActiveSheet.Range("$BL$3" _ ), False, False, False, False, , False Por estas u1 = Range("AY" & Rows.Count).End(xlUp).Row u2 =...

Te anexo la macro. Realiza los siguientes ajustes en la macro: Cambia "C:\trabajo\Enfermos\" por la carpeta donde tienes los archivos de enfermos Cambia "Enfermo tipo.txt", por el nombre de archivo tipo. Nota: este archivo deberá estar también en la...

Para realizar una búsqueda puedes utilizar el método .Find, por ejemplo: Sub Buscar_Dato() Set b = Sheets("Hoja1").Columns("A").Find("COLOMBIA", lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado " & b.Value Else MsgBox "el dato no...

Pero en esta línea NumeroDatos = Base.Range("A" & Rows.Count).End(xlUp).Row Que es "Base" es el nombre de una hoja, si es así, entonces debería ser así: NumeroDatos = sheets("Base").Range("A" & Rows.Count).End(xlUp).Row En cuanto a esto: Esa es una...