Eerst voorgaande lege cel zoeken en gegevens in plaatsen

[Robert Smidt]

Beste forumleden,

Ik ben bezig in Excel om willekeurig in kolom B gegevens in te voeren. Zodra dat is gebeurd, moet het systeem deze informatie, i.c.m. voorafgaand "Kostprijs", in de eerst voorgaande lege cel (gerekend vanaf de positie in kolom B waar ik mij op dat moment begeef) plaatsen. Hieronder volgt een voorbeeld, met dat verschil dat het systeem hier altijd 2 posities eerder deze informatie plaatst, dat moet dus gewijzigd worden in de eerst voorgaande lege cel.

If Target.Column = 2 Then Target.Offset[COLOR="#FF0000"](-2, 0)[/COLOR].Value = "Kostprijs " & Target.Offset(, 0).Value

Voorbeeld:
Stel, ik plaats op positie B66 de tekst: "Voorraad fietsen" en positie B61 is de eerst voorgaande lege cel, dan moet het systeem op positie B61 de tekst "Kostprijs voorraad fietsen" plaatsen.

Alvast hartelijk dank.

 

[snb]

Je vraag duidt op een gegevensstruktuur die, zacht gezegd, niet 'voor-de-hand-liggend' is.

 

[AHulpje]

Ben het met snb eens, maar toch een oplossing:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    rij = Target.End(xlUp).Row
    If rij = 1 Then
        MsgBox "Geen lege cel boven " & Target.Address & " aangetroffen."
    Else
        Cells(rij - 1, 2) = "Kostprijs " & Target.Value
    End If
    Application.EnableEvents = True
End Sub

 

[Robert Smidt]

Beste Ahulpje,

Super bedankt voor jouw oplossing, dit werkt perfect en ik ben hier heel blij mee.