Waarden in bereik plaatsen in de eerste lege cel

[stoplos]

Mijn vraag (probleem): (zie bijlage)Bekijk bijlage TestToolprodata.xlsm

1) Als ik de +button aanklik wil ik dat die bepaalde waarde in het bereik C15:I30 wordt weggeschreven in de eerste lege cel, als reeks C15:C30 vol is dan zou hij daarna beginnen in reeks D1530 enz.

2) Als ik de -button aanklik wil ik dat de laatst ingevulde cel wordt gewist...

Ik heb gezocht, geprobeerd maar ik vind de juiste oplossing niet...

 

[VenA]

Twee verschillende methoden hoe je iets kan vinden in een bereik.

Een beetje rekenen

Function Laatstgevuld()
    t = 112 - Range("C15:I30").SpecialCells(4).Count
    c = Application.RoundUp(t / 16, 0)
    r = t - ((c - 1) * 16)
    Laatstgevuld = Range("C15").Offset(r - 1, c - 1).Address
End Function

Of door een bereik heen wandelen

Function EersteLeeg()
For j = 0 To 6
    For jj = 0 To 15
        If Range("C15").Offset(jj, j).Value = "" Then
            EersteLeeg = Range("C15").Offset(jj, j).Address
            Exit Function
        End If
    Next jj
Next j
End Function

De rest van de code kan je dan reduceren tot dit

Sub plus14euro()
    Range(EersteLeeg) = Range("D8").Value
End Sub

Sub min14euro()
    Range(Laatstgevuld).ClearContents
End Sub

Sub bedraginvoerennaarkeuze()
    Range(EersteLeeg) = Range("G11").Value
End Sub

Sub wissen()
    Range("C15:I30").ClearContents
End Sub

 

[stoplos]

Indrukwekkend om zo snel een antwoord te krijgen! Alvast bedankt daarvoor! Alles lijkt me redelijk duidelijk behalve de code "eersteleeg" die zal ik nog moeten bestuderen met mijn handboek! :thumb::thumb::thumb: