Victor Rodriguez

Prueba cambiando esta línea: With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;\\domibco.com.pe\DFS\ICRedes\Enlaces\base\fichero.csv", Destination:=LastRow)

Puedes poner la macro en un libro que es el que utilizarás para crear nuevos libros: Sub Nuevo() Set NewBook = Workbooks.Add 'Tu codigo End Sub

Si están los PC conectados a una red, cambia las líneas: Ruta = "C:\Users\claudio.cisternas\Desktop\imagenes_araucania.jpg" LoadPicture("C:\Users\claudio.cisternas\Desktop\imagenes_araucania\PTAS_ANGOL.jpg") Por unidades que estén en red y todos...

En la siguiente web hay un completo tutorial de como hacerlo (ingles) http://www.fontstuff.com/vba/vbatut07.htm De todos modos, tienes un addin que hará que en el Menú contextual (botón derecho) tengas la opción de insertar una fecha. También podrás...

Prueba con esto: Sub copiar() Set rango = Application.InputBox(Prompt:="Select range of values to summarize", _ Default:=Selection.Address, _ Type:=8) If rango Is Nothing Then Exit Sub Set celda = Application.InputBox("Selecciona celda destino",...

Te marco en negrita la línea que se usa para adjuntar archivos, deberás incluirla en tu macro antes del .Send (también puede ser .Preview). En este caso pone la ruta completa, pero también puedes poner una variable. Sub EmailViaOutlook() Dim oEmail...

Lo mejor en tu caso es usar la grabadora de macros y seguir los siguientes pasos: 1- Abrir archivo de la hoja que aloja los datos 2- Seleccionar pestaña y rango a copiar (o toda la hoja y copiarla) 3- Pegar en la nueva ubicación 4- Cerrar archivo de...

Esta macro te debería servir: Sub checkboxes() Dim cell, LRow As Single Dim chkbx As CheckBox Dim CLeft, CTop, CHeight, CWidth As Double Application.ScreenUpdating = False LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For cell = 1 To LRow...

Para poder realizar lo que dices, tienes que seleccionar todas las celdas de la hoja y desmarcar la opción de bloqueada. Seguidamente deberás proteger la hoja, pero como todas las celdas estan desbloqueadas podrás editarlas. Una vez hecho esto, en el...

Con la celda del comentario seleccionada deberás ejecutar esta macro: Sub Macro1() Dim Find As String Dim Replace As String Dim Cmt As String Find = "Open" Replace = "Close" Cmt = ActiveCell.Comment.Text If InStr(Cmt, Find) <> 0 Then Cmt =...