Carlos Arrocha

No es mi fuerte la programación, pero intenta así a ver si es lo que quieres. Modifica en el código del botón estas líneas. Private Sub CommandButton4_Click() Cuenta = Me.ListBox1.ListCount For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) = True...

Prueba una cosa, aunque no se si te funcionará porque con access me pierdo. Haz click en el formulario, selecciona propiedades y busca la opción ShowModal. Si está en true ponlo en false y pruebas así a ver que tal. Salu2

Prueba a ver si funciona así. Sheets("saldos").Select Range("A2:F2").Select Range(Selection, Selection.End(xlDown) - 1).Select '(Acá es donde necesito subir una fila más arriba ya que la ultima filka no quiero copiarla) Selection.Copy...

Hay varias formas, pero yo conozco esta. Tienes que poner el label dentro de un marco. Código para el frame Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) lb_archivo.ForeColor =...

Donde te marca el error en amarillo, debes poner entre las paréntesis el nombre de la hoja.xlsx

Prueba una cosa: Pincha sobre el formulario y luego en las propiedades busca la opción ShowModa y si está en true la pones en false. Salu2

Eso te sale porque no tienes activado el producto de Microsoft. Normalmente sale cuando se tiene una copia protegida que tienes que comprar o renovar la licencia de uso. Salu2 Carlos Arrocha

[Hola Juan Te falto aclarar donde quieres la suma. En una celda, ¿un TextBox?

[Hola Jesus Prueba de esta forma que te indico a ver. 'Borra todo este bloque Private Sub TextBox8_Change() TextBox8.Text = Format(TextBox8.Text, "0%") End Sub '******************************************** TextBox5.Text = Hoja3.Cells(Fila, 5)...

[Hola Alberto. Aquí te dejo un ejemplo. Doy por hecho que quieres que al seleccionar un Itten en el ListBox, pase los datos a las differentes cajas de texto. Si es correcto, solo debes cambiar los nombres de los TextBox y ListBox por los que tengas....