Userform niet afsluiten

[CygneVoler]

Ik heb twee vragen:
In de bijlage vind je een userform met invulvelden. Deze worden opgeslagen op een excelsheet. (verryhidden)
Nu is het niet wenselijk als het eerste veld niet wordt ingevuld.
Hiervoor heb ik de volgende code ingevuld.

If T1 = "" Then
MsgBox ("Er is geen barcode ingevuld.Vul anders het artikelnummer in!")
Exit Sub
    
End If

Nu is het zo dat wanneer is op oke druk de userform afsluit. Hiermee zijn dan ook de gegevens verloren gegaan en dat is niet goed voor de werksfeer:d
Wat moet ik anders doen om het invulscherm open te laten staan als de melding uit de tekstbox is geweest?

Vraag 2
In een van de tekstvelden wil in een vaste tekst laten staan die ook moet worden opgeslagen. Maar hoe krijg ik de tekst zichtbaar als ik de userform via de button open?
Ik heb er als voorbeeld nu het woord pallet ingevuld.

Wie kan me hiermee helpen?
"Monsieur Cynge"

 

[edmoor]

Haal de opdracht Unload Me weg waar je niet wil dat het formulier wordt gesloten.
Het vullen van standaard tekst kan je regelen in de Userform_activate.

 

[CygneVoler]

Edmoor, bedankt voor je reactie. De actie Unload me moet ik me wel een beetje voor schamen dat ik dat niet heb onthouden.
Maar de Userform_activate, bedoel je daar een commando mee of moet ik iets activeren in de tekstbox?
Bijvoorbeeld ipv "Private Sub T6_Change()" wijzigen in Private Sub T6_Activate()???

 

[gast0660]

Hoi,
Code onder uw formulier

Private Sub UserForm_Initialize()
T6.Value = "Pallet"
End Sub

Edit: codetags vergeten

 

[CygneVoler]

Ha ha ja dat mag je zeggen!, maar het werkt niet!

 

[gast0660]

Hoi
Had je bestandje nog niet bekeken.
Test deze
Verander

Private Sub cmb_Bewerken_Click()

Frame3.Visible = True
Application.ScreenUpdating = False
With Sheets("Artikelen")
   .Visible = True
  Set ArtCel = .Cells(cmbInvoer.ListIndex + 2, 1)
    For i = 1 To 8
     Me("Label" & i).Caption = .Cells(1, i)
    Next i
  
    For i = 1 To [COLOR="#FF0000"]5[/COLOR]
      Me("T" & i) = ArtCel.Offset(, i - 1)
    Next i
        [COLOR="#FF0000"]T6 = "pallet"[/COLOR]
        T8 = ArtCel.Offset(, 7)
        T7 = ArtCel.Offset(0, 6).Value
        Cmd_Verwijderen.Visible = True
        Cmd_Annuleren.Visible = True
   .Visible = xlVeryHidden
   
   With Cmd_Opslaan
   .Caption = "Wijziging Opslaan"
   .Visible = False
   .Width = 99
End With
End With
End Sub

En

Private Sub WisTextboxes()
  T1.Value = ""
  T2.Value = ""
  T3.Value = ""
  T4.Value = ""
  T5.Value = ""
  T6.Value = "[COLOR="#FF0000"]Pallet[/COLOR]"
  T7.Value = ""
  T8.Value = ""
  
   End Sub

 

[CygneVoler]

Oke dankjewel. Ga het morgen testen. Ik laat van me horen.

 

[CygneVoler]

Hoi Jack, het werkt idd. Waar ik alleen tegenaan loop is wanneer je in de UF tekst toevoeg bv "pallet" wegwerp, dan slaat hij dat keurig op maar als je het wilt bewerken (knopje bewerken) haalt deze niet de extra ingevulde tekst mee op. Is dat überhaupt mogelijk?

 

[gast0660]

Hoi,
Zoiets dan?
Verander

T6= "Pallet"

T6 = ArtCel.Offset(, 5)

 

[CygneVoler]

Geweldig bedankt. Mooie dag.

 

[CygneVoler]

Allemaal hartelijk dank voor de hulp. Graag tot een volgende keer.