Jump to content

vaciar listbox todos los días o presionar un botón


CISCO

Recommended Posts

Guest Cacho R

Hola! CISCO.

Más allá de algunos detalles, no parecieras tener dificultades con el traspaso de la información desde el userform a la hoja correspondiente.

De modo que la repregunta es: ¿En qué tema específico requieres una orientación?...

Saludos, Cacho R.

Link to comment
Share on other sites

Hola CISCO

Guiandome por el titulo de tu tema, creo que esto te puede servir:

Private Sub UserForm_Initialize()
Me.TextBox1 = Date
Me.ListBox1.RowSource = ""
End Sub[/PHP]

O crea un boton6 para que funcione como tal:

[PHP]Private Sub CommandButton6_Click()
Me.ListBox1.RowSource = ""
End Sub[/PHP]

Espero te de ideas o te funcione y nos comentas porfavor

[b]

Cacho espero pegarle al clavo! y te mando muchos abrazos

[/b]

Saludos desde Honduras

Link to comment
Share on other sites

esto ya lo probe pero me vacia todo cuando entro nuevos datos , yo lo que queria es que si entro nuevo datos se me queda en el listbox para mirar si todos son buenos. los nuevos datos se quedan en en el FicheTest. duespe puedo salir del userform y cuando quiero hacer nuevos en listbox esta vacio

gracia a todos

yo miro de mi lado y si encuentro algo lo comento

Link to comment
Share on other sites

Guest Cacho R

Hola! CISCO (y Gerson). Intenta con las 3 siguientes sugerencias:

1º) Dentro de las propiedades del ListBox1, tienes a RowSource con un rango FIJO ya asignado. Esto te provoca que no puedas ver nuevos registros. ¿Solución?... Deja en blanco esa propiedad.

2º) Modifica el UserForm_Initialize para que quede del siguiente modo:

Private Sub UserForm_Initialize()
Me.TextBox1 = Date

With Sheets("FicheTest")
If Not IsEmpty(.[b3]) Then
ListBox1.List() = .Range("b3:f" & .[b2].End(xlDown).Row).Value
End If
End With

End Sub[/PHP]

3º) Antes del [b]End Sub[/b] del [color=#ff8c00][b]CommandButton1_Click[/b][/color], agrega:

[PHP]With Sheets("FicheTest")
If Not IsEmpty(.[b3]) Then
ListBox1.List() = .Range("b3:f" & .[b2].End(xlDown).Row).Value
End If
End With[/PHP]

¿Podrías comentar como te ha ido?...

Saludos, Cacho R.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy