Verticaal zoeken op meerdere voorwaarden?

[famjj]

Een probleempje waar ik helemaal niet uitkom

Ik heb twee tabbladen.
In "Blad 1" staan in de kolommen A en B getallen
In "Blad 2" staan in de kolommen A en B ook getallen

Het aantal rijen waar getallen in staan is variabel.

Hoe kan ik een script maken die in Blad 2 in kolom C "klopt!" zet als de waarden in de twee bladen overeenkomen.

Dus als bijvoorbeeld in Blad 1 in een bepaalde rij in kolom A 201443 staat en in kolom B 234 en dezelfde getallen staan in Blad 2 in een rij, dan krijg ik in in kolom C van Blad 2 in die rij van Blad 2 "klopt!"

IN de bijlage zouden dan in Blad 2 in de gele "Klopt!" moeten staan.

 

[wampier]

Kan toch ook met een formule?

Overigens klopt je voorbeeld niet, want er zijn 2 meer "klopts" dan je gele cellen hebt.

=SOMPRODUCT(((A1=Blad1!$A$1:$A$8)*1) * ((B1=Blad1!$B$1:$B$8)*1))

 

[famjj]

Het kan inderdaad met een formule. Alleen ik wil dat hij automatisch alle niet legge cellen controleert.
Dus in onderstaande moet de
Selection.AutoFill Destination:=Range("C1:C11")
Range("C1:C11").Select
doorgaan tot de cel niet meer leeg is.

<Sub Macro2()
'
' Macro2 Macro
'

'
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(((RC[-2]=Blad1!R1C1:R8C1)*1) * ((RC[-1]=Blad1!R1C2:R8C2)*1))"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C11")
Range("C1:C11").Select
End Sub>

 

[HSV]

Sub hsv()
With Sheets("Blad2")
  .Range("C1") = "=IF(SUMPRODUCT((RC[-2]=Blad1!R1C1:R8C1)*(RC[-1]=Blad1!R1C2:R8C2))>0,""Klopt!"","""")"
  .Range("C1:C" & .Range("A1").End(xlDown).Row).FillDown
  End With
End Sub