• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoe Regels te kleuren alleen in kollomen A t/m W

Status
Niet open voor verdere reacties.
T

Tegno

Gebruiker
Lid geworden
7 jul 2022
Berichten
58
Hoe kan ik onderstaande ombouwen zodat alleen betrekking hebben op Column A t/m W.

Dit gebruik ik nu dit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Font.ColorIndex = 0
Cells.Font.Bold = 0
Cells.Font.Size = 12
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Font.Bold = 1
Target.Cells.EntireRow.Font.Size = 14
End Sub

Bij voorbaad dank.
 
Dank je Krijg hem niet werkend
Hoe plaats is deze regel in de Code.

Alleen collomen a:w dienen te kleuren en Bolt te worden.
Buiten deze range mag niets gebeuren.
 
Laatst bewerkt:
Plaats die regel als eerste in de Sub.
 
Dan werkt de VB als je in deze range bent.

Ik heb me waarschijnlijk niet goed verwoord.

De bedoeling is dat alleen kollom A t/m W kleuren en vet worden.

Hoe ik deze regels aan dien te passen
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Font.Bold = 1
 
Je weet wat die regel van AHulpje doet?
 
Waarom doe je dan niet even wat ik in #4 zei?
 
Heel veel duidelijker dan dit kan ik het niet maken:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=#008000]    'Als rechts van kolom W (=23e letter van het alfabet) geklikt wordt dan niets doen.[/COLOR]
    If Target.Row > 23 Then Exit Sub
    Cells.Font.ColorIndex = 0
    Cells.Font.Bold = 0
    Cells.Font.Size = 12
    Target.EntireRow.Font.ColorIndex = 5
    Target.EntireRow.Font.Bold = 1
    Target.Cells.EntireRow.Font.Size = 14
End Sub
 
Wel even Target.Column gebruiken ;)
 
Sorry zag niet dat AHulpje de naam was van de 1ste die reageerde (dacht dat dat een hulp in excel was) (lekker bezig Tegno:shocked:)

Dat heb ik gedaan en dat funtioneerd niet
daar krijg je alleen dat als je de selectie buiten dat veld hebt, dan kleurt hij niets ( laat hij de code niet werken).

de regel van kollom A t/m W moeten juist oplichten Alles wat hij verder oplicht vertraagt enorm de tabel.
 
Laatst bewerkt:
Je hebt #10 ook gelezen?
 
Volgens mij is het hoog tijd voor een voorbeeld documentje.
 
ik ga de vraag anders stellen

Target.EntireRow.Font.ColorIndex = 5
waarmee kan ik EntireRow verangen am een range te kunnen defineren b.v. (Target.Row, Range ("A:W").Font.ColorIndex = 5)
 
Code: 
cells(target.row,1).resize(,23).Font.ColorIndex = 5
 
Ik denk dat die van Harry inderdaad is wat je bedoelt.
 
Dit is exact wat ik zoek.
Heel veel dank voor alle hulp van iedereen.
Hier ben ik blij mee!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan