aanvulling VBA code

[jan excel]

Hoi Experts,

Met onderstaande code kan ik cellen die zijn geselecteerd nadat op cmdbutton is geklikt vullen met de letter v.
Echter ik wil dat dit alleen in het bereik Q84-DH100 van toepassing kan zijn.
Wie weet hoe de script dan dient te worden.

Private Sub CommandButton8_Click()
On Error Resume Next
Dim aCell As Range
For Each aCell In Application.Selection
aCell.Value = "v"
Next

End Sub

Alvast bedankt.
Jan E

 

[wampier]

Even uit de losse pols:

set isect = intersect(application.selection , [q84:dh100])
if not isect Is Nothing Then
   for each cell in isect
   ...

 

[edmoor]

Dit is voldoende:

Private Sub CommandButton8_Click()
    Range("Q84:DH100").Value="v"
End Sub

Als dat is wat je bedoeld

 

[jan excel]

Edmoor en Vampier,

Bedankt voor jullie reactie, echter heb de oplossing al zelf bedacht.
Mijn omschrijving van wat de bedoeling is, was ook niet helemaal duidelijk geformuleerd.

Mijn bedoeling was dat er niet buiten de range Q84: dh100 een "v" mag komen te staan.
Het doel van de script is dat binnen de range q84:dh100 een selectie kan worden gemaakt en vervolgens door op de cmdbutton te klikken in het geselecteerd gebied de letter "v"wordt gezet. Dus de selectie(s) kan variëren binnen de range Q84H100.
Nu was het zo als de gebruiker buiten de range bijvoorbeeld Q84: DJ84 een selectie maakte kwam ook in de range DI84 en DJ84 een "v" te staan.
Dit heb ik opgelost door de cellen om dit bereik heen te beveiligen.

als iemand hiervoor wel een script weet ben ik hier wel benieuwd naar mogelijk dat ik deze dan als nog ga toepassen.

Groet,
Jan E

 

[HSV]

 Intersect(Range("Q84:DH100"), Application.Selection) = "v"

 

[jan excel]

Beste Harry,

Perfect, dit werkt !
eigenlijk toch wel simpel, weer wat geleerd.


Groet,
Jan E