chronologisch sorteren van zes kolommen tegelijk met hulpkolom

[littlepete]

hallo allemaal

mijn adressenlijst bevat kolommen voor geboorte S getrouwd T gescheiden U hertrouwd V overleden Y en gebeurtenis AY.
in kolom M staat telkens de maand en dag van deze datum:
geboren : D0419 of geboren en getrouw: D0419 (tweede lijn) E0331
de cellen in kolom M kunnen dus 1 tot 6 lijnen bevatten.

de idee is om na antwoord op de inputbox voor een maand elke cel in M te checken of de maand van het antwoord dezelfde is als de maand in D0419 / E0419 / F 0419 / ...
de lijn die de gevraagde maand bevat kopieer ik dan naar de hulpkolom (BB) waarna ik deze alfabetisch kan sorteren : 0105 0228 0331 0415 0508 ..3 1231.

ik zoek ondertussen voort, jullie hulp is zéér welkom, waarvoor dank !

peter, belgie
_________
in redelijkheid bereik je meer !
pjmb@telenet.be

 

[littlepete]

hallo

ik ondertussen al een hele stap verder ...

het opzet om in mijn adressenlijst één gefilterde lijst in chronologische volgorde van geboorte, trouw, gescheiden, hertrouwd, overleden en happening tegelijk te krijgen,
komt eraan:

op dit moment lukt het mij apart elke lijst op te vragen voor de gewenste maand (of geboorte, of trouwen,...)
EN...
het lukt mij OOK één lijst op te vragen van alles samen in de gewenste maand, waarbij het een letter in de hulpkolom zet die aanduidt welk gegeven gefilterd werd
(b voor geboorte; m voor getrouwd,...)

[...]
ElseIf keuze = 6 Then ' - PERSONEN
' Application.ScreenUpdating = False
Range("rngselectie").SpecialCells(xlCellTypeVisible).Value = ""
' elk onderdeel apart onzichtbaar selecteren en MARKEREN
' ------------------------------------------------------------------------------------
ActiveSheet.Range("rnggebchr").AutoFilter Field:=19, Criteria1:=antwoord & "*", Operator:=xlAnd
With ActiveSheet
rowz = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
If rowz = 0 Then
Else
.Range("rngselectie").SpecialCells(xlCellTypeVisible).Value = "b"
End If
End With
filteruit
[...]

mijn vraag:
hoe pas ik de blauwe lijn aan zodat, in plaats van die ene letter in de hulpkolom (rngselectie)
hij uit de overeenkomende kolom (rnggebchr) van die rij de maand en dag van de datum in de hulpkolom gezet worden?
de waarden uit de geboorte-/trouw- ... kolom kunnen integraal gekopieerd worden naar de hulpkolom.

ben benieuwd...
peter

 

[littlepete]

hallo


zoals jullie (als je volgt) weten, probeer ik in mijn adressenlijst één chronologisch gesorteerde lijst te maken op basis van de (inputbox) gewenste maand,
zodat alle geboorten, huwelijken, scheidingen, overlijdens, happenings van die maand gesorteerd zijn...

het lukt me al deze lijst op te vragen, en het invullen van een code in de hulpkolom (bv. M voor alle huwelijken, B voor geboorten enz.) lukt ook.

ik probeer nu na het filteren alle gegevens van de kolom geboorten te kopieren naar de hulpkolom...

als mij dat lukt, kan ik daarna hetzelfde doen voor de andere categorieen.

maar het lukt met nog niet, dit is wat ik probeer :

[...]
1 ElseIf keuze = 6 Then ' - PERSONEN
2 Application.ScreenUpdating = False
3 Range("rngselectie").SpecialCells(xlCellTypeVisible).Value = ""
' elk onderdeel apart onzichtbaar selecteren en MARKEREN - daarna mm en dd copieren van rng naar selectie
' -----------------------------------------------------------------------------------------------------------------------------------------------------------
4 ActiveSheet.Range("rnggebchr").AutoFilter Field:=19, Criteria1:=antwoord & "*", Operator:=xlAnd
5 ActiveSheet.Range("rnggebchr").SpecialCells(xlCellTypeVisible).Copy
6 ActiveSheet.Range("rngselectie").PasteSpecial xlValues
7 filteruit


lijn 3 : alle gegevens uit de hulpkolom verwijderen
lijn 4 : filteren op basis van het ANTWOORD
lijn 5 en 6 lukken niet : het kopieren na de filter van alle gegevens in de kolom rnggebchr (geboortenchronologisch) naar de hulpkolom (rngselectie)

misschien zien jullie de fout ???

alvast véél plezier met jullie ondernemingen

peter
belgie

 

[littlepete]

PROBLEM SOLVED.
PROBLEEM OPGELOST.

if you like to get more details contact me
als je meer wil weten, vraag het mij gerust.

thanks for the help
bedankt voor de hulp !!!

Pete,
Belgium