Ga naar inhoud

Cel leegmaken formule bewaren.


JTvD

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites

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.

 

 

Link naar reactie
Delen op andere sites

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.

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.