clearContents maar .....

[grema]

Beste ...

Deze keer een klein vraagje :

" ClearContents" = wist inhoud van cel maar behoud voorwaardelijke opmaak.

nu wil ik : Clear inhoud cel; behoud van voorwaardelijke opmaak en " behoud van vertikaal zoeken "formule die in de cel geplaatst is .

Kan dit en zoja hoe dan ?

Thx bij voorbaat

grema

 

[Rommyke]

Hoi grema,

Bekijk onderstaande link, kan misschien gebruik worden .

http://www.ozgrid.com/forum/showthread.php?t=41344


Groetjes Romain

 

[Wigi]

nu wil ik : Clear inhoud cel; behoud van voorwaardelijke opmaak en " behoud van vertikaal zoeken "formule die in de cel geplaatst is

Die mag je toch eens uitleggen...

Is het nu alles deleten, of niet?

 

[grema]

wigi,


inhoud wissen = alles leegmaken !! ( dacht ik) = ( " Clear Contents" )

nu wens ik : inhoud ( getallen en woorden) te wissen.
wat moet blijven is : - voorwaardelijke opmaak
- formule van vertikaal zoeken

het zou dus best kunnen dat " ClearContents " NIET correct is !!

Als ik nu aan een Cel een macro koppel van " ClearContents" verdwijnt tevens m'n formule van " voorwaardelijke zoeken " . Deze zou absoluut moeten blijven.

 

[Jan van Asseldonk]

Gebruik

Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents

Hiermee worden alleen de cellen leeggemaakt die waarden bevatten. Voorwaardelijke opmaakt blijft behouden.
Cellen met formules worden ongemoeid gelaten.

Zou je alle waarden willen laten staan maar de formules willen wissen dan kun je

Selection.SpecialCells(xlCellTypeFormulas, 23).ClearContents

gebruiken.

 

[grema]

jan,

[Selection.A10(xlCellTypeConstants, 23).ClearContents/CODE]

als ik dus een bereik wil wissen van :

range("A10")  tot ("H45")  
en range ("A60") tot ("H95")

wat wordt dit dan  ???  

geraak er niet uit ??


grema

 

[Wigi]

Application.Union(Range("A10:H45"), Range("A60:H95")).SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[grema]

wigi en collegas

in bijlage bestandje

met m'n knop wist i nu alleen de gegevens uit kolom D

De bedoeling is dat alles gereset is . Maar dat opmaak en vert.zoek blijft.


Kan dit of is dit juist iets teveel voor VBA ?

 

[Wigi]

ALs ik de macro uitvoer, zie ik in de cellen niets anders meer staan dan formules en voorwaardelijke opmaak.

 

[grema]

ben er nog niet



De inhoud van de celverijzing van het vertikaal zoeken zou mee moeten gerest worden op een zodanige manier dat de formule blijft.

Nu moet elke cel met vert. opmaak afkomstig van cel met vervolgkeuze lijst manueel gewist worden.

Afgrijselijk indien je zo een 5 tal blad moet wissen en dit over 3 kolommen

Kan dit niet anders ???



Daarom de VBA code ?

 

[Jan van Asseldonk]

Als ik het goed begrijp dan moeten dus
1. de waarden gewist worden,
2. de voorwaardelijke opmaak behouden blijven en
3 de formules aangepast worden.

 

[Wigi]

De bedoeling is dat alles gereset is . Maar dat opmaak en vert.zoek blijft.

Dat begrijp ik niet. Wat is het resetten van een formule?

 

[grema]

jan & wigi,

-

1. de waarden gewist worden,

ja dit lukt met de knop
-

2. de voorwaardelijke opmaak behouden blijven

dit gaat ook
-

3 de formules aangepast worden

hiermee wil ik zeggen dat de keuzelijst met vertikaal zoeken op een lege waarde moet komen te staan.

Dit om te beletten dat elke keuzelijst mannueel moet worden op " blanco" gezet.

Met de knop is het de bedoeling de offerte te " resetten " .

hoop dat het deze maal duidelijk is .

grema

 

[Jan van Asseldonk]

Volgens mij kun je dit oplossen door vanuit de macro de waarden in kolom G op tabblad lijsten te resetten naar waarde 1.

    Sheets("Lijsten").Range("G3:G12").Value = 1

 

[grema]

Jan

Indien ik volgende code inlas lukt het gedeeltelijk .

Sub wis()
Sheets("Lijsten").Range("G3:G12").Value = 1
Sheets("Lijsten").Range("O3:O12").Value = 1
Sheets("Lijsten").Range("S3:S12").Value = 1
Application.Union(Range("A10:H45"), Range("A60:H95")).SpecialCells(xlCellTypeConstants, 23).ClearContents

End Sub

dwz indien ik een 2 maal op de knop druk krijg ik een foutmelding ; ' Er zijn geen lege cellen gevonden'.

Kan dit nog even opgelost worden

 

[grema]

aan allen

probleem opgelost.


met dank.


grema