Laatst ingevulde rij, andere kleur geven

[ambie]

Vind niets wat eventueel zou passen in de formule.

Ken er ook te weinig van.

Bovenstaande VBA werkt prachtig, behalve dat ik eerst in het tabblad dien te klikken alvorens deze wordt aangepast.

 

[HierEnNu]

Probeer dit eens:

maak een module aan en plaats daarin de volgende code:

Sub Change()
Dim lr1, lr2, lastrow As Range
Application.ScreenUpdating = False
For Each c In Range("A3:A500")

If c = Empty Then
Range("A" & c.Row, "AJ" & c.Row).Interior.ColorIndex = 2

ElseIf c > 0 Then
Range("A" & c.Row, "AJ" & c.Row).Interior.ColorIndex = 15

Set lr1 = Range("A65536").End(xlUp)
Set lr2 = Range("AJ" & lr1.Row)
Set lastrow = Range(lr1, lr2)
lastrow.Interior.ColorIndex = 27

Application.ScreenUpdating = True

End If
Next
End Sub

Plaats bij de code voor de OK-knop de volgende code:

Sheets("Data").Activate
Range("A65536").End(xlUp).Select
Call Change

De code van Private Sub Worksheet_SelectionChange(ByVal Target As Range) kun je weghalen.

Groeten,

M.

 

[ambie]

Probeer dit eens:

maak een module aan en plaats daarin de volgende code:

Groeten,

M.

M dit werkt inderdaad zonder dat ik dien te klikken in het tabblad, doch het is iedere keer de voorlaatst ingevulde regel die veranderd.

 

[HierEnNu]

Ik weet niet wat je verder allemaal in je code hebt staan, maat bij mij werkt het zoals het moet. Zoals wel vaker op dit forum wordt gezegd: plaats een voorbeeldbestand dan weten we tenminste waarover we het hebben. Voor mij is het nu ook maar raden.

Groeten,

M.

 

[ambie]

hierbij bestand.

Heb meeste gegevens verwijderd, gezien dit voor mijn werk is.

Bedankt voor de moeite.

 

[HierEnNu]

nu werkt het wel. Zie bijgevoegd bestand.

Groeten,

M.

 

[ambie]

nu werkt het wel. Zie bijgevoegd bestand.

Groeten,

M.

Inderdaad. Dank U M voor alle hulp. Thanks.:thumb::thumb: