rasterlijnen na vba code verdwenen

[Friend]

Beste forummers,

Dank zij een stukje code van VenA gebruik ik het volgende:

Sub VenA()
ActiveWindow.DisplayFormulas = True
With ActiveSheet
    .Columns.Hidden = False
    .Cells.SpecialCells(-4123).Interior.Color = vbYellow
    .Cells.SpecialCells(-4174).Interior.Color = vbGreen
End With
End Sub

Sub VenA2()
ActiveWindow.DisplayFormulas = False
With ActiveSheet
    .Columns.Hidden = False 
    .Cells.SpecialCells(-4123).Interior.Color = vbWhite 
    .Cells.SpecialCells(-4174).Interior.Color = vbWhite     
End With
End Sub

Echter mijn rasterlijnen verdwijnen. Ik denk dan waarschijnlijk omdat ik een kleur aangeef bij

ActiveWindow.DisplayFormulas = False

hoe kan of moet ik de code aanpassen om weer wel de rasterlijnen te zien?

Friend

 

[HSV]

Maak van vbWhite eens xlNone.

 

[Friend]

Harry,

Hartelijk dank voor je reactie:thumb:

Geweldig, dat is hem

Thanks

Friend

 

[VenA]

Dank zij een stukje code van VenA gebruik ik het volgende

De kleine lettertjes over copyright niet gelezen

De code was even specifiek voor het bestandje waar je de code gevonden hebt. Als je geen 'specialcells' waarop je wilt toetsen in het blad hebt staan dan zal het fout gaan.

Sub VenA()
ActiveWindow.DisplayFormulas = True
[COLOR="#FF0000"]On Error Resume Next[/COLOR]
With ActiveSheet
    .Columns.Hidden = False
    .Cells.SpecialCells(-4123).Interior.Color = vbYellow
    .Cells.SpecialCells(-4174).Interior.Color = vbGreen
End With
End Sub

De rode regel ondervangt de fout. Heb je er weer een leermomentje bij

 

[HSV]

Ook een leermoment. :d
-4174 is een validatie.

 

[Friend]

VenA,

Met dank voor je reactie :thumb:

en natuurlijk voor je onmisbare aanvulling dat maakt mijn bestand helemaal compleet.

Ik zal je naam erin vermelden

O ja en bedankt voor de toestemming

Friend

 

[Friend]

Harry,

Hartelijk dank:thumb:

We blijven leren!

Friend

 

[VenA]

#4 een beetje aangepast.:d