jrgces

No está demasiado claro qué es lo que intentas conseguir, pero si se trata de poner en D20 su propio valor y, unido a él, el de E20, y así con todo el rango D20:E35500, el código podría ser: Sub prueba() Dim lngFila As Long Application.ScreenUpdating...

Datos - Validación - Permitir: Fecha Tienes varias opciones, entre las cuales está que aparezca un mensaje si lo introducido no cumple la regla de validación.

Prueba con el siguiente código, en el que tendrás que sustituir "Hoja que no se desea tocar1" etc. con los nombres de las hojas que no quieres procesar. De todas formas, dado que el código elimina filas y columnas, te aconsejo que lo pruebes en una...

Prueba poniendo esta fórmula en C1 y copiándola hasta C7: =SUMAPRODUCTO(($A$1:$A$7=A1)*$B$1:$B$7)>0

Poco puedo decir sin ver el código. Lo único, que tengas en cuenta que el tipo de dato de los textboxes no es numérico si se introduce un número, fecha si se introduce una fecha, etc., sino siempre texto (String), por lo que cuando se trabaja con...

Suponiendo que el control del userform donde se introduce la fecha de ingreso se llamara tbFechaIngreso y que hubiera un control label llamado lblTranscurrido en el que se pondría el tiempo transcurrido en texto, el código podría ser: Private Sub...

Puedes ocultar una hoja haciendo Formato -> Hoja -> Ocultar, pero a no ser que protejas la estructura del libro, cualquier usuario podría hacerla visible de nuevo haciendo Formato -> Hoja -> Mostrar. Para ocultar una hoja sin tener que proteger el...

Suponiendo que los códigos empiecen en A1, prueba con la siguiente fórmula en cualquier celda vacía de la fila 1 =A1&"/"&CONTAR.SI(A$1:A1,A1) Luego tendrías que copiarla y pegarla hacia abajo, hasta la última fila con códigos.

Suponiendo que los datos estuvieran en una hoja llamada Datos, en el rango A1:G100, prueba pegando la siguiente fórmula en el rango A2:D2 de otra hoja (la fila 1 de dicha hoja se supone que sería la de títulos):...

Quizás lo más rápido sea usar la propiedad RowSource del control. Por ejemplo, si el rango que debe aparecer en el cuadro de lista fuera C1:E3 de Hoja1, el código podría ser: Private Sub UserForm_Initialize() Dim rngRango As Range Set rngRango =...