vraag over sorteren in 2e blad na invoer op blad 1

[jongsma63]

Beste Goeroe's....

Ik ben nieuw op dit forum, maar heb door jullie know-how toch aardig wat voor elkaar gekregen.
Maar nu moet ik toch de hulp inschakelen voor 2 "problemen" (of eigenlijk dingen die ik nog graag zou willen).
Ik heb nl een bestelformulier gemaakt, waarbij het 1e blad het daadwerkelijke bestelformulier is,
en blad 2 is mijn "database". Wanneer ik dubbelklik krijg ik een invulmogelijkheid, om zo de database te vullen met nieuwe artikelen.
Tot zover gaat 't goed, maar nu "het probleem" het maakt niet uit waar ik op blad 1 klik, ik krijg overal deze dataform tevoorschijn.
Ik zou dit eigelijk alleen willen in de 1e kolom.

2e vraag is, kan er wanneer er een nieuwe invoer is geweest dmv deze dataform, automatisch gesorteerd worden???
Zo ja, hoe ga ik dit voor elkaar krijgen.

Hieronder het bestandje (binair excel bestand) (nou ja, ik hoop dat hij hier komt te staan....)

Bekijk bijlage Bijplanning 2012 Final.rar

Ik hoop dat één van jullie mij hierbij kan helpen!!!

Alvast héééél erg bedankt voor de moeite en tijd die jullie erin steken.

 

[jongsma63]

Ok, beste goeroe's.......

Ik ben weer 2 uur aan het hobby'en en prutsen geweest, en heb 1 deel van mijn problemen opgelost!!!
Ben nu zover, dat wanneer ik in kolom "ergens" klik, er het invulblad krijg!!!!!
Eindelijk!!!!!

Maar het automatisch sorteren bij een nieuwe invoer, krijg ik er niet in......

Dus als er iemand een oplossing heeft..........

Alvast bedankt!!!!

Hier mijn aangepaste versie..

Bekijk bijlage Bijplanning 2012 Final.rar

 

[Warme bakkertje]

Sub Sorteren()
    With Sheets("Gegevens Nsn")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("A3:A" & .Cells(Rows.Count, 1) _
                    .End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending
        With .Sort
            .SetRange Range("A1:F" & Sheets("Gegevens Nsn") _
                        .Cells(Rows.Count, 1).End(xlUp).Row)
            .Header = xlNo
            .Apply
        End With
    End With
End Sub

 

[jongsma63]

Hallo Rudi,

Allereerst heel erg bedankt voor je input....
Maar ik denk dat ik niet duidelijk genoeg ben geweest met mijn "verhaal".....

Ik heb de macro aangepast, en sorteren doet hij nu idd automatisch.
Maar ik zou het ook graag willen, dat wanneer er een nieuwe invoer wordt gedaan via het dataformulier (dubbelklik op kolom A van blad 1).

Nu moet ik iedere keer, naar het 2e blad toe gaan, om vervolgens te sorteren voor het verticaal zoeken juist werkt....
'T is natuurlijk niet een enorme omweg, maar gemak dient de mens...

Nogmaals mijn dak voor je gegeven input, en ik hoop dit straks nog eens te kunnen zeggen....

Groetjes Ronald

 

[Warme bakkertje]

Twee in een

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, [A5:A59]) Is Nothing Then
        With Sheets("Gegevens Nsn")
            .ShowDataForm
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("A3:A" & .Cells(Rows.Count, 1) _
                .End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending
            With .Sort
                .SetRange Range("A3:F" & Sheets("Gegevens Nsn").Cells(Rows.Count, 1).End(xlUp).Row)
                .Header = xlNo
                .Apply
            End With
        End With
    End If
End Sub

 

[jongsma63]

Beste Rudi,

je bent werkelijk super!!!!!

Het werkt nu na een kleine aanpassing brilliant!!!!

Ik zal hier nog wel even mee aan de stoei blijven, 't is een constante strijd om het maar te verbeteren,
waardoor ik almaar meer en meer leer van Excel en zijn kunnen!!

Gelukkig heb ik een super vraagbaak gevonden, en zal niet schromen om deze te gebruiken!!!

Nogmaals mijn dank voor de moeite!!!

 

[Warme bakkertje]

Staat nog een foutje in, zag ik net. Let op het punt "." voor Range

.Sort.SortFields.Add Key:=[COLOR="#FF0000"].[/COLOR]Range("A3:A" & .Cells(Rows.Count, 1)

 

[jongsma63]

Beste Rudi,

Ik heb eerlijk gezegt geen idee wat deze punt nu doet in de aanpassing die je/u hebt voorgesteld, maar ik heb het verandert.

Mag ik je/u nog één vraagje stellen??? Ik heb deze vraag ook al op 't forum staan, maar misschien dat jij/u dit antwoord zo 1-2-3 paraat hebt.

Wanneer ik mijn excel bestand ga delen met andere collega's via een netwerk,
klopt het dan, dat ik geen nieuwe invoer kan doen via het .ShowDataForm invoerblad??
Ik kan dan nl het invoerblad wel tevoorschijn krijgen, maar geen nieuwe "artikelen toevoegen" via deze manier.
Ik moet dit dan doen op het 2e blad.

Nogmaals mijn dank,

MvG Ronald