William Kennedy

Programar Excel respondió: Este ejemplo te puede quizás te pueda aportar algo más.

Jaime Segura respondió: Lo que pasa es que por más veloz que parezca la lectura no lo es. Apenas hace la lectura del primer caracter se "dispara" el evento... Podríamos intentar algo como esto.. Inserta como primera linea de la subrutina,... antes del Set h1=... If Len(...

Puedes hacer los siguiente: If Range(DatoEncontrado)="usuario que quieras" then form.show

Cambia el evento Change por After Update, el código se ejecutara después de actualizar el campo y no cada vez que cambie, como actualmente lo hace.

Puedes hacerlo de esta manera, pero necesitas agregar las siguientes dos librerías a tu libro. Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim dFechaInicio As Date Dim dFechaFinalizacion As Date dFechaInicio =...

Tal y como dice Gomzky, puede usar la instrucción thisworkbook. Close. Pega el siguiente código en tu formulario, y al momento de cerrar el form se cerrara el libro y guardara los cambios realizados. Private Sub UserForm_Terminate()...

Cuando utilizas application.visible=false, todo excel se oculta. Hasta donde se, no existe forma de que solamente ocultes el libro de tu proyecto, y poder ver cualquier otro archivo en modo normal, ya que es en si la aplicacion Excel la que se oculta.

Tienes que crear la rutina para cada uno de los textbox y pegar el código en cada uno de ellos.

Según lo que describes, tienes que indicarle a la macro en que hoja debe de grabar los datos. Si quieres pega tu código que guarda los datos, para que podamos darle un vistazo y darte la mejor solución.

Puedes probar con el siguiente código: Sub test() Application.ScreenUpdating = False For Each h2 In Sheets Set b = h2.Cells.Find("cuotas", lookat:=xlWhole) If Not b Is Nothing Then h2.Cells(b.Row, b.Column + 1) = textbox.value End If Next MsgBox...

Dejame ver si entendí. ¿Necesitas qué excel te muestre un mensaje que contenga la fecha en la celda D9?, ¿Y de que hoja necesitas que saque la fecha?.

Puedes pegar todo el código, para ver como tienes declardas las variables.

Por lo que puedo observar, existen algunos errores en el código, cambia isEmpety por isEmpty, Ranger por Range y luego hasta el final tienes offser(0,8) cuando es offset(0,8).

Las fechas deben de ir de esta manera: ,#" & Format(Me.F_Nacimiento, "mm/dd/yyyy") & "#, en lugar de: ," & "#" & Format(Me.F_Nacimiento, "mm/dd/yyyy") & "#" & ",