Dante Amor

h o l a: Envíame tu archivo con el formulario y me explicas con ejemplos lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “os- consulting” y el título de esta pregunta.

H o l a : Cuando utilizas el método .Hide es para ocultar el formulario, significa que el formulario no se visualiza pero sigue en memoria. Para cerrar el formulario completamente utiliza la sentencia Unload, por ejemplo: Unload Buscar De ese forma...

H o l a : El ejemplo que pusiste no es claro. En la primera imagen tienes 2 criterios y en la segunda imagen tienes 3 criterios. Los criterios de la imagen1 no coinciden con los de la imagen2. En la imagen1 tienes 06 y en la imagen2 no se ve ningún...

H ol a: Pon tu función Hrst( ) en un módulo Function Hrst(FechaInicial As Date, FechaFinal As Date) Hrst = (FechaInicial - FechaFinal) * 24 End Function La macro DescribeFuncionHrsT para agregar las opciones de la función Hrst, la debes agregar de...

H o l a : Te anexo la macro para cargar un archivo desde una ruta y un nombre. Solamente cambia la ruta y el nombre del archivo en esta parte de la macro: ruta = "C:\trabajo\" archivo = "a.txt" Pon la macro en un archivo de excel, en la hoja que...

H o l a : Lo que hice alguna vez, es solicitar el número, entonces en una fila vacía se pone un número consecutivo, ese número consecutivo puede ser el número de solicitud, ese número se entrega al solicitante (usuario 1), se almacena en la fila...

Te anexo la macro con el cambio Sub buscar() Dim buscar Dim texto As String, titulo As String texto = "INTRODUZCA EL NOMBRE" titulo = "Busqueda en todas las hojas del libro" buscar = InputBox(texto, titulo) If buscar = "" Then Exit Sub For Each hoja...

H o l a : Envíame tu último archivo que tengas

Ejecuta la siguiente macro. Cambia la letra "A" dentro de la macro en esta línea: col = "A" por la columna que quieres revisar. Sub RevisarColumna() 'Por.Dante Amor col = "A" ' cuenta = 0 For i = 1 To Range(col & Rows.Count).End(xlUp).Row If Cells(i,...

H o l a : Te anexo los códigos ajustados: Sub codigo1() ufil = Range("A" & Rows.Count).End(xlUp).Row Range("A1:D" & ufil).Sort Key1:=Range("b2"), Order1:=xlAscending, _ Key2:=Range("a2"), Order2:=xlAscending, Header:=xlYes, _ OrderCustom:=1,...