Dante Amor

Te anexo una macro para importar un archivo txt Sub Macro2() 'Por Dante Amor 'Importar Archivo txt ' Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = Sheets("Hoja7") 'nombre de la hoja donde se va a importar ruta = "c:\trabajo\"...

Revisa las siguientes respuestas: Varios ficheros Excel en Directorio. Abro fichero, copio celda, ¿pego en fichero común cierro y vuelvo al siguiente fichero? Traer información de diferentes celdas(Libro1) a otro Libro(2) para llenar celdas...

Revisa la siguiente respuesta, ahí explico cómo imprimir un pdf Macro imprimir archivos pdf desde Excel Debes tomar el código y adaptarlo a tu userform

¿Cómo se debe llamar cada archivo txt? ¿Cuántas columnas tiene cada registro? Si tienes 13 registros, qué se va a poner en la cabecera: 2018-¿13? Puede poner una imagen de tu hoja para ver lo que tienes y en otra imagen el resultado que esperar en el...

Prueba con lo siguiente Private Sub CheckBox1_Click() ActiveSheet.Unprotect "regional2018" If CheckBox1.Value = True Then Rows("26:36").EntireRow.Hidden = False Rows("53:68").EntireRow.Hidden = False Range("Q17:S24").clearcontents...

Para ocultar los carateres lo puedes realizar con un userform, revisa el siguiente vídeo para crear un userform con usuario y password. https://www.youtube.com/watch?v=sx2bZi5MKkg

Suponiendo que los alumnos y los cursos en ambas hojas están en la columna A y que empiezan los registros en la fila 2, utiliza la siguiente macro. Cambia en la macro las hojas "hoja1", "hoja2", "hoja3" por los nombres de tus hojas Sub Generar_Hoja()...

El problema que tienes es porque las celdas que intentas bloquear, están combinadas. Tienes esto: Range("s16:s24").Select ' selecciona el rango de celdas que desees dejar bloqueadas Selection.Locked = True ' bloquea las celdas seleccionadas Y debería...

Te sugiero que realices la captura de los nuevos datos en la hoja1, cuando termines de capturas presiones un botón para actualizar la hoja2. Pon la siguiente macro en un botón: Sub Actulizar_Base_Datos() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set...

Te anexo la opción para buscar presionando el botón Private Sub CommandButton1_Click() 'Por Dante Amor 'Buscar información en la hoja seleccionada en el combo ' If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then MsgBox "Seleciona una hoja en el...