Dante Amor

Te anexo la macro Sub Copiar_Celdas() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Cells.ClearContents j = 1 For i = 5 To h1.Range("D" & Rows.Count).End(xlUp).Row...

Entiendo lo de la sensibilidad de la información, lo que necesito ver es cómo está la estructura de tu información, cambia los nombres por frutas, los valores por otros valores, realmente los datos no interesan, lo que importa es la explicación de...

Podrías explicar con imágenes lo que tienes en cada hoja de excel y con otras imágenes explicar qué resultado es el que esperas. Procura que en las imágenes se vean las filas y las columnas de excel.

Te anexo la macro actualizada Sub CommandButton4_Click() buscar = InputBox("Scanea el codigo que deseas buscar", "Buscar....") If buscar = "" Then Exit Sub ' col = "A" ' columna a buscar col2 = "U" ' columna a pegar el dato encontrado ' Set b =...

Te envío la macro actualizada, solamente tienes que actualizar las columnas que quieras copiar en esta línea: cols = Array("C", "E", "F", "G", "H") 'completar las columnas La macro completa: Sub Macro2() 'Por Dante Amor Application.ScreenUpdating =...

Te anexo la macro Sub Macro2() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Importaciones") Set h2 = Sheets("FORMATO DE DESCARGA") If h1.AutoFilterMode Then h1.AutoFilterMode = False If h2.Range("B2").Value = "" Or Not...

Te anexo la macro actualizada Sub Guarda_Archivo() 'Por Dante Amor carpeta = Range("A1").Value archivo = Range("A2").Value If Right(carpeta, 1) <> "\" Then carpeta = carpeta & "\" If Dir(carpeta, vbDirectory) = "" Then MkDir (carpeta) End If...

Te anexo la macro Sub A_Vertical() 'Por Dante Amor Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Rows("2:" & Rows.Count).Clear k = 2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row For j = 2 To h1.Cells(i,...

Para hacer la macro puedes poner un par de imágenes para ver cómo tienes tu información en la hoja, procura que en la imagen se vean las filas y las columna de excel. Necesito ver en cuál fila tienes tus encabezados, en cuál fila empiezan tus datos,...

Según esto, debes tener algo en la variable RUTA, pero en tu código tienes esto : RUTA = "----------------" Luego, en la variable NOMBRE, debes tener el nombre del archivo con todo y la extensión ".pdf" En tu UserForm1 debes tener el control...