• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Klachtsleutel in Overzicht

Status
Niet open voor verdere reacties.
U

udo1967

Gebruiker
Lid geworden
28 mrt 2005
Berichten
159
In dit bestand is een lijst met adressen die in de
Kolom J is omgezet tot een Klachtsleutel.

Deze Klachtsleutel moet nu zichtbaar worden
in het maand overzicht van December en Januari.

Wil graag weten hoe ik deze Klachtsleutel in een
formule kan laten zoeken op Maand/Wijk en dan
in de juiste Rij te zien krijg.

Aan de opmaak van de Maand Dec en Jan kan niet
gewijzigd worden.

------

Wat is de formule om alleen de adressen van
Wijk 003 of 007 zichtbaar te maken in een soort
Rapportage overzicht ?

BVD. Rob
 

Bijlagen

Kun je even duidelijk stellen wat er bvb in cel D5 op het tabblad December 2005 moet komen.
 
D5 t/m X5

Het is de bedoeling dat alle gevonden Klachtsleutels van de
adressen van bijvoorbeeld Wijk 005 gekopieerd worden
naar het blad December of Januari (niet optellen) in de
Range D5 t/m X5.

Je krijgt dus een rij van T's en G's achter elkaar.

Deze vormen een overzicht (in het kort) van alle
adressen die door deze wijk 005 gemaakt zijn.
In totaal zijn er 51 wijknummers. Verspreidt van 003 t/m
089 en 786 t/m 797. Ieder wijk heeft weer een nieuwe
lijn: Wijk 007 heeft weer D6 t/m X6 etc etc.
 
Ik ben al een goed eind op weg om tot een aanvaardbaar resultaat te komen.
Alleen stuit ik op een probleem omdat kolom J een formule bevat. Mag er eventueel een kolom toegevoegd worden waarin het resultaat van die formule als waarde geplakt wordt?
 
waarde

Geen probleem, Kolommen die niet interessant zijn wil ik
toch gaan verbergen... Doe maar of je thuis bent....
Zolang de Klachtsleutel (T 1 of G 1) maar intakt blijft
en het resultaat er maar komt.

Ben zelf ook nog aan het proberen gegaan en er
een Kolom bij gemaakt (zie meegeleverd bestand)
Kolom A is er tussengevoegd waar een samenvoeging
is gemaakt van Maand en Wijk (omdat hierop gezocht
moet worden).

Rob
 

Bijlagen

Wat is de formule om alleen de adressen van
Wijk 003 of 007 zichtbaar te maken in een soort
Rapportage overzicht ?
Klik om te vergroten...
Het makkelijkst is gebruik te maken van een autofilter. Als bijvoorbeeld office 2003 gebruikt (van andere versies weet ik het niet zeker) kan je alle cellen in je eerste blad selecteren en daarna met je rechtermuistoets er op klikken. Kies nu voor maak lijst. Je zal zien dat boven elke kolom een keuze menu komt waar je een filter in kunt stellen. Nu kan je gewoon voor de kolom de waarde 007 selecteren en de andere waarden worden niet getoond.

Ook is dit een prima oplossing voor je eerdere probleem. Je zegt dat het formaat niet gewijzigd kan worden, maar wellicht kan je wel een kolom toevoegen? In deze kolom hoef je dan alleen neer te zetten =Maand(A2) en dan kan je op deze kolom ook heel makkelijk een selectie uitvoeren.

Mocht deze oplossing niet voor je kunnen werken, kan ik je de volgende macro geven. De reden dat we hiervoor een macro gebruiken is omdat je over meerdere cellen tegelijk praat (meerdere cellen moeten verhuizen naar meerdere cellen). Heb je het over 1 cel moet iets bevatten van meerdere cellen, dan voldoen excel formules meestal wel.

Start de macro via ALT F8. Via Alt F11, het klikken in de macro code en het drukken op de knop F8 zorgt ervoor dat hij stap voor stap door de macro heen loopt.

(omdat ik het bestand vergeten was op te slaan zal ik hem zo na het eten nog even opnieuw maken)

