Ga naar Cell

[luc99]

Ik ben op zoek naar een moglijkheid om via een button een functie/macro te starten waardoor een ingegeven datum in een bepaalde cell opgezicht wordt in een reeks data's en dat de cursor dan verspringt naar de corresponderende cell in de opgezochte kolom.

In bijlage heb ik een klein voorbeeldje toegevoegd.

Bekijk bijlage Ga naar cell.xlsx

 

[Cobbe]

Onder andere met deze kan dat:

Sub cobbe()
For Each c In Range("A1:Z1")
 If c.Value = Range("A2") Then
  Cells(2, c.Column).Select
   Exit For
 End If
Next c
End Sub

 

[luc99]

Ziet er inderdaad al goed uit.

Enige probleem is nog dat er bijkomend dient gekeken te worden naar de actuele rij waar de cursor zich bevindt, om dan de datum te lezen die in kolom A staat op dezelfde regel en dan zich verplaatst naar de juiste kolom op dezelfde regel.

Kan U me hiervoor nog een oplossing bieden ?

 

[Cobbe]

Zo dan?

Sub cobbe()
For Each c In Range("A1:Z1")
 If c.Value = Range("A2") Then
  Cells([COLOR="#FF0000"]activecell.row[/COLOR], c.Column).Select
   Exit For
 End If
Next c
End Sub