James Bond

Prueba la siguiente fórmula, en el ejemplo en H5 tecleo el mes y en i5 me pone el ultimo día del mismo

Lo que pides por listas de validación no se puede, de hecho ya te pase una macro para hacerlo, como te comente en ese post simplemente tecleas cualquier parte del nombre y en automático te muestra todos los nombres y apellidos que contiene esa parte,...

Este es un ejemplo de como puedes ordenar una tabla, si quieres que el acomodo sea automático usa el evento initialize o activate, solo cambia el a1 por la fila donde comienza tus datos Sub ordenar2() Range("a1").CurrentRegion.Sort key1:=Range("k1"),...

Prueba on error resume next Cells.Find(What:=Range("D2"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate if err.number>0 then msgbox("este...

Este es el resultado de la macro Y esta es la macro solo pones la longitud inicial, la longitud final y cuando sera la variación entre la serie Sub series() linicial = Range("c2") lFinal = Range("c3") variacion = Range("c4") x = 1 For i = linicial To...

Este es el resultado de la macro, en formulario se cargan los encabezados en el combobox y en el se selecciona por cual columna quieres filtrar, en el caso de la columna nombre el filtro esta diseñado para buscar coincidencias de los que teclees en e...

Usa la siguiente macro, solo cambia el A1 por la celda donde comiencen tus datos Sub restar_columnas() Set datos = Range("a1").CurrentRegion With datos .Cells(2, 3).Resize(.Rows.Count - 1, 1).Formula = "=" _ & .Cells(2, 2).Address(0, 0) & "-" &...

Convierte la tabla a tabla insertada así cada que añadas una nueva fila en automático se agregan las fórmulas, menu---- insertar ----- tabla

Pega esta fórmula en la hoja donde quieras proteger las fórmulas, en cuanto alguien quiera cambiar la fórmula la macro lo enviara a la celda c1 xomo ves en el ejemplo y esta es la macro Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...

Prueba con esta macro Sub ocultar() oculto = Range("a1:a100").Rows.Hidden If oculto Then Range("a1:a100").Rows.Hidden = False Else Range("a1:a100").Rows.Hidden = True End If End Sub