ronald montenegro

Ya había formulado una pregunta similar, pero quiero explicar mejor lo que necesito Yo ingreso fecha en la celda F1, pero quiero ingresar solo los números y que las diagonales aparezcan automáticamente. Encontré esta macro Private Sub...

Como puede hacer que al escribir una fecha en una celda (ejemplo 01/05/2016), yo solo ingrese los números y las diagonales aparezcan automáticamente conforme escribo los números. Por ejemplo en la celda F1

Tengo una tabla con una lista quisiera hacer un filtro para saber cuantos datos tengo en un rango de fechas (desde - hasta). Primero ingreso la fecha de inicio en la celda E1 y la fecha final en G1. La columna donde están las fechas es DE y comienza...

Puede alguien ayudarme Tengo esta macro para filtrar Private Sub Verde_Click() Range("G9").Select ActiveSheet.Range("$B$9:$R$628").AutoFilter Field:=6, Criteria1:=RGB(146, _ 208, 80), Operator:=xlFilterCellColor End Sub Pero cuando acciono el botón...

Para dante Hay alguna macro o función que evite que después de correr una macro no deje seleccionnas las celdas o columnas. Este código me ordena Sub ordenar() Range("b:b").Select Selection.Sort Key1:=Range("b1"), Order1:=xlAscending,...

¿ ¿Podrías ayudarme con esto? Quiero resaltar la fila activa con cualquier color pero sin que se borre el color de fondo que ya tienen las celdas. He usado este código Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next...

Como hago para que se comprima el archivo luego de hacerle un backup. Utilizo este código para hacer el backup Private Sub commandbutton1_click() Dim Ruta As String, nombre As String, Version As String Application.StatusBar = "Guardando BACKUP..."...

Hola Tengo un problema con usuario y contraseña. Lo que sucede es que entro con un usuario de administrador y luego sin cerrar el archivo cambio a usuario con restricciones, hasta allí funciona bien. Pero cuando quiero regresar al usuario...

Disculpa que te moleste intento que aparezca la palabra años a la par de la edad pero no funciona, solo aparece el numero sin la palabra años. ActiveCell.Offset(0, 2) = fecha_nac (fecha de nacimiento) ActiveCell.Offset(0, 4) = fur (otra fecha) If fur...

Tengo este código para calcular edad If TextBox5 <> "" And TextBox3 <> "" And IsDate(TextBox5) And IsDate(TextBox3) Then ActiveCell.Offset(0, 3).FormulaR1C1 = "=DATEDIF(RC[-1],RC[1],""y"")" ActiveCell.Offset(0, 3) = ActiveCell.Offset(0, 3) & " años"...