Gekozen rij oplichten extra

[Lampie173]

Goedemiddag Excellers,

Ik heb een persoonlijk huishoudboekje gemaakt.
In het jaarovezicht wordt het item groengekleurd, evenzo de bijbehoorde kolommen (Jan-Dec incl het totaalbedrag)
Mijn vraag is hoe krijg ik het voor elkaar dat het totaalbedrag wat meer uitstraling krijgt, op het moment dat de bewuste regel geselecteerd wordt

Ik heb via macro opnemen e.e.a. geprobeerd, maar dat is op niets uitgelopen.

Bijgevoegd een test

Alvast bedankt voor het eventueel meedenken!

Met vriendelijke groet,

 

[gast0660]

Zoiets?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveRow = ActiveCell.Row
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(ActiveRow, 1), Cells(ActiveRow, 5)).Interior.ColorIndex = 43
End Sub

 

[SjonR]

Als target kan:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 43
End Sub

of:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Cells(Target.Row, 1).Resize(, 5).Interior.ColorIndex = 43
End Sub

 

[Lampie173]

Dag gast0660 en SjonR,

Dank voor jullie snelle reactie!

Het verbaast mij natuurlijk niet dat de codes werken!:thumb:

Toch nog even een vraag:

Hoe krijg ik het voor elkaar om de Totaalkolom te onderstrepen, vet en iets groter (12) te laten worden als je de bewuste rij kiest en op het moment dat je een andere rij kiest alles die totaalkolom onderstreept, vet en iets groter wordten de vorige geselecteerde rij weer een normaal uiterlijk krijgt?

 

[SjonR]

zo dan?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Cells.Font.Bold = False
    Cells.Font.Underline = -4142
    
    Cells(Target.Row, 1).Resize(, 5).Interior.ColorIndex = 43
    Cells(Target.Row, 5).Font.Underline = 2
    Cells(Target.Row, 5).Font.Bold = True
  
End Sub

 

[Lampie173]

Gm SjonR,

Ik had zelf al onderstaande gefabriceerd zeg maar door in de projectverkenner te zoeken, maar nu blijft de Totaalkolom Vet en Ondertreept, het keert niet in de 'beginstand' terug.

Ik ga nu jouw code bekijken en kijken wat het allemaal doet,

Erg bedankt alvast.


Groet,

Toon

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 ActiveRow = ActiveCell.Row
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(ActiveRow, 2), Cells(ActiveRow, 14)).Interior.ColorIndex = 43
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Interior.ColorIndex = 50
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Bold = True
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Underline = True
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Size = 11
   
End Sub

 

[Lampie173]

Uhh,

toch ff een vraagje
:
Kan ik jouw code er zo inzetten?
Anders kijk ik wel even,

Groet,

 

[Lampie173]

@SjonR,


Onderstaand is het geworden EN het werkt zoals ik het bedacht had!

Erg veel dank van deze kant:thumb:

Uiteraard ook voor gast0660:thumb:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 ActiveRow = ActiveCell.Row
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(ActiveRow, 2), Cells(ActiveRow, 14)).Interior.ColorIndex = 43
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Interior.ColorIndex = 50
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Bold = True
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Underline = True
    Range(Cells(ActiveRow, 15), Cells(ActiveRow, 15)).Font.Size = 11
    
   Cells.Interior.ColorIndex = xlNone
    Cells.Font.Bold = False
    Cells.Font.Underline = -4142
    
    Cells(Target.Row, 2).Resize(, 15).Interior.ColorIndex = 43
    Cells(Target.Row, 15).Font.Underline = 2
    Cells(Target.Row, 15).Font.Bold = True
    
    
End Sub