Macro knop "formulier" reset

[TJ86]

Hallo allemaal,

ik heb in excel een formulier gemaakt welke door de gebruiker ingevuld dient te worden.

Nu heeft de gebruiker 2 mogelijkheden om dit formulier in te vullen (dmv een dropdown) welke de cellen vult dmv een VLOOKUP
of dat de gebruiker de cel handmatig intypt met de juiste gegevens.

Je raadt het al, als de gebruiker voor de 2e optie kiest, wordt de VLOOKUP formule in de cel overschreven.

Is het dmv een macro mogelijk om de cel te "resetten" en de formule weer in de cel te plaatsen?

Ik heb het geprobeerd met deze formule:

Sheets("Gegevens").[C12] ="=VERT.ZOEKEN(C10,'DB01'A:C,3,0)"

Maar die werkt niet?

 

[HSV]

Ik ken het bestand niet, en ook niet de bedoeling daarvan, maar waarom handel je dit niet geheel in Vba af?

Om aan de vraag te voldoen dat het niet werkt?
Je hebt de functie al benoemd 'VLOOKUP'.
Ook formules worden in het Engels geschreven in Vba.
Of in de taal van de gebruiker met 'formulalocal'.

 

[TJ86]

Ik wil in een excel sheet de volgende formule herstellen als deze handmatig wordt overschreven:

=ALS(C10="";"";VERT.ZOEKEN(C10;'DB01'!A:B;2;0))

Sheet: Gegevens
Doelcel: C12

 

[gast0660]

Hoi,
Waarom maak je geen userform, waar de gebruiker de zaken kan invullen en verder niets met uw werkbladen te maken heeft?

 

[HSV]

Ik wil in een excel sheet de volgende formule herstellen als deze handmatig wordt overschreven:

=ALS(C10="";"";VERT.ZOEKEN(C10;'DB01'!A:B;2;0))

En wat zal de vertaling van de formule zijn in het Engels?
Je mag het in het Nederlands schrijven , maar dan moet je 'formulalocal' gebruiken.

Ik kan het voor je uitschrijven, maar daar is geen lol aan (even zoeken in de help van Vba dus).

 

[VenA]

Je kan ook even een macro opnemen.

 

[gast0660]

Hoi,
Test deze eens
Zet je formule ergens verborgen
En gebruik volgende code

Private Sub CommandButton1_Click()
Range("C12").Formula = "=P4"(P4 is de verborgen cel waar je formule staat)
End Sub
zie bijlage

 

[gast0660]

hoi,
Hmm, nog eventjes verder (beter) nagedacht
Zet deze onder een knopje

Private Sub CommandButton1_Click()
Range("C12").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-2]C="""","""",VLOOKUP(R[-2]C,[DB01]Blad1!C[-2]:C[-1],2,0))"
End Sub

 

[HSV]

Dat kan beter Jack.