Abraham Valencia

[Hola Como para que te des idea: Sub Filtrar() Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row MsgBox "Última celda llena al filtar: " & Range("A" & UltimaFila).Address MsgBox "La primera celda vacía es: " & "A" &...

[Hola ¿En esa misma carpeta hay más archivos cuyo nombre comienza con "ED"? ¿Solo llega un archivo por día? ¿Cuál es el formato exacto del nombre: ED21032019.xls, o cuál? ¿La fecha es la del mismo día u otra? Abraham Valencia

[Hola Pues solo debes usar la función "Mes": =MES(A1) Obviamente colocar la celda correspondiente a la de tu fecha. Abraham Valencia

[Hola Como para que te vayas dando idas, mira por aquí: https://abrahamexcel.blogspot.com/2018/06/enviar-mensajes-masivos-con-microsoft.html Abraham Valencia

[Hola Los dos formularios en línea gratuitos de mayor uso hoy en día son "Formularios de Google" y "Microsoft Forms" pero en ambos casos solo funcionan "en línea" ya sus bases de datos están justamente "en la nube", no es que los datos se almacenen...

[Hola Como para que te des ideas y vayas avanzando algo, dale una mirada a este enlace: Saludos] Abraham Valencia

[Hola ¿Cuántos megas tiene tu archivo? Mientras tanto, ve leyendo esto: https://abrahamexcel.blogspot.com/2018/01/el-gran-problema-de-los-archivos-lentos.html Comentas Abraham Valencia

[Hola Tu Windows 10 ¿es de 32 bits o me parece? Abraham Valencia

[Hola La instrucción que mencionas lo que te da es el número de serie de la BIOS; para tener ese mismo número en una celda prueba así: Sub SerialBIOS() Dim List As Object Dim Mibios$ Dim Objeto As Object Set List =...

[Hola Es "hoja3" ¿siempre es la tercera comenzando a contar desde la izquierda? Abraham Valencia