Elsa Matilde

Debes proteger la hoja permitiendo los Autofiltros. La instrucción sería para tu caso: ActiveSheet.Protect Password:="28021990, DrawingObjects:=True, Contents:=True, Scenarios:=True" _ , AllowFiltering:=True Sdos Elsa

Te paso la idea para que ajustes tu macro: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo se controla col N a partir de fila 16 - Ajustar rango If Intersect(Target, Range("N16:N200")) Is Nothing Then Exit Sub 'si se limpia...

Cualquier macro puede ser ejecutada con un atajo de teclado, combinando la tecla CTRL con alguna letra. El paso a paso lo tengo explicado en la sección Macros de mi sitio (pulsa aqui) Comentame si esto es lo que buscas... no valores hasta dar por...

Te dejo las instrucciones necesarias. Ajusta el nombre de la carpeta donde se guardará (x ahora será en la misma que el libro activo) y el nombre completo para la copia (x ahora será: Respaldo_nombre del libro original) Sub respaldo() 'x Elsamatilde...

Reviso tu libro y te coloco las instrucciones allí mismo, luego las vuelco aquí. Sdos Elsa

Podrás hacerlo desde menú Datos, Obtener datos externos, De Otras fuentes, Microsoft Query y en la ventana debes seleccionar archivos DBFiles. Luego seguí los pasos del Asistente. Si necesitas más ayuda para avanzar contactame al correo que aparece...

Te dejo ejemplo que muestra un mensaje inicial, mediante InputBox. Las 2 macros se colocan en el Editor de macros, objeto Thiswokbook (en panel a tu izquierda). Private Sub Workbook_Open() 'x Elsamatilde Dim idioma 'repite el bucle hasta que ingresen...

Podés utilizar Formato Condicional con fórmulas. Debes seleccionar todo el rango a partir de C2 (en mi ej solo llega hasta G10) Desde menú Formato, Nueva regla, Utilizar fórmula... Y en el campo escribí la primer fórmula, prestando atención a los...

Si necesitas saber hasta qué fila llegan los datos, esta sería 1 instrucción: cant1 = Range("A" & Rows.Count).End(xlUp).Row Si necesitas saber cuántas filas 'no vacías' hay hasta la última con datos, podría ser de este modo: cant2 =...

Dejo algunos ajustes, luego lo probas y me coments. Controla que se haya seleccionado 1 celda va antes, así la corrí. If Not Intersect(Target, Columns("A")) Is Nothing Then 'controla que se haya seleccionado 1 sola celda If Target.Count = 1 Then Dim...