Gezocht naar oplossing voor verticaal zoeken en ALS functie

[sewkoemar]

Beste heer, mevrouw,

Ik wil graag het verticaal zoeken automatiseren (middels opname macro) bij het opgeven van een periode.

Indien ik voor de maand januari de salaris gegevens wil zien, dan zoek ik het op middels verticaal zoeken.

Voor de periode daarna idem.



Ik wil met 1 druk op een macroknop de aangepaste mutaties per medewerker voor de juiste maand zien.

Hoe krijg ik dat voor elkaar?

Bijvoorbeeld: de gewenste periode intypen op het werkblad MACRO en de mutaties voor alle medewerkers zijn aangepast.


Ik heb geprobeerd te experimenteren met ALS functie en verticaal zoeken, maar helaas geen gewenste resultaat:
Indien periode 1 is ingetypt, dan zien we de mutaties voor de medewerkers in de maand januari
Indien periode 2 is ingetypt, dan zien we de mutaties voor de medewerkers in de maand februari
etc...
Ik wil u ook verwijzen naar een bijlage.

Wie zou me daarbij kunnen helpen?
Bij voorbaat dank.

 

[HSV]

In werkbladmodule "Macro".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rij As Long
If Not Intersect(Target, Range("F10")) Is Nothing Then
Range("A1").CurrentRegion.ClearContents
 With Sheets("Mutaties")
   rij = .Range("A1").CurrentRegion.Columns(1).SpecialCells(2).Count
  Range("A1").Resize(rij, 2) = .Range("A1").CurrentRegion.SpecialCells(2).Resize(, 2).Value
  Range("C1").Resize(rij) = .Cells(1, Range("F10").Value + 4).Resize(rij).Value
 End With
End If
End Sub

 

[sewkoemar]

Beste Harry,

Bedankt voor de oplossing.
Mijn verzoek is of u eventueel de excel functie wilt weergeven, zodat ik het kan "ontleden" en kan leren hoe je hebt opgemaakt.
Bedankt voor je genomen tijd en kennisoverdracht.

Groet,
Sewkoemar

 

[HSV]

Zet deze code er maar eens in, en mijn beschrijving wordt groen van kleur.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rij As Long
If Not Intersect(Target, Range("F10")) Is Nothing Then 'bij verandering van cel F10, dan....
Range("A1").CurrentRegion.ClearContents  'maak alle cellen leeg in het aaneengesloten bereik vanaf A1.
 With Sheets("Mutaties")  'het gaat om de gegevens van blad 'mutaties'.
   rij = .Range("A1").CurrentRegion.Columns(1).SpecialCells(2).Count  'tel het aantal rijen.
  Range("A1").Resize(rij, 2) = .Range("A1").CurrentRegion.SpecialCells(2).Resize(, 2).Value
   'zet gegevens in A1 met het aantal rijen en twee kolommen breed van blad mutaties (aantal rijen diep en 2 kolommen breed.
  Range("C1").Resize(rij) = .Cells(1, Range("F10").Value + 4).Resize(rij).Value
  'zet gegevens in C1 (met aantal rijen diep) van de waarde van F10 + 4 kolommen verderop met het aantal rijen diep.
 End With
End If
End Sub