Dante Amor

Te anexo la macro Sub Borrar_Celdas() For Each valor In Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row) If Not (UCase(Left(valor, 1)) Like "[A-Z]" And Mid(valor, 2, 1) Like "[0-9]") Then valor.Value = "" Next End Sub [sal u dos

Para bloquear las celdas es necesario proteger la hoja. Generalmente todas las celdas tienen la casilla de Bloqueda activa, solamente tienes que proteger la hoja, entra al menú Revisar, Proteger hoja, puedes introducir una clave y presiona Aceptar....

Para que se actualice la fórmula cuando cambias la letra, debes poner la letra en una celda, por ejemplo, pon la letra A en la celda K10. Pon la siguiente fórmula en la celda Q14: =INDIRECTO("'Asistencias-" & K10 & "'!U14") Ahora pon la letra B celda...

Te anexo el código Antes de imprimir revisa lo siguiente: La versión de programa Adobe, entra al explorador de archivos, sigue la ruta: Archivos de programa\ Adobe \ Reader . En mi ejemplo puse Reade 11.0, pero debes poner en la macro la versión que...

Puede ser así, después de esta línea: MsgBox (PRECIO & " ES CORRECTO") Pon esta: Range("B5").Value = precio o si ya está seleccionada la celda, entonces podría ser así: Selection.Value = precio Si quieres que sea una celda después de la última celda...

Vamos a ver si entendí. En la hoja "Lista" en la celda "A2" tienes número 1 y en la celda "B2" tienes el número 1050 ¿Quieres buscar el número 1 en la hoja "Datos" y en las celdas donde dice 1 poner el número 1050? Por ejemplo, en la hoja "Datos" en...

Supongo que te refieres a Tablas que contienen un rango de celdas, si es así, entonces debes tener algo como esto: El resultado quedará en otra hoja, de la siguiente manera: Cambia en la macro "Hoja3" por el nombre de tu hoja que va a tener el...

Puedes explicarlo con imágenes, para ver los datos que tienes y lo que esperas de resultado. Procura que en la imagen se vean todos los casos posibles, las filas y las columnas de excel.

Te anexo la macro actualizada Sub Filtrar_Datos_Por_Condicion() ' ' Por Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja estino Set h3 = Sheets("Base de Datos") 'hoja con criterios...

Puedes crear un userform con 3 textbox y commandbutton, por ejemplo: Instrucciones para crear un UserForm Abre tu hoja de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige Insertar / UserFormEn el panel del...