Zoeken in een tabblad

[Excel01]

Beste lezers,
ik heb op tabblad 1 een paar lijsten aangemaakt met namen en voor die namen heb ik een nummer gezet.
Ik wil nu middels een formule allen de namen die een nummer hebben zoeken. Ik heb zitten zoeken heir maar kom er niet uit. Ik hoop dat iemand een idee heeft. Zie vb.Bekijk bijlage zoeken1.xls

 

[Cobbe]

Dit heb ik er van gemaakt:

Sub cobbe()
rij = 7
For Each cl In Range("B3:I20")
 If IsNumeric(cl) And Not cl = "" Then
  Cells(rij, "Q") = cl
  Cells(rij, "R") = cl.Offset(, 1)
  rij = rij + 1
 End If
Next
End Sub

 

[Excel01]

He bedankt. Ik heb het geprobeerd maar zie een aantal dingen dingen die niet goed gaan. Als ik bv getallen weg haal, dan blijven de namen staan en worden ze dubbel Zie bestandje. Ik vroeg me af of dit ook via formule kan, ik ben niet o goed in macro's. Bekijk bijlage zoeken1.xls

 

[Georgyboy]

Zo iets ?

in cel U7 en doortrekken

=ALS(Q7="";"";R7)

Groeten,
Georgyboy

 

[Excel01]

er verandert weinig. Alles blijf staan of worden dubbele namen. Als ik een knop erbij doe die alles verwijdert, dan is het probleem opgelost denk.
Alleen ik heb geen verstand van macro. Dus een knop om te lezen een om te verwijderen. Alvast bedankt

 

[VenA]

Een kleine aanpassing in de code van @Cobbe

Sub cobbe()
rij = 7
Range("Q7:R15").ClearContents 'maak het tabelletje leeg
For Each cl In Range("B3:I20")
 If IsNumeric(cl) And Not cl = "" Then
  Cells(rij, "Q") = cl
  Cells(rij, "R") = cl.Offset(, 1)
  rij = rij + 1
 End If
Next
End Sub