(overigens wat ik nog niet weet is wat er precies op die andere pagina's moet komen, ik had nu maar gekozen voor die klachtensleutel)
 
Ok het bestand is weer hier, omdat ik niet weet wat je precies in die cellen wil hebben heb ik er maar de klachtensleutel neer gezet.

Code: 
Sub testje()
'excel zal de maanden omzetten als getal
Dim maand As Integer
'hier sla ik de naam van het wijk in op, let wel op dat deze aanwezig moet zijn op de andere pagina
Dim wijk As String
'hier doe ik die sleutel in die ik wegschrijf op die andere paginas
Dim klachtsleutel As String
Sheets("Adressen").Select
Range("A2").Select

'zolang er nog regels zijn in Adressen blijven we doorgaan
While ActiveCell.Value <> ""
  'haal de maand op
  maand = Month(ActiveCell.Value)
  'wijk staat er naast
  wijk = ActiveCell.Offset(0, 1).Value
  'klachtsleutel staat 9 cellen naast maand
  klachtsleutel = ActiveCell.Offset(0, 9).Value
  
  'hier gaan we naar de juiste sheet waar die weggeschreven moet worden
  If maand = 12 Then
     Sheets("December 2005").Select
  Else
     Sheets("Januari 2006").Select
  End If
  'op die sheet gaan we naar B1, we blijven in die kolom net zo lang naar beneden gaan tot we ons wijknummer tegen komen
  Range("B1").Select
  
  While ActiveCell.Value <> wijk
    ActiveCell.Offset(1, 0).Select
  Wend
  'nu zitten we dus op de juiste regel, we gaan even naar opzij om daar weg te schrijven
  ActiveCell.Offset(0, 2).Select
  'wanneer er al iets in de cel staat moeten we die er naast hebben
  While ActiveCell.Value <> ""
    ActiveCell.Offset(0, 1).Select
  Wend
  'schrijf nu echt iets weg
  ActiveCell.Value = klachtsleutel
  
  'en weer terug naar onze eerste sheet en naar de volgende regel
  Sheets("Adressen").Select
  ActiveCell.Offset(1, 0).Select
Wend
End Sub
 

Bijlagen

Aan FIHOD

Aan FIHOD,

Is "=TRANSPONEREN" een optie ?
Geeft een verticaal cellenbereik als resultaat van een horizontaal
cellenbereik, en vice versa. TRANSPONEREN moet worden ingevoerd als een
matrixformule in een bereik met hetzelfde aantal rijen en kolommen als
matrix. Gebruik TRANSPONEREN om de verticale en horizontale stand van een
matrix in een werkblad of een macroblad om te draaien.
 
ik kom er wel uit, alleen heb ik nu eerst iets anders af te werken
no panick
 
Lengte van lijst

De lengte van de lijst met NAW gegevens gaat zeker 250 tot 350 regels lang worden. Dat is alleen de data van 1 mnd.
Misschien is het beter om 12 bladen (1 voor ieder mnd) te maken voor deze NAW gegevens....

Bekijk maar wat makkelijker is tbv de Formule.

Later is het nog wel de bedoeling om een Zoek optie te maken waarin een bepaalde periode ingegeven.
bijvoorbeeld: Alle NAW gegevens van wijk 003
in de maand januari t/m maart.

Dat zal wel niet zo moeilijk zijn....

Robert
 
Test gedaan... bijna goed.

Getest... en het ziet er goed uit.

Heb in het onderstaand bestand bladen aangepast aan
de werkelijke situatie omdat je in de Macro met Range werkt.
Daarnaast het adressen gedeelte uitgebreidt met meer "wijken" om te kijken of andere wijken ook worden ingevuld maar deze stopt bij de eerste Range groep.

Ik mis bij de Letter T of G de Datum ! Deze graag toevoegen.
Let op : Dat er twee spaties tussen Letter en Cijfer zit.

Dat de Cellen niet automatisch ingevuld wordt is niet zo erg.

Alvast bedankt voor de moeite....

Robert
 

Bijlagen

Je schrijft in je eerste berichten:
Aan de opmaak van de Maand Dec en Jan kan niet
gewijzigd worden.
Je krijgt dus een rij van T's en G's achter elkaar..
Afgaande op die gegevens kunnen dus enkel de T's en de G's in de cellen geplaatst worden.

Het stoppen bij de eerste groep komt omdat de macro zo opgebouwd is dat hij bij de eerste cel stopt die niet meer overeenkomt met jouw gegeven.
Maw aan de eerste lege cel.
 
Ik zou je toch zeer aanraden de Month functie van VBA te gebruiken ipv de datum zelf vertalen naar maanden.

Dim maand as Integer
Dim datum as Date
datum = ...
maand = Month(datum)
 
T en G

Geplaatst door fihod
Je schrijft in je eerste berichten:
Aan de opmaak van de Maand Dec en Jan kan niet
gewijzigd worden.
Je krijgt dus een rij van T's en G's achter elkaar..
Afgaande op die gegevens kunnen dus enkel de T's en de G's in de cellen geplaatst worden.

Het stoppen bij de eerste groep komt omdat de macro zo opgebouwd is dat hij bij de eerste cel stopt die niet meer overeenkomt met jouw gegeven.
Maw aan de eerste lege cel.
Klik om te vergroten...

De Datum die na een T of G komt wordt doel bewust verborgen door de volgende Cel. Welke ook precies mijn bedoeling is. De datum wordt in het verdere proces alleen gebruik in Formules om weer andere overzicht te maken.
(zou je de datum er aub. nog bij kunnen maken ?)

Wat misschien wel zo handig zou zijn is dat de drie
groepen aan elkaar gemaakt worden dan is dat probleem ook weer opgelost. Maakt me eigenlijk niet zoveel uit.

What about de opmerking van Snabbi over de maand functie in deze Macro. Heeft hij gelijk of....

Robert
 
dan moeten alle cellen wel eerst voorzien worden van een spatie, anders zou bvb: G 21 wel helemaal gezien worden in de laatste ingevulde cel.
 
Opgelost

:thumb:

FIHOD....
Tien met een griffel....

Jou oplossing is perfect... Het voordeel van deze Macro
is dat tov een Formule dat ik bij het invoeren niet hoef te
wachten totdat het is verwerkt. Hoe langer de lijst met
NAW gegevens de meer seconden het neemt om weer
verder te kunnen met de volgende NAW...

Kan vanmiddag aan de slag om jou Macro in te passen.

Nogmaals bedankt !

:thumb:

Robert
 
nog 1 bemerking
maak naast de pagina "adressen" een nieuwe pagina "adressenjan" en hou daarin alle gegevens voor de maand januari bij.
als je dan op de verzamelpagina "Januari 2006" een knop met daaraan verbonden een macro plaatst dan moeten wel enkele kleine aanpassingen binnen die macro gebeuren
zoals bvb de namen van de pagina's en
de seriële getallen die 1 januari 2006 en 31 januari 2006 aangeven (respectievelijk 38718 en 38748)
 
Serieele getallen

Oke... Als dat de enige aanpassingen zijn dan moet me dat wel lukken.

Alleen hoe bereken je die Serieele getallen ?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan