met Countif zoeken in twee kolommen naar een naam

[Oude leerling]

Geacht forum,

Onderstaande code geeft foutmelding dat de typen niet overeen komen.
Kunt u mij helpen?
Welke fout maak ik?

 If Application.CountIf([Blad1.Columns(1),Blad1.Columns(7)], Blad2.Cells(Z, 2)) = 0 Then Blad2.Cells(2, 3) = "X"

Vriendelijke groet , Jaap

 

[HSV]

Geen flauw idee wat je aan het doen bent,
Probeer dit eens.

If Application.CountIf(Blad1.Columns(1).resize(,7), Blad2.Cells(Z, 2)) = 0 Then Blad2.Cells(2, 3) = "X"

 

[Oude leerling]

HSV,

Dat werkt goed.
Begrijp ik het goed dat het gebied waarin nu gezocht word
niet kolom 1 en kolom 7 is maar
kolom 1 t.e.m. 7 .

Vriendelijke groet, Jaap

 

[emields]

dat begrijp je verkeerd . er word gezocht in 1 kolom nl. de 7de

 

[HSV]

Dat begrijp je verkeerd, er wordt gezocht in kolom 1 t/m 7.
Dat had je goed gezien Jaap.

 

[snb]

Dat kan (beter) volledig in VBA afgehandeld worden

Sub M_snb()
    If Blad1.UsedRange.Columns(1).Resize(, 7).Find(Blad2.cells(z,2)) Is Nothing Then Blad2.Cells(2, 3) = "x"
End Sub

 

[Oude leerling]

In mijn geval werkt de resize(, 7) prima.
Als je echter alleen maar in Kolom 1 en kolom 7 wil zoeken, hoe ziet de code er dan uit?

 

[HSV]

If union(Columns(1), columns(7)).Find([COLOR=#3E3E3E]Blad2.cells(z,2)[/COLOR]) Is Nothing Then [COLOR=#3E3E3E]Blad2.Cells(2, 3)[/COLOR] = "x"

 

[snb]

Waarom zouden er in de kolommen 2 t/m 6 dezelfde gegevens staan als in kolom 1 of 7 ?

 

[Oude leerling]

HSV ,
Bedankt , weet ik ook weer .
Weer wat opgestoken van dit forum

snb ,

Je heb helemaal gelijk.
Dat zal denk ik sporadisch voorkomen maar wel interessant om te weten dat je
ook 2 aparte kolommen kan aangeven.
Voor het geval dat!!

Allebei bedankt voor de geboden hulp.

Vriendelijke groet , Jaap