Dante Amor

Puedes poner la macro y una explicación de lo que hace. También dime de cuántos megas es tu archivo.

Te anexo la macro Sub ImportarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) ruta = "C:\pruebas\" 'ruta donde están los archivo ' arch = Dir(ruta & "*.xls*") Do...

Agrega lo siguiente a tu formulario Private Sub ComboBox2_Change() Call Llena End Sub ' Private Sub ComboBox3_Change() Call Llena End Sub ' Sub Llena() 'Por.Dante Amor If ComboBox3.ListIndex > -1 Then f = ComboBox3.ListIndex + 2 If...

Prueba así: Sub LanzarCrono() 'Por.Dante Amor Range("A5") = Time Range("C3") = "" ActualizarHora End Sub ' Sub ActualizarHora() 'Por.Dante Amor If Range("C3") = 1 Then Exit Sub Range("B3") = Time Range("D5") = "=B3-A5" Application.OnTime Now +...

Te anexo la macro actualizada Pero antes deberás cambiar "Hoja1" en la macro por el nombre de la hoja donde vas a poner el nombre del cliente. La macro tomará ese nombre y lo replicará en todas las hojas. Sub GuardarPDF_2() 'Por.Dante Amor Dim...

Te anexo la macro actualizada: Option Explicit Sub Captura_Datos() 'Declaración de variables ' Dim strTitulo As String Dim Continuar As String Dim TransRowRng As Range Dim NewRow As Integer Dim Limpiar As String ' strTitulo = "Atención Telefónica" '...

H o l a : Lo más práctico es que pongas el archivo de excel con la macro en la misma carpeta donde se encuentran todas las imágenes. Entonces, pon el siguiente código en tu formulario, envíales el archivo de excel y diles que pongan el archivo en la...

H o l a: La instrucción está bien escrita, pero como varios objetos, el objeto Range tiene sus límites, el número de caracteres que puedes manejar es de 255 caracteres. Lo que puedes hacer es dividir la línea en varias líneas, de esa forma funcionará...

H o l a : Revisa el siguiente enlace: http://www.ayudaexcel.com/foro/threads/acceder-a-pagina-web-por-vba.14844/

Pon lo siguiente en tu formulario Private Sub UserForm_Activate() ComboBox1. AddItem Year(Date) ComboBox1.AddItem Year(Date) + 1 ComboBox1.AddItem Year(Date) + 2 End Sub sal u dos