if not found then

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,
Onderstaande code doet niet wat ik wil
Kunt u mij helpen met als uitgangspunt mijn code

Code: 
Sub Test()
 Sheets("Blad2").Select

    r = Range("F45").End(xlUp).Row
     For x = 12 To r
    naam = Range("A" & x).Value
    Blad1.Columns(3).Find (Blad2.Cells(x, 1))

    If Not IsError(naam) Then
    GoTo 10
  Else
      MsgBox "Naam niet gevonden"

     End If
10   Next
     End Sub
 

Bijlagen

  • Not found dan wissen.xlsm
    27,7 KB · Weergaven: 40
zo misschien?
Code: 
Sub Test()

R = Range("F45").End(xlUp).Row

For x = R To 12 Step -1
If Application.CountIf(Blad1.Columns(3), Blad2.Cells(x, 1)) = 0 Then Blad2.Cells(x, 1).EntireRow.Delete
Next
End Sub
 
SjonR

Werkt perfect.
Ik vind het een heel mooie oplossing
Dank je wel.

Vriendelijke groet,

Jaap
 
Code: 
Then Blad2.Cells(x, 1).resize(, 6).Delete

Anders is de knop straks verdwenen.
 
HSV,
Ja dat had ik ook gezien.
Ook al zo'n mooie oplossing

Bedankt voor je reactie.

Vriendelijke groet,

Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan