Abraham Valencia

[Hola Yo sugiero usar oledb: http://checktechno.blogspot.com/2013/04/using-ado-and-recordset-in-vbnet.html Comentas Abraham Valencia

[Hola No das muchos detalles pero suponiendo que tienes instalado el "Chrome", prueba así: Private Sub CommandButton1_Click() Dim chromePath As String chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" Shell (chromePath &...

[Hola No das muchos detalles pero intenta así: h.Cells(i + 2, "E") = Format(ListBox1.List(i, 4),"dd-mmm-yyyy") Comentas Abraham Valencia

[Hola En realidad, si quieres trabajar con una base de datos "en línea", no es tan simple. Tienes que tener un "hosting" que tenga soporte de base de datos tipo MySQL o SQLServer y no, no hay "hosting" gratuitos como para que uses uno (Hay versiones...

[Hola No se entiende, da detalles, recuerda que tú entiendes porque conoces tu archivo, desde este lado de la pantalla no lo podemos ver. Abraham Valencia

[Hola Excel y VBA no tienen herramientas/instrucciones que permitan que esa imagen pase de modo simple a un "USerForm". Lo que hay que hacer es convertir el rango en imagen, exportarlo como archivo y después cargarlo al objeto "Image" de tu...

[Hola Esa opción es equivalente a: ActiveWorkbook.ProtectSharing Password:="clave", SharingPassword:="otraclave" Comentas Abraham Valencia

[Hola No mencionas algunos detalles como que de dónde sacas las fechas, pero como para que te des una idea mira esto: Sub Fechas() Dim fecha1 As Date, fecha2 As Date Dim x As Integer, y As Integer Let fecha1 = #2/1/2018# Let fecha2 = #8/31/2018# Let...

[Hola Pues debería funcionar. Igual, por si acaso, asegúrate de que: - El archivo esté abierto - Que el archivo haya sido guardado con todas las macros mostradas en el mensaje - Las macros estén habilitadas - El evento "Open" esté realmente en el...

[Hola Prueba así: Sub Borrar() Dim UltimaFila As Long, x As Long Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row For x = UltimaFila To 2 Step -1 If Range("A" & x).Value = "" Then Range("A" & x).EntireRow.Delete End If Next End Sub Comentas...