Zoeken in een kolom naar een naam met behulp van VBA code

[suikerklont]

Op een werkblad staat inmiddels in kolom I een reeks namen. Met onder andere de naam "jan"

Er is een variabele actief met de inhoud "jan"

Hoe zoek ik met behulp van de VBA code effectief naar " jan" in de kolom?

Vervolgens moet ik naast de naam "jan" de inhoud van de variabele "loon" plaatsen.

 

Graag hulp, bij voorbaat dank

[bucky]

Suikerklont,

 

Ik weet niet of je dit bedoeld, maar hier kun je wel op naam zoeken.

 

edit: Hier ging dus iets fout met het uploaden.

8 mei 2015 aangepast door bucky

[bucky]

suikerklont,

 

Ik weet niet of je dit bedoeld, maar hier kun je wel op naam zoeken.

1-Naam zoeken macro.xlsm

[bucky]

Foutje in de code, hier hersteld.

en code activeren door ergens in je werkblad in een lege cel te dubbelklikken. te

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Found As Range, tempcell As Range, X As Variant
X = InputBox("Welke naam zoek je?." & vbCrLf & "Er wordt gezocht in de kolom 'naam'")
If X <> "" Then
Set Found = Columns(9).Find(X, , xlValues, xlPart)
If Found Is Nothing Then
    MsgBox X & "  Naam niet gevonden!"
    Exit Sub
Else
    Application.GoTo Found.Offset(, -8), True

End If
If MsgBox("Verder zoeken?", vbYesNo) = vbYes Then
    Do
        Set tempcell = Columns(9).FindNext(After:=Found)
        If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then
            MsgBox "Niet(s) meer gevonden!"
            Range("L4").Select
            Exit Do
          End If
        Set Found = tempcell
        Application.GoTo Found.Offset(, -8), True
        If MsgBox("Verder zoeken?", vbYesNo) = vbNo Then Exit Do
    Loop
End If
Else: Exit Sub
End If
End Sub

[suikerklont]

Hallo Bucky

Dit is precies wat ik zoek

Ik heb in mijn VBA app hiervan maar 2 regels nodig

De find functie en de application functie

Dat had ik zelf ook al geprobeerd, maar kreeg het niet goed werkend

Nu werkt het uitstekend

Hartelijk dank

[kweezie wabbit]

Als je verder geen vragen meer hebt, mag je dit onderwerp  afsluiten.
Klik hiervoor bovenaan op modereer onderwerp en vervolgens op sluiten.

[alpha]

Andere oplossing met 1 naam en 1 bedrag voor het loon behorend bij die naam, ervan uitgaand dat het bereik I2:J400 is. Voor meer namen en bijbehorende bedragen, is de macro eenvoudig aan te passen.

Sub macro1()
Dim x As Integer, loon As Double
loon = 2000
With Sheets("Blad1")
.Range("J2:J400").ClearContents
For x = 1 To 400
If LCase(.Range("I" & x).Value) = "jan" Then
.Range("J" & x).Value = loon
End If
Next x
End With
End Sub

13 mei 2015 aangepast door alpha