Saltar al contenido

Haplox

Miembros
  • Contador de contenido

    2423
  • Unido

  • Última visita

  • Days Won

    77

Sobre Haplox

  • Rango
    José

Información de perfil

  • Sexo Hombre
  • Localización: Madrid
  • Cosas que te gustan Sr. Shrödinger, su gato ha sufrido un accidente. Tengo buenas y malas noticias…

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

2559 visitas de perfil
  1. 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
  2. @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
  3. Haplox

    Error al Imprimir en pdf

    @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:
  4. Haplox

    Condicional Excel compartido

    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
  5. O porque eres del Barsa, vete tú a saber...
  6. Haplox

    Condicional Excel compartido

    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
  7. Lo que estás aprendiendo de Genética con este tema...
  8. Haplox

    Feliz navidad a todos

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

    cuadro de lista de selección múltiple

    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?...
  10. @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,
  11. Haplox

    cuadro de lista de selección múltiple

    @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
  12. 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
  13. 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
  14. 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
  15. 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
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.