bovenste rij niet selecteren bij sorteren

[don42]

Beste,

ik heb volgende code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 3 Then Range("A1").CurrentRegion.Sort Cells(1, Target.Column), xlAscending
End Sub

hier sorteer ik drie rijen mee is het mogelijk om de bovenste rij te deactiveren
cel A1 B1 en C1
hier staat: Naam - Achternaam - Adres ( dat moet natuurlijk blijven staan)
heb nog een code gekregen hier op het forum (Roncancio ) toen was de vraag de laatste invoer niet te sorteren
onderstaande code doet dat perfect

If Target.Column <= 2 Then Range("A1").Resize(Range("A1").End(xlDown).Offset(-1, 0).Row, 2).Sort Cells(1, Target.Column)
End Sub

ondanks dat moet ik toch de hulp inroepen
wie kan me helpen

Doe er een voorbeeldje bij
heb een klein formulier gemaakt wat de invoer van de leden moet voorstellen
en vervolgens sorteren
kwam er achter dat er minimaal 3 regels gevuld moeten zij alvorens het formulier werkt!
Dat is niet mooi maar niet het grootste probleem

Bekijk bijlage formulier.xlsm


Don

 

[Roncancio]

Als je wilt dat er altijd wordt gesorteerd maar dat de 1e regel wordt overgeslagen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").CurrentRegion.Sort Cells(1, Target.Column), , , , , , , xlYes
End Sub

Met vriendelijke groet,


Roncancio

 

[don42]

hoi
nu wordt de eerste regel niet geselecteerd
maar selecteer ik een cel buiten de de kolom a b of c krijg ik een foutmelding
met de oude code had jij het zo gemaakt met ( >= 3) dat alleen die 3 rijen aan het spel mee mochten doen
om dan vervolgens laatste te deactiverenm, andersom is dat nog niet zo makkelijk geloof ik
heb al heel wat gegoogeld maar
dat xlYes ben ik ook tegengekomen maar kon me niet voorstellen,dat ik , , , , ,, , , xl Yes serieus moest nemem

 

[HSV]

Lichtjes aangepast.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 4 Then
 Range("A1").CurrentRegion.Sort Cells(1, Target.Column), , , , , , , xlYes
End If
End Sub

 

[don42]

Hoi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 4 Then Range("A1").CurrentRegion.Sort Cells(1, Target.Column), , , , , , , xlYes
End Sub

Beide bedankt voor de hulp, heb de toevoeging van harry op 1 regel gezet
en End If verwijderd