Cellen vullen met waarden uit andere cel (via VBA) wanneer waarde kolom A "x" is

[renew000]

Hallo allemaal,

Vraagje? Ik heb een excelbestand met 2 tabbladen.
- een tabblad met data (in het voorbeeldbestand Sheet 1)
- een tabblad met een formuliertje(Sheet 2)

Nu ben ik ontzettend benieuwd of er een oplossing is voor het volgende.

Wanneer ik op Sheet 2 bij "Op naam van" een persoon kies en daarna op de knop druk dan zou ik graag zien dat in Sheet1 (kolom B) alle nummers die overeenkomen met het getal achter nummer wordt gevuld met een behandelaar.

Kortom als ik op Sheet 2;
- achter nummer 1200 zet
- achter "Op naam van" persoon 2 zet

Dan zou na het drukken op de knop op sheet 1 achter elke waarde "1200' persoon 2 moeten staan.

Hoop dat het mogelijk is en dat iemand mij kan helpenBekijk bijlage voorbeeld 1.xlsx

 

[Elsendoorn2134]

Renew000

Bovenstaand is redelijk simpel met VBA code op te lossen door middel van de range.find functie.
Hierbij de code die je zoekt.

Public Sub SubSetOpNaam()

Dim c As Range
Dim nZoeknummer As Long
Dim sNaam As String

If Sheets("Sheet2").Range("B2") = "" Then
    Exit Sub
Else
    nZoeknummer = Sheets("Sheet2").Range("B2")
End If

If Sheets("Sheet2").Range("B3") = "" Then
    Exit Sub
Else
    sNaam = Sheets("Sheet2").Range("B3")
End If

With Sheets("Sheet1").Range("A2:A1000")
    Set c = .Find(nZoeknummer, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Offset(0, 1).Value = sNaam
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Set c = Nothing

End Sub

Veel Succes.

 

[renew000]

Super bedankt, dit komt niet in de buurt, maar is exact hetgeen ik zocht.

Ik ga deze sluiten

thanks again

 

[zapatr]

Kortom als ik op Sheet 2;
- achter nummer 1200 zet
- achter "Op naam van" persoon 2 zet
Dan zou na het drukken op de knop op sheet 1 achter elke waarde "1200' persoon 2 moeten staan.

Daar is geen knop en vba voor nodig.
Typ op Sheet1 in B2:

=ALS(EN(A2>0;A2=Sheet2!B$2);Sheet2!J2;"")

en kopieer deze formule naar beneden in kolom B.