Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


JTvD

Cel leegmaken formule bewaren.

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

Deel dit bericht


Link naar bericht
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.

 

 

Deel dit bericht


Link naar bericht
Delen op andere sites
  • Topicstarter
  •    0

    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?

    Deel dit bericht


    Link naar bericht
    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.

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0

    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

    Deel dit bericht


    Link naar bericht
    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

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    Ja hier kan ik wat mee, klasse Dankje

     

    Ik heb hierover verder geen vragen meer,

    Slotje mag er wat mij betreft op.

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...