Bovenste 4 regels mogen niet meedoen bij dubbelklik

[samui]

Hallo,

2 vraagjes over bijgevoegde macro:

- Hoe zorg ik er in onderstaande doubleclick voor dat de 1e vier regels van het tabblad niet mee doen met deze doubleclick actie en dus niet dat uitgevoerd gaat worden wat in de rest van de cellen wel mag gebeuren?
- Nu eindigt de macro 1 cel naar beneden. Doe ik dit niet blijft de cel actief en knippert de cursor. Dit hoeft niet maar hij mag wel in de doubleclick cell blijven staan echter niet als actieve cel maar enkel als geselecteerde.
Kan dit ook?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
On Error GoTo err6
ActiveCell.Select
With Selection.Interior
.Pattern = xlSolid
.Color = 13421619
End With
With Selection.Font
.Name = "Arial"
.Size = 10
.ColorIndex = xlAutomatic
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Offset(1, 0).Select
err6:
End Sub


Nogmaals alvast bedankt voor de reacties,

Frank

 

[HSV]

Helaas is de code moeilijk te lezen doordat je geen codetags gebruikt.

vraag 1 en 2.

 if target.row>4 then
     de rest van je code
    cancel =true
   end if

 

[samui]

Perfect weer Harry.

De codetags zijn de inspringingen in de opbouw?
Gaat dat normaliter automatisch of moet je de tab toets hiervoor gebruiken?
Ik gebruik meestal knip en plak uit bestaande macro's dan hoef ik niet te typen en heb ik ook geen tuypefouten.
Het gevolg is dan wel dat alles onder elkaar staat ipv met inspringingen.

Voor nu ik ben weer helemaal blij en bedankt.
Ik zie dat mijn 2e vraag: bestanden sluiten ook al beantwoord is.
Ga gauw naar die oplossing kijken.
Tot de volgende keer weer.

Frank

 

[samui]

Ah Harry, ik heb al gezien wat je bedoeld met je codetags.
Ga deze weer sluiten. Nogmaals thanks.