• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

1e cel rechts opvullen van een gevonden waarde

Status
Niet open voor verdere reacties.

GuntherVD

Gebruiker
Lid geworden
13 jul 2011
Berichten
13
Sorry ik heb weer een probleempje waar ik mee vast zit.

al mijn code zit in de userform als je op prestaties klikt.
als me in de form een personeelsnummer invoert wil ik dat de ingevulde velden worden toegevoegd aan de prestatie lijst. als een personeelsnummer al voorkomt in deze lijst mag dit niet op een nieuwe lijn komen maar moeten de uren achter de naam komen.

vb: als men ingeeft:
personeelsnummer 6
uren 5
dan is het de bedoeling dat 5 op cel G5 komt
als dezelfde gegevens nogmaals ingevuld worden moet 5 op H5 komen.

Dit is mijn code hoewel er een fout inzit.
Code:
 lCol = .Range("FoundRange").End(xlToRight).Offset(1).col
.Cells(foundrange, lCol) = lbl_uren.Caption

Ik heb deze code netjes gemarkeerd in de bijlage zodat je het makkelijk terugvindt.
mvg GuntherBekijk bijlage Administratie.xlsm
 
zo doet de code het maar hij schrijft hem dan nog niet weg.

Code:
        lCol = Cells(foundrange.Row, Columns.Count).End(xlToRight) + 1
        .Cells(foundrange, lCol) = lbl_uren.Caption

Niels
 
Sorry links en rechts door elkaar gehaald.
zo zou ie het moeten doen.


Code:
lCol = Cells(foundrange.Row, Columns.Count).End(xlToLeft).Column + 1
        .Cells(foundrange.Row, lCol).Value = lbl_uren.Caption

Niels
 
Cool hij doet het weer, ik zat er niet zover naast maarja naast is niet goed genoeg :)

Bedankt Niels ik kan weer verder :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan