Velden onthouden bij hide userform

[Schipperjte]

Hoi,

Heb een userform gemaakt met wat invul naar excel, als ik halverwege alvast wat wil printen in excel

Verberg ik de userform met Hide
via een macro ga ik weer naar het userform

Dat werkt maar wat doe ik verkeerd ,als ik terug ga zijn de ingevulde velden weer helemaal leeg

Dus als ik een paar dingen heb ingevuld en hide gebruik.
Wat print bv dan weer show moeten die paar dingen er nog staan en niet een heel leeg userform

Private Sub Commandbutton1_Click()
 
Unload VT

End Sub

Sub Show_Form()
   VT.Show
    
End Sub

 

[Roncancio]

Met unload worden de gegevens verwijderd.

Als je het over Hide hebt, zou ik het ook in de code gebruiken.

Private Sub Commandbutton1_Click()
 
VT.Hide

End Sub

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

Het werkt bedankt !

Alleen nog 1 vraagje hoe maak ik alle velden in 1 keer leeg met een command button in het userform
het is dan de bedoeling dat ook in excel de cellen leeg zijn waar de gegevens naar toegaan

nu doe ik de velden met een macro leeg maken in excel maar in het user form ?

Misschien met unload maar dan eerst alle velden leeg laten kopieeren naar excel misschien ?

de bedoeling is eigenlijk dat alles leeg is als ik begin met een nieuwe
dus ook de cellen in excel


even een aanpassing

het liefst leegmaken met spatie , anders staat er in excel een 0
als ik dan wat uitprint en er is niets ingevuld staat er een 0

 

[Roncancio]

Het werkt bedankt !

Alleen nog 1 vraagje hoe maak ik alle velden in 1 keer leeg met een command button in het userform
het is dan de bedoeling dat ook in excel de cellen leeg zijn waar de gegevens naar toegaan

nu doe ik de velden met een macro leeg maken in excel maar in het user form ?

Misschien met unload maar dan eerst alle velden leeg laten kopieeren naar excel misschien ?

de bedoeling is eigenlijk dat alles leeg is als ik begin met een nieuwe
dus ook de cellen in excel


even een aanpassing

het liefst leegmaken met spatie , anders staat er in excel een 0
als ik dan wat uitprint en er is niets ingevuld staat er een 0

Met onderstaande code worden de textboxen in de userform leeggemaakt.
(Edit aangepast zodat ze nu vervangen worden door een spatie.)

Dim CT As Control
For Each CT In Me.Controls
    If TypeOf CT Is msforms.TextBox Then T.Value = " "
Next

Overigens kan het bestand worden aangepast zodat er geen 0 verschijnt.

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

krijg een fout melding

neem aan dat ik dit zo moet doen

Private Sub CommandButton3_Click()
Dim CT As Control
For Each CT In Me.Controls
If TypeOf CT Is msforms.TextBox Then T.Value = " "
Next
End Sub

of moet ik het hier ergens zoeken
Private Sub UserForm_Initialize()

 

[Roncancio]

Private Sub CommandButton3_Click()
Dim CT As Control
For Each CT In Me.Controls
If TypeOf CT Is msforms.TextBox Then CT.Value = " "
Next
End Sub

Oeps, foutje.
T moet CT zijn.

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

Snelle reactie ,

Bedankt het werkt :thumb:



En als laatste vraag

als er een veld niet leeg moet ? bv tekstbox 55,56,en 57



Alvast bedankt
Bas

 

[Roncancio]

Private Sub CommandButton3_Click()
Dim CT As Control
    For Each CT In Me.Controls
        If TypeOf CT Is msforms.TextBox Then
            If Right(CT.Name, 2) < 55 Or Right(CT.Name, 2) > 57 Then
                CT.Value = " "
            End If
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

weer wat geleerd

bedankt