Haplox

Hombre, me referia al excel Te dejo el fichero modificado. En el cuadro de dialogo ahora debes poner el nombre que quieras Copia de_Guardar PDF y enviar.txt

@Cronopio Dim nbre As String nbre=Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Name, Title:="Guardar como PDF", _ fileFilter:="PDF (*.pdf), *.pdf") If nbre = "" Then Exit Sub Selection.ExportAsFixedFormat xlTypePDF, Filename & nbre, , , False, OpenAfterPublish:=True No subes tu archivo, asique solo puedo ponerte el procedimiento para elegir nombre y exportarlo con ese nombre Dim nbre As String nbre=Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Name, Title:="Guardar como PDF", _ fileFilter:="PDF (*.pdf), *.pdf") If nbre = "" Then Exit Sub Selection.ExportAsFixedFormat xlTypePDF, Filename & nbre, , , False, OpenAfterPublish:=True

@Laura Rojas, el código funciona perfecto, así que solo se me ocurren 2 cosas: ¿Has guardado ya el libro? Si no es así no hay ruta en la que guardar ¿Tienes datos en A2? SI es así asegurate que ningún caracter es de los prohibidos en nombres de archivo:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 And Target.Column <> 6 Then Exit Sub Target.EntireRow.Font.ColorIndex = xlAutomatic If Target.Column = 6 Then If Target.Offset(, -1) <> "" And Target = "" Then Target.EntireRow.Font.Color = RGB(255, 153, 0) ElseIf Target.Offset(, -1) <> "" And Target <> "" Then Target.EntireRow.Font.Color = vbRed End If End If If Target.Column = 5 Then If Target <> "" And Target.Offset(, 1) = "" Then Target.EntireRow.Font.Color = RGB(255, 153, 0) ElseIf Target <> "" And Target.Offset(, 1) <> "" Then Target.EntireRow.Font.Color = vbRed End If End If End Sub Es que eso es lo que pedias . Prueba ahora Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 And Target.Column <> 6 Then Exit Sub Target.EntireRow.Font.ColorIndex = xlAutomatic If Target.Column = 6 Then If Target.Offset(, -1) <> "" And Target = "" Then Target.EntireRow.Font.Color = RGB(255, 153, 0) ElseIf Target.Offset(, -1) <> "" And Target <> "" Then Target.EntireRow.Font.Color = vbRed End If End If If Target.Column = 5 Then If Target <> "" And Target.Offset(, 1) = "" Then Target.EntireRow.Font.Color = RGB(255, 153, 0) ElseIf Target <> "" And Target.Offset(, 1) <> "" Then Target.EntireRow.Font.Color = vbRed End If End If End Sub

O porque eres del Barsa, vete tú a saber...

sin más datos @juanmafdez, esto te debería servir Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$2" And Target.Address <> "$F$2" Then Exit Sub Range("2:2").EntireRow.Font.ColorIndex = xlAutomatic If [e2] <> "" And [f2] = "" Then Range("2:2").EntireRow.Font.Color = RGB(255, 153, 0) ElseIf [e2] <> "" And [f2] <> "" Then Range("2:2").EntireRow.Font.Color = vbRed End If End Sub

Lo que estás aprendiendo de Genética con este tema...

Felices fiestas a TODOS, (no hay emojis de navidad...) .

Es que sigo sin entenderte @marianeito No se a que te refieres .¿elegir los nombres y que cambien los datos? ¿de donde salen esos datos?...

@Leopoldo Blancas Ya se que pone "cuidad", ¿pero no es mas logico que sea "ciudad? Por eso lo cambie En cuanto a lo de $A$1, no hace falta, siempre sera el valor de A1,

@marianeito Este es de esos post en los que tu tienes muy claro que necesitas, pero con tu explicacion es dificil ayudar. Lo que he entendido es lo que te dejo en el ejemplo. En las filas 25 y 26 (supongo que los prestamos ), tienes la validacion de datos con lista para elegirlos. Prueba y comenta foro exce.xlsx

Creo que te estas liando un poco . Te dejo un ejemplo. Dos cosas para que funcione Puedes tener tantas tablas como quieras Todas deben estar a la misma altura (fila) Entre tablas siempre debe haber la misma separacion Ejemplo.xlsm

Avisa antes. En tu ejemplo solo hay una, y ademas solo hasta la columna E, luego el +1, a la dcha o izda es la 6 Si todas tienen el cabecero en la misma linea te va a pasar eso. Sube un archivo reptesentativo

Mira a ver si te sirve asi @lphant Sub Sub seleccion() Dim Uf As Long, Uc As Long Uf = Range("A" & Rows.Count).End(xlUp).Row Uc = Cells(5, Columns.Count).End(xlToLeft).Column + 1 Range(Cells(5, "A"), Cells(Uf, Uc)).Copy End Sub

Eso se perdio al hacer pruebas , no es problema de la macro. Leopoldo, la macro coge el valor de la ultima celda (comienzo al reves porque voy a insertar filas), cuento las apariciones de esa palabra, y con matematicas basicas salen las cuentas para encontrar donde insertar la canecera y la otra linea