• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel formule aanvullen met VB

Status
Niet open voor verdere reacties.
M

mvanbe

Gebruiker
Lid geworden
7 mrt 2018
Berichten
87
Goedemiddag,

Met mijn excelsheet heb ik het probleem dat gebruikers soms per ongeluk in een kolom enkele formules verwijderen.
Is er een manier om VB en een knop deze lege cellen weer aan te vullen met de originele formule?

In het voorbeeldbestand (vereenvoudigd)
Kolom L staan de formules. standaard output is 2
Gebruiker kan dit handmatig overschrijven in 1, 3 of 4 (groen gearceerd)

Sommige gebruikers verwijderen met regelmaat per ongeluk de formule (oranje gearceerd) met een lege cel als gevolg. later in het originele bestand kan dit vervelende gevolgen hebben.
Kan met VB de lege cellen gecontroleerd worden en met de originele formule aangevuld worden?
In het originele bestand zou de controle moeten plaatsvinden van regel 8 t/m 2500

Alvast bedankt voor het meedenken

Bekijk bijlage Voorbeeld formule.xlsx
 
Laatst bewerkt:
Zo bvb

Code: 
Sub jec()
On Error Resume Next
Range("L8:L2500").SpecialCells(4).FormulaR1C1 = "=IF(ISNUMBER(RC[-4]),2,"""")"
End Sub
 
Je kunt ook een macro opnemen.
Kies een macro naam..
Selecteer een cel met formule..
Klik het formule vak bovenin en geef Enter..
Herhaal dit voor alle formules.
Sluit de opname af.
Als je de formule uitvoert, worden de formules weer terug geplaatst...

Pas de macro even aan door alle selects te verwijderen...

Zie bijlage
 

Bijlagen

  • Formules.xlsb
    15 KB · Weergaven: 13
Laatst bewerkt:
Bedankt voor het meedenken! De eerste reactie was voor mij gelijk de juiste oplossing!:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan