clearcontents en vervolgens sorteren

[Kazandra]

Hallo,

In mijn userform gebruik ik het volgende:

'hernoemen verwijderen
  Sub verwijderen()
   With Sheets("Klanten")
    .Columns(1).Find(what:=F1T2.Value, LookIn:=xlValues).EntireRow.ClearContents
call sorteren    
Me.Repaint
  End With
  End Sub

'hernoemen sorteren
  Sub sorteren()
  With Sheets("Klanten")
    .UsedRange.Columns.AutoFit
    Columns("K:L").Hidden = True
    Columns("T:U").Hidden = True
    Columns("AB:AE").Hidden = True
    .[A1].CurrentRegion.Offset(3).sort .[H4], , .[D4]
    End With
  End Sub
  
'hernoemen FormulierLegen
Sub FormulierLegen()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "combobox"
c.Value = vbNullString
Case "OptionButton", "CheckBox"
c.Value = False
End Select
Next
Dim cCont As Control
For Each ctl_Cont In Me.Frame6.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
ctl_Cont.Value = vbNullString
End If
Next
For Each ctl_Cont In Me.Frame3.Controls
If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
ctl_Cont.Value = vbNullString
End If
Next
Me.Frame2.Visible = False
Me.Frame3.Visible = False
Me.Frame6.Visible = False
End Sub

Nu loop ik tegen de volgende problemen aan:
1. wanneer ik van een rij de inhoud wis, worden de andere rijen daarna niet meer gesorteerd. Er ontstaat een lege rij, waarna de volgende rijen niet meer gesorteerd worden.
2. van de verborgen kolommen worden sommige wel weergegeven terwijl andere wel netjes verborgen zijn
3. als ik het formulier voor de tweede keer invul krijg ik de foutmelding 'ongeldige eigenschappenwaarde'. Blijkbaar gaat er iets met het legen van het formulier na het invullen niet goed.
4. ik gebruik een afhankelijke combobox, maar deze krijg ik niet leeggemaakt na invullen van het bestand. Hebben jullie hier een goede formule voor?

Hopelijk kunnen jullie mij verder helpen.
Alvast bedankt voor het meedenken.

Groetjes Erna

 

[VenA]

0.) Kan je even jouw bestandje bijvoegen?

1.) Door het leegmaken van een rij zal deze waarschijnlijk niet meer correct werken.

.[A1].CurrentRegion.Offset(3).sort .[H4], , .[D4]

Waarom maak je de rij leeg ipv deze te verwijderen?

2.) zie 0.) of als de kolommen in de sheet 'klanten' verborgen moeten worden dan moet je er een . voorzetten
iets anders geschreven

.Range("K:L,T:U,AB:AE").Columns.Hidden = True

3.) zie 0.)

4.) zie 0.) of de listindex op -1 te zetten

 

[Kazandra]

Bedankt. Het verbergen gaat nu wel goed. Bijgaand mijn bestand.

Groetjes Erna

Bekijk bijlage Helpmij11-9-2016.xlsm

 

[Kazandra]

Heeft er iemand nog een oplossing voor mijn vragen?

Alvast bedankt.

Groetjes Erna