Voor mijn werk probeer ik een uitleensysteem te maken. Voor een andere functie ben ik via dit forum al heel erg geholpen (hartelijk dank daarvoor!), maar ik zou graag nog een aanpassing willen.
Ik ben beginnend vba'er en kom er helaas zelf nog niet helemaal uit.
Onderstaande code heb ik geschreven, maar dat werkt niet.
De bedoeling is dat wanneer er een aantal ingevoerd wordt in een kolom aantal, dat automatisch de velden datum ophalen, datum terugbrengen en de naam gekopieerd worden uit de cellen P1, P2 en R1.
Is er iemand die mij kan helpen? Ik heb geen idee of mijn code een beetje lijkt op wat het zou moeten worden...
http://www.mijnbestand.nl/Bestand-QH6EGWUS6NTF.xlsm)
Ik ben beginnend vba'er en kom er helaas zelf nog niet helemaal uit.
Onderstaande code heb ik geschreven, maar dat werkt niet.
De bedoeling is dat wanneer er een aantal ingevoerd wordt in een kolom aantal, dat automatisch de velden datum ophalen, datum terugbrengen en de naam gekopieerd worden uit de cellen P1, P2 en R1.
Is er iemand die mij kan helpen? Ik heb geen idee of mijn code een beetje lijkt op wat het zou moeten worden...
http://www.mijnbestand.nl/Bestand-QH6EGWUS6NTF.xlsm)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Range("aantal1")
If Value.intersection(c) > 0 Then
rij = c.Row
Cells(rij, "Q") = Range("P1"): Cells(rij, "R") = Range("P2"): Cells(rij, "T") = Range("R1")
End If
Next
End Sub