Laatst ingevulde rij, andere kleur geven

[ambie]

Ik gebruik volgende formule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Application.ScreenUpdating = False 
For Each c In Range("A3:A500") 

If c = leeg 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 

End If 
Next 
End Sub

Via een Userform worden gegevens ingevuld en overgebracht naar de eerste lege rij van een excel blad.
Ik had nu graag gehad dat deze laatst ingevulde rij een ander kleur kreeg. (lege rijen= wit, ingevulde rijen=grijs, nieuwe rij bv paars)

Wanneer het document wordt opgeslagen en men opent het document terug, zou deze laatste rij het kleur moeten krijgen van de andere ingevulde rijen.

Is dit mogelijk?
Bedankt.

 

[HierEnNu]

Dan zal het zoiets worden:

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

If c = leeg 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)
Set lastrow = Range(lr1, lr2)
lastrow.Interior.ColorIndex = 27

End If
Next
End Sub

Groeten,

M.

 

[ambie]

Bedankt voor de vlugge reactie.

Heb de code geprobeerd.

Ik krijg een foutmelding in :


Set lr2 = Range("AJ" & lr1)

 

[HierEnNu]

Bij mij werkt ie goed. Zou het aan de excel versie liggen? Ik gebruik excel 2000.
Trouwens, wat is de foutmelding?

Groeten,

M.

 

[HierEnNu]

probeer dit eens:

Set lr2 = Range("AJ" & lr1.Row)

Groeten,

M.

 

[ambie]

M bedankt het werkt. Merci.

Ik gebruik 2003.

Zou ik dit ook kunnen automatiseren?

Ik bedoel, nu dien ik eerst in het tabblad te klikken.

en dan wordt de laatst toegevoegde rij geel, en de rij die voordien de laatste was (en die geel was) wordt nu grijs.

Of zou ik dit kunnen aanpassen in de formules van mijn userform.
Dat hij het tablad opent en de eerste cel van de laatste rij activeert.

Thanks M

 

[Ginger]

Ehhh...ff 2 kleine opmerkingen....

If c = [COLOR="Blue"]leeg[/COLOR] Then

Deze regel zal altijd False zijn... Of het moet een VBA-versie zijn die nederlands begrijpt?
Ik mis ook nog aan het einde van de code de regel

Application.ScreenUpdating = [COLOR="blue"]True[/COLOR]

Groet, Leo

 

[HierEnNu]

Dan zou de volgende code bij openen of activeren van het tabblad uitgevoerd moeten worden.

range(("a65536").end(xlup).select

Groeten,

M.

 

[ambie]

Ehhh...ff 2 kleine opmerkingen....

If c = [COLOR="Blue"]leeg[/COLOR] Then

Deze regel zal altijd False zijn... Of het moet een VBA-versie zijn die nederlands begrijpt?
Ik mis ook nog aan het einde van de code de regel

Application.ScreenUpdating = [COLOR="blue"]True[/COLOR]

Groet, Leo

Wat moet ber dan in de plaats van LEEG komen aub. Thanks.

 

[ambie]

Dan zou de volgende code bij openen of activeren van het tabblad uitgevoerd moeten worden.

range(("a65536").end(xlup).select

Groeten,

M.

Na het invullen van de userform klik ik op de knop Toevoegen.

De data wordt weggeschreven naar het tabblad Data.

Er komt een popup (Toevoegen91) waarop staat dat de persoon bedankt is om alles goed in te vullen. Men moet dan op de knop OK drukken.

Ik zou nu willen dat wanneer men op de knop OK klikt, het tabblad Data wordt getoond en de eerste cel (A kolom) van de ingevoegde rij wordt geactiveerd.

Dit is de code er van :

Private Sub CommandButton911_Click()
Application.Wait (Now + TimeValue("0:00:01"))

Toevoegen91.Hide
End Sub

 

[HierEnNu]

Dit zou als code bijde OK-knop toegevoegd kunnen worden:

Sheets("Data").activate
Range("A65536").End(XLup).Select

Groeten,

M.

 

[ambie]

Weeral eerste klas M. Bedankt.
Dit is nu de code van mijn laatste formulier:

Private Sub CommandButton911_Click()
Application.Wait (Now + TimeValue("0:00:01"))

Toevoegen91.Hide

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

End Sub

en deze is van het tabblad Data:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lr1, lr2, lastrow As Range
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 = False

End If
Next
End Sub

Alles werkt nu bijna perfect.

Maar,.... Het verkleuren van de laatste regel en het selecteren er van gebeurd pas nadat ik in het tabblad heb geklikt.

 

[bandito bob]

Leuk hoor al dat VBA, maar waarom niet "gewoon" via voorwaardelijke opmaak waarbij wordt gekeken naar rij() en aantalarg?

 

[ambie]

Leuk hoor al dat VBA, maar waarom niet "gewoon" via voorwaardelijke opmaak waarbij wordt gekeken naar rij() en aantalarg?

Voor mij is het gelijk, als het maar werkt.

Graag voorbeeldje.

 

[bandito bob]

Als er geen lege rijen tussen zitten werkt dit prima.

 

[ambie]

Bedankt Paul,

Ziet er goed uit.

Zal eens de VBA verwijderen en met VW opmaak proberen om de rijen te kleuren.
Tot straks.

 

[ambie]

Er zitten inderdaad lege cellen in sommige kolommen, zodat het niet de hele rij is die wordt gekleurd.

Zal het maar bij de VBA houden.

 

[bandito bob]

Er zitten inderdaad lege cellen in sommige kolommen, zodat het niet de hele rij is die wordt gekleurd.

Zal het maar bij de VBA houden.

Je kan de verwijzing van 1 kolom gebruiken voor meerdere kolommen.

zie voorbeeldje, hier kleuren A t/m D, afhankelijk van kolom A

 

[ambie]

Kan er iemand mij nog helpen met het volgende probleem:

Het verkleuren van de laatste regel en het selecteren er van gebeurd pas nadat ik in het tabblad heb geklikt.

 

[Wigi]

Kan er iemand mij nog helpen met het volgende probleem:

Het verkleuren van de laatste regel en het selecteren er van gebeurd pas nadat ik in het tabblad heb geklikt.

Dan heb je VBA nodig, een Worksheet_SelectionChange event meer bepaald.

Zoek eens op het forum, dit is al redelijk veel keren behandeld geweest in andere topics.

Wigi