Jump to content

Haplox

Members
  • Content Count

    2,803
  • Joined

  • Last visited

  • Days Won

    85
  • Country

    Spain

Haplox last won the day on May 18

Haplox had the most liked content!

About Haplox

  • Rank
    José
  • Birthday September 16

Profile information

  • Gender
    Hombre
  • Localización:
    Madrid
  • Interests
    Sr. Shrödinger, su gato ha sufrido un accidente. Tengo buenas y malas noticias…

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

4,591 profile views
  1. Gracias @A.Maurizio , no es ningún reproche, habrás visto la carita sonriente para que diese esa impresión, una especie de broma con cariño. Este año nos llevamos la liga
  2. @Predi , te dejo el código. Si existe tú decides qué hacer, de momento solo te saca de la macro (Exit Sub): Dim ruta$, fich$ With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & " \ " .Title = "PROYECTADOS SEIXO - Seleccionar carpeta" .Show If .SelectedItems.Count = 1 Then ruta = .SelectedItems(1) fich = ruta & "\" & "Factura nº " & NumFactura & ".pdf" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(fich) Then MsgBox "EL fichero que intenta guardar ya existe" Exit Sub Else MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _ vbInformation, "PROYECTADOS SEIXO" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ruta & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End If End With End Sub
  3. @A.Maurizio contigo siempre me quedo conla sensación de que no sé siteha ayudado o no
  4. @A.Maurizio , Si no he entendido mal, lo que pasaes que estáscolocando unoencima de otro, por lo que parece que no los creas. Cambia el código a: Private Sub CommandButton1_Click() Dim Text As Control Dim R As Integer c = 12 '<---CONTADOR For R = 1 To 4 Set Text = Me.Controls.Add("forms.textbox.1", R) With Text '.Height = 109 .Left = c '<---SITUAMOS EL CONTROL EN c '.Top = 41 .Width = 50 '<---ANCHO DEL TEXTBOX .SetFocus .Text = "Textbox2" .FontSize = 8 .FontBold = True .ForeColor = vbRed End With c = c + 55 '<---AUMENTAMOS c EN EL ANCHO DEL TEXTBOX Y UN POCO MÁS Next R End Sub
  5. @Predi , no he entendido nada de tu consulta viendo el archivo. en la celda E45 ¿De qué hoja? ¿De la primera? Ahí no consultas nada, solo guardas e imprimes. Explica bien el problema de que en E45 NO HAYA NADA
  6. Eso se avisa, porque justo esa casilla es la que comentaba: Simplemente vuelve a cambiar la fecha a la correcta en la hoja "Resumen" y te funcionará como quieres
  7. @KRUGERS , te dejo una solución. Ten cuidado con las fechas en la primera hoja, porque he encontrado alguno que no corresponde la fecha del "0:00" en la segunda hoja. Copia de Incidencias en días con ceros.xlsm
  8. @f9frank , pide que concedas acceso para ver el archivo. Cambia el enlace poniendo "compartir", creo que es algo como "cualquiera puede editarlo"
  9. A ver @laubreeze , viendo tu imagen creo que el problema está en la "x", que en el If la pones en minúscula y en la hoja en mayúscolas... y no es lo mismo
  10. @smart27 , Te dejouna posible solución, no como querías, porque de esa manera es difícil por cómo se puede mover esa regla según el usuario. Hay un spinbutton que al incrementar o decrementar, hace que se mueva la regla. Prueba y comenta nivel.xlsm
  11. @JDG ¿Pero de verdad crees que se puede mirar TODO ESE CÓDIGO y encontrar un fallo? Sube tu archivo para poder depurar
  12. Mejor sube tu archivo de ejemplo, con el antes y el después, para ver cómo quieres juntarlas
  13. @JDG , sube tu archivo, porque lo que explicas no tiene sentido. Quizás alguna incongruencia o algo mal escrito. Además todas esas propiedades que has cambiado no tienen nada que ver con el tema del SetFocus.
  14. @gema.ramirezguerrero@gmail esto entra en contradicción: con: ¿Qué vas a modificar "SERVICIOS" o "TIPO"? SI por casualidad fuesen los servicios ¿Eliminarías alguno para poner otro nuevo, o qué tipo de modificación sería?
×
×
  • Create New...

Important Information

Privacy Policy