Haplox

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

@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

@A.Maurizio contigo siempre me quedo conla sensación de que no sé siteha ayudado o no

@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

@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

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

@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

@f9frank , pide que concedas acceso para ver el archivo. Cambia el enlace poniendo "compartir", creo que es algo como "cualquiera puede editarlo"

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

En fin... 😔

@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

@JDG ¿Pero de verdad crees que se puede mirar TODO ESE CÓDIGO y encontrar un fallo? Sube tu archivo para poder depurar

Mejor sube tu archivo de ejemplo, con el antes y el después, para ver cómo quieres juntarlas

@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.

@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?