Zoek regelnummer geeft fouten.

[ExcelTonnie]

Heb een voorbeeld gemaakt waarbij uit een kolom een nummer gezocht wordt en hiervan komt een melding in welke regel zich deze bevindt. Het nummer moet uniek zijn.
Echter hij geeft een verkeerde regel aan bij nr.1 en bij een niet bestaande nummer zoals 10.
Bestandje bijgevoegd.

Sub zoek()

i = Cells(6, 6)
MsgBox "Dit zou regel " & Range("B11:B300").Find(i).Row & " moeten zijn, klopt dit ?"
'Cells(3, 4) = Range("C11:C300").Find(i).Row
End Sub

 

[edmoor]

Maak er dit van:

Sub zoek()
    Set c = Range("B11:B300").Find(Range("F6"))
    If Not c Is Nothing Then
        MsgBox "Gevonden regel: " & c.Row
    End If
End Sub

Dan heb je het gevonden Range object volledig beschikbaar.

Of dit:

Sub zoek()
    On Error Resume Next
    MsgBox "Gevonden regel: " & Range("B11:B300").Find(Range("F6")).Row
End Sub

 

[ExcelTonnie]

Edmoor, dat is de oplossing
wederom bedankt.

 

[Bram65]

Maak er dit van:

Sub zoek()
    Set c = Range("B11:B300").Find(Range("F6"))
    If Not c Is Nothing Then
        MsgBox "Gevonden regel: " & c.Row
    End If
End Sub

Dan heb je het gevonden Range object volledig beschikbaar.

Hai Edmoor, en hoe is de Set C = Range als je niet weet hoeveel regels in kolom B zijn gebruikt?

 

[edmoor]

Zo:

Set c = Range("B:B").Find(Range("F6"))

 

[Bram65]

Top dank je. Ik ga mijn code volledig aanpassen.
Ik gebruik nu een lus om te zoeken naar een item.

 

[Warme bakkertje]

Voor hen die in de toekomst toevallig op deze vraag stuiten.
Gebruik NOOIT een volledige kolom voor welke actie dan ook, hetzij in een gewone formule of VBA.

Sub zoek()
    Dim x As Variant
    x = Application.Match(Range("F6"), Range("B11", Range("B" & Rows.Count).End(xlUp)), 0)
    If Not IsError(x) Then MsgBox "Dit zou regel " & x + 10 & " moeten zijn, klopt dit ?"
End Sub