code voor zoeken in andere tabbladen

Status
Niet open voor verdere reacties.

Sjaakz

Gebruiker
Lid geworden
3 jun 2009
Berichten
120
Goedemiddag

Ik ben op zoek naar een code voor het zoeken naar een gemaakt afspraak (op dossiernr.) Wij hebben een simpel planningsprogramma gemaakt en willen snel de gemaakte afspraak vinden. (Door het dossiernr in cel a1 van het voorblad in te voeren)

Er is een bestandje toegevoegd met een simpele weergave van mijn wens.

Hopelijk is het op deze manier duidelijk.

Alvast bedankt voor jullie antwoorden.

Groet Sjaakz
 

Bijlagen

Code:
Sub VenA()
  For Each sh In Sheets
    If sh.Name <> "voorblad" Then
      t = Application.Match(Cells(1).Value, sh.Columns(1), 0)
      If IsNumeric(t) Then
        Application.Goto sh.Cells(t, 1)
        Exit For
      End If
    End If
  Next sh
End Sub
 
Super .... bedankt maar......

Hoi VenA,

Het werkt geweldig.

Super bedankt maar mag ik het nog een beetje moeilijker maken.

De te zoeken waarde kan ook in kolom 1 tm 31 voorkomen.

Alvast bedankt voor je antwoord.

Groet Sjaakz
 
Dan kan je beter Find gebruiken.

Code:
Sub VenA()
  For Each sh In Sheets
    If sh.Name <> "voorblad" Then
      Set r = sh.Columns("A:AE").Find(Cells(1).Value, , xlValues, xlWhole)
      If Not r Is Nothing Then
        Application.Goto r
        Exit For
      End If
    End If
  Next sh
End Sub
 
geweldig!

Bedankt VenA,

Hier kan ik weer mee verder!
Top!
:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan