jerryeagle

En el evento Userform_Initialize pon esto: Textbox7 = Range("C9") Así al Iniciar el Userform, tomará el valor que este en la celda C9

Seria bueno que pusieras el código que usas para tratar de identificar el error

En esta parte: & "WHERE (e033ejer.fechdesde={d '2009-01-01'})" & Chr(13) & "" & Chr(10) & "ORDER BY e033ejer.fechcierre" _ ) pon esto: & "WHERE (e033ejer.fechdesde={d '" & Range("A1") & "'})" & Chr(13) & "" & Chr(10) & "ORDER BY e033ejer.fechcierre"...

Es muy sencillo, checa: txt = "select * from conVIAJE_COMISION where fecha like '" & dia & "*'" & _ " AND movil Like '" & mov & "*'" En la red hay muchos tutoriales de SQL, solo "googlea" un poco :D

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Userform1.Show 'Y en el Código de algun Boton cerrar o aceptar de tu userform, incluye esto: ThisWorkbook.Save End Sub

Algo que me sirvió mucho cuando empecé a enseñarme a escribir macros, es la "Grabadora de Macros" incluida en Excel, grababa algo que yo quería hacer y después analizaba el Código que se generó para después modificarla a mis necesidades, como lo hice...

En lugar de poner "Destination", pon esto Sheets("Hoja2"). Cells(fila1, 1). PasteSpecial xlPasteValues 'Asi pega solo valores

Pon esta linea al principio de tu procedimiento Application.ScreenUpdating = False y esta al final Application.ScreenUpdating = True

No hay problema, tampoco es personal, simplemente descarto las preguntas que tienen mucho tiempo sin responder o finalizar

Checa este ejemplo y lo adaptas: Set Busca = Cells.Find("Dato") If Busca is Nothing then Msgbox("No existente") 'Si lo encuentra continúa la rutina