Dante Amor

Si quieres que se copien y al momento de pegar queden juntas las columnas, utiliza lo siguiente: H1.Range("A" & i & ":J" & i & ",M" & i & ":O" & i). Copy h2. Rows(u) Si quieres que el rango de A a J quede de la A a la J y el rango de M a O quede de...

Te anexo la macro actualizada Sub CopiarProrrogaHojas() 'Por.Dante Amor Application.ScreenUpdating = False Set h2 = Sheets("Prorrogas") 'Hoja destino col = "N" 'Columna de Incapacidad por Prorroga ' u2 = h2.Range(col & Rows.Count).End(xlUp).Row If u2...

¿Puedes poner una imagen de uno de los archivos? ¿Otra imagen donde se vea en dónde se va a pegar? Procura que se vean las filas y las columnas de excel. En dónde están los archivos, Cuál es la ruta, Cómo se llaman, Están todos en una misma carpeta,...

Agrega lo siguiente a tu macro Private Sub Workbook_BeforeClose(Cancel As Boolean) ' Range("A8:A26, K8:K26, A31:A49, K31:K49, A54:A72, K54:K72, G6, G29, G52").Select Selection. ClearContents Range("A3").Select ' 'Por. Dante Amor For Each cv In...

Entiendo que en una hoja "x", en el rango "B2:B10" estás capturando el producto, ¿en qué rango vas a capturar el envase? Lo que hace la macro es buscar el producto en la columna "A" de todas las hojas, ¿en qué columna está el envase? Pon 2 imágenes...

Entra al botón de office, Opciones de excel, Centro de confianza, Configuración del centro de confianza, Opciones de privacidad y Desmarca la casilla que dice: "Quitar información personal de las propiedades del archivo al guardarlo. También agrega...

Te anexo la macro, pon el archivo de excel con la macro en la misma carpeta con los demás archivos de excel que quieres enviar a pdf. Sub ImprimirPdfs() 'Por.Dante Amor Application.ScreenUpdating = False ruta = ThisWorkbook.Path & "\" arch = Dir(ruta...

Te anexo una opción con la siguiente macro Sub Revisar() 'Por.Dante Amor arch = "libro3.xlsm" For Each libro In Excel.Workbooks If UCase(libro.Name) = UCase(arch) Then MsgBox "El libro: " & arch & " está abierto" Exit For End If Next End Sub

Cambié la URL, prueba con esta macro Sub Login() ' Sheets("Hoja1").Select Const nick = "mi user" Const pass = "mi clave" For Each Q In ActiveSheet.QueryTables Q.Delete Next Q ActiveSheet.Cells.Clear With ActiveSheet.QueryTables.Add(Connection:= _...

Te anexo la macro para la primera parte, cargar el listbox. Cambia en la macro "C:\trabajo\varios\" por la carpeta que quieras. Private Sub TextBox1_Change() 'Por.Dante Amor ListBox1.Clear ruta = "C:\trabajo\varios\" texto = "*" & TextBox1 & "*" arch...