Invullen van een waarde automatisch in een kolom zetten

[jaboom]

Ik ben op zoek naar een formule of macro die automatisch de waarde van een cel in een kolom plaatst na het drukken van de enter-toets.
Vervolgens de cursor in een andere cel zet en als daar dan een getal ingevoerd wordt weer in een andere kolom zet.

Misschien een moeilijk verhaal, maar via dit voorbeeld bestand makkelijker te begrijpen.

Alvast bedankt voor jullie medewerking.

Jaboom

 

[Roncancio]

Ik heb een macro geplaatst in het bestand die de gegevens in de desbetreffende kolommen plaatst.

Met vriendelijke groet,


Roncancio

 

[Ginger]

Jaboom, Plaats dit blokje maar in de module van de sheet waar de code moet werken.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("J6")) Is Nothing Then
        Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = Target.Value
        Range("L6").Select
        Range("J6:J8").ClearContents
    End If

    If Not Intersect(Target, Range("L6")) Is Nothing Then
        Cells(Rows.Count, 5).End(xlUp).Offset(1).Value = Target.Value
        Range("J6").Select
        Range("L6:L8").ClearContents
    End If
    
End Sub

Groet, Leo

 

[Roncancio]

Jaboom, Plaats dit blokje maar in de module van de sheet waar de code moet werken.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("J6")) Is Nothing Then
        Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = Target.Value
        Range("L6").Select
        Range("J6:J8").ClearContents
    End If

    If Not Intersect(Target, Range("L6")) Is Nothing Then
        Cells(Rows.Count, 5).End(xlUp).Offset(1).Value = Target.Value
        Range("J6").Select
        Range("L6:L8").ClearContents
    End If
    
End Sub

Groet, Leo

In de kolommen C, D, F en G staan formules.
Volgens mij moeten die blijven staan.

Met vriendelijke groet,


Roncancio

 

[Ginger]

In de kolommen C, D, F en G staan formules.
Volgens mij moeten die blijven staan

Dat had ik ook gezien.:thumb: Maar mijn code doet helemaal niets met die kolommen....
Ahhhh.... Wacht ff.... Ik heb met het schonen van mijn testdata óók perongeluk die formules meegepakt!

Groet, Leo

 

[jaboom]

Perfect

Roncancio en Ginger,

Heel veel dank voor jullie snelle reactie en oplossing, het werkt nu precies zoals ik bedoelde.

Maar nu nog een vraag: Waar word deze macro geplaatst? Ik open macro via het menu extra maar dan is het veld macro helemaal leeg.

Ik wil de macro graag bewerken om hem in de originele sheet te plaatsen.

Alvast bedankt,

J. Boom

 

[Roncancio]

Roncancio en Ginger,

Heel veel dank voor jullie snelle reactie en oplossing, het werkt nu precies zoals ik bedoelde.

Maar nu nog een vraag: Waar word deze macro geplaatst? Ik open macro via het menu extra maar dan is het veld macro helemaal leeg.

Ik wil de macro graag bewerken om hem in de originele sheet te plaatsen.

Alvast bedankt,

J. Boom

De macro staat bij het werkblad.
- Ga naar Extra - Macro - Visual Basic Editor.
- Kies voor Beeld - Project Verkenner
- Rechtermuisknop op het werkblad en kies voor Programmacode weergeven.

Met vriendelijke groet,


Roncancio