Luis Mondelo

Claro que es posible, pero necesito que me mandes un modelo de formulario del alumno para ver que tenemos que consolidar en nuestro listado único. [email protected]

Con esta macro buscaremos el valor introducido en la celda D2 de la primera hoja y lo buscaremos en todas las pestañas del libro, si lo encuentra nos traerá el valor de la sexta columna del valor encontrado (Recuerda finalizar y puntuar por favor)...

Mándame la macro para echarle un vistazo. [email protected]

Aquí tienes: ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="nombre_archivo.pdf" Puedes sustituir activeworkbook por activesheet para exportar a pdf solo la hoja activa (Recuerda finalizar y puntuar mi labor)

Pon este código en el evento exit del control textbox1: (Recuerda finalizar y puntuar mi labor) Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1, "$ #,##0.00") If Not IsNumeric(TextBox1) Then MsgBox "no ha...

Pon esta fórmula en la celda A1 de la hoja2: =si(hoja1!a1="p";"papel";"") Después para comprobarlo solo tienes que hacer lo que dices, es decir, escribir p en la hoja1 celda a1. Recuerda finalizar y puntuar mi labor.

Antes de proteger esa hoja cambia el formato de esa celda donde está la fórmula y en su sección de proteger, marca tanto a bloqueada como a oculta. Después protege la hoja y prueba a editarla, verás como no se va a la otra hoja. Recuerda finalizar y...

Perdona Hugo pero no recuerdo tu caso, tengo muchas peticiones. ¿Podrías recordarme la macro o mandármela por mail? [email protected]

En mi ejemplo imagino que los datos ocupan el rango A1:¿I? Con esta macro lo consigues: (Recuerda finalizar y puntuar mi labor) Sub ordenar() Range("a1").CurrentRegion.Sort key1:=Range("a1"), order1:=xlAscending, key2:=Range("d1"),...

Siguiendo tu ejemplo, en la celda A7 por 28 y en la celda A8 pones la siguiente fórmula que copiarás hacia abajo: =SI(D1=31;1;D1+1) Recuerda finalizar y puntuar