Cesar O. Yactayo

Dante Amor respondió: Se me ocurren 2 opciones, para hacerlo más dinámico. Opción 1: Se puede automatizar con un filtro avanzado, pero tienes que poner en otra hoja el criterio o los criterios con los que vas a hacer el filtro. Una vez realizado el filtro se copia la...

Dante Amor respondió: H o l a: Te anexo la maco. Cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. Cambia "F" por la letra de la última columna que quieras copiar. Sub CopiarColumnas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2")...

Dante Amor respondió: ¿Y qué le falta a la macro? Lo que veo es que a esta línea le falta la última diagonal, así: ruta = Carpeta & "\"

antares18 respondió: En vez de esto "C:\Users\LT-138\Documents\& nombre.pdf" Has de poner "C:\Users\LT-138\Documents\"+ nombre+".pdf"

Dante Amor respondió: Así quedaría Sub GeneraSNL() Dim Extension_snl As String nombre = "0601" & Sheets("Planillas Mensuales").Range("B3") & Sheets("Planillas Mensuales").Range("B2") ruta = "C:\Documents and Settings\DAMOR\Mis documentos\" ' Aquí elijo el destino de donde...

Elsa Matilde respondió: Primero debieras aclararme qué contienen las celdas A1103 y B1103 que guardas en una variable. De paso x favor retira estas líneas totalmente innecesarias: Contar1 = Contar1 (en los 3 casos). Lo ideal sería que se tome el rango hasta la última celda...

Dante Amor respondió: Te regreso la macro con los cambios Sub Crear_Expediente() Dim hoja As Worksheet, existe As Boolean, nueva As String nueva = Sheets("Concatena").Range("B1") If nueva = Empty Then Exit Sub For Each hoja In Worksheets If hoja.Name = nueva Then existe =...