Cel leegmaken formule bewaren.

[JTvD]

Ik heb onderstaande code van het internet af maar krijg een foutmelding op regel 3.

Wat ik hiermee graag zou willen is dat de cellen van F% tot J109 leegemaakt worden maar de formules die er in staan wel blijven bestaan.

 

Private Sub Workbook_Open()

    Dim rConstants As Range

    Set rConstants = Sheets("Nieuwe planning").Range("F5:J109").SpecialCells(xlCellTypeConstants)
    rConstants.ClearContents
 

End Sub

[bakerman]

Private Sub Workbook_Open()


Sheets("Nieuwe planning").Range("F5:J109").SpecialCells(xlCellTypeConstants).ClearContents


End Sub

Bovenstaande volstaat normaal.

 

Staan er in dat bereik enkel formules of ook cellen met alleen een waarde in ?

 

Als het enkel formules zijn is het normaal dat je hierop een foutmelding krijgt aangezien er geen cellen te vinden zijn.

 

 

[JTvD]

We typen daar gegevens in of via een gegevensvalidatie.

 

Ik zie nu dat na het typen ook de follume weg is.

Mogelijk via een andere weg de follume  terug plaatsen vanuit een andere cel, kan dat?

[bakerman]

3 uren geleden, JTvD zei:

Ik zie nu dat na het typen ook de follume weg is.

Logisch, in een cel heb je ofwel manuele invoer of een formule. Het is het één of het ander, beide kan niet.

 

3 uren geleden, JTvD zei:

Mogelijk via een andere weg de follume  terug plaatsen vanuit een andere cel, kan dat?

Als je met zulke kunstgrepen wil beginnen zou ik toch maar eens nadenken over het ontwerp van je werkblad

 

want daar schort dan wel iets aan.

 

Post een voorbeeldbestand zodat we eens kunnen bekijken welke aanpassingen mogelijk zijn.

[JTvD]

Ik heb een klein opzetje gemaakt van hoe het ongeveer gaat in mijn bestand..

 

Hierin word onder G de cellen G3 t/m G5 leeggemaakt (VBA) tijdens het opstarten.

Echter heb ik na dit wel de volumes van K nodig om naar G te kopiëren

Dit zou kunnen in VBA met kopiëren na het opstaren en leegmaken.

 

Wat ik dus in G doe na het opstarten de volume er weer automatisch in.

 

Kan dat?

 

test1.xlsm

[bakerman]

Zo iets dan ?

 

Private Sub Workbook_Open()
    For Each huidigecel In Range("G1:G5")
        If (Val(huidigecel.Value) = 0 And IsNumeric(huidigecel.Value)) Then
            huidigecel.Value = ""
        End If
    Next
    With Range("G3")
        .FormulaR1C1 = "=SUM(RC[-2]+RC[-1])"
        .Resize(3).FillDown
    End With
End Sub

 

[JTvD]

Ja hier kan ik wat mee, klasse Dankje

 

Ik heb hierover verder geen vragen meer,

Slotje mag er wat mij betreft op.

[kweezie wabbit]

U vraagt, wij draaien.

Succes nog.