perdón por mi español me gustaría una ayuda para terminar con mi archivo

gracias

stautest.xls

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.

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

¡Todo es posible, mi estimado!... ¡Todo es posible!...

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

De acuerdo aqui estaremos pendiente... porfavor no abandones el tema, porque debemos finalizarlo, en otro orden te dire que en este foro si no somos realmente explicitos (segun las normas), sera dificil obtener ayuda

Saludos

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.