• 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.

VBA select row

Status
Niet open voor verdere reacties.

Hylas

Gebruiker
Lid geworden
5 mrt 2012
Berichten
150
Beste Leden,

heb een code gevonden om een row te selecteren maar wil eigenlijk een bepaald aantal cellen in de row selecteren, is dit mogelijk ?

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 44
    Application.ScreenUpdating = True
End Sub
[CODE]
 
bedoel je dit?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
Target.Resize(, 3).Interior.ColorIndex = 44
Application.ScreenUpdating = True
End Sub
 
Als je met deze code de rij aanklikt dan selecteert hij de gehele rij en ik wil bijv A t/m E selectie selecteren
 
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
rij = ActiveCell.Row
Cells(rij, 1).Resize(, 5).Interior.ColorIndex = 44
End Sub
 
Albert dank je wel, zit nu op de Mac en die ondersteunt het niet maar morgen op het werk onder windows ga ik het uitproberen denk dat je wel goed zit, alvast bedankt
Groet, Ton
 
Wat zou dit betekenen?
Code:
ByVal Target As Range

Waarom overschakelen naar?
Code:
Activecell.row
 
Hallo mannen heb het geprobeerd maar is nog niet wat ik zoek, de gearceerde cellen moeten wel permanent blijven staan als teken dat ik ze gemarkeerd ( gezien heb ) Schermafbeelding 2020-10-12 070424.jpg
 
Als je de code van #5 hebt gebruikt, haal dan deze regel er uit:
Cells.Interior.ColorIndex = 0
 
Edmoor dat is hem, vriendelijk dank maakt m'n werk een stuk sneller en lichter!!
 
Maar als target bekend is, is activecell overbodig

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells(target.row, 1).Resize(, 5).Interior.ColorIndex = 44
End Sub
 
Ja, mijn bericht zal waarschijnlijk niet gelezen of begrepen zijn.
 
Zal wel iets met paplepels te maken hebben ;)
 
:d:d zo is 't.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan