• 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.

Macro formule toepassen op geselecteerde cel

Status
Niet open voor verdere reacties.
H

hmwul

Gebruiker
Lid geworden
15 dec 2012
Berichten
433
Op voorhand... ik heb geen idee of het onderstaande kan.
Nooit geschoten, altijd mis.



Iets dat echt vaak voorkomt (bij mij): een formule toepassen op een geselecteerde cel en het resultaat als waarde in een andere cel 'plakken'.

Voorbeeld
A2: 200
B2: =ROUND(A2*2,20371;2)

hierna volgt:

ctrl-c B2, gevolgd door ctrl-g (=paste as value)

Punt is: formules heb ik opgeslagen in een apart bestand.

Dat betekent: bestand openen, formule opzoeken, zónder het '=' teken plakken in B2, dus alleen ROUND(A2*2,20371;2)
Formule aanpassen naar b.v. ROUND(X2781*2,20371;2), dan een = teken ervoor, uitvoeren, dan de ctrl-c/ctrl-g

Misschien onhandig, maar ik weet niet beter en doe dat altijd zo.

Bepaalde formules komen regelmatig voor.

De vraag is nu: kan zo'n formule ook in een macro en resultaat als waarde naar clipboard?
De cel is uiteraard iedere keer anders.

Dus : ik selecteer -b.v.- cel C1234 - pas macro toe (hotkey b.v. ctrl-e) - ga naar cel Z1234 - ctrl-v
Met andere woorden, al die stappen van opzoeken, pasten en aanpassen hoeven dan niet meer.


Zoals gezegd, geen idee of dat kan.

Thanks!
 
Het klembord is daar niet voor nodig.
Een voorbeeld documentje zou wel handig zijn.
 
Bijgaand bestand.

Het gaat er dus om:
ik selecteer een cel / of reeks . Kan elke willekeurige cel/reeks zijn.
Dan macro - in dit geval berekening van euro naar guldens, afgerond op 2 dec.
Het resultaat in clipboard, als waarde.

Ik kan het dan vanuit clipboard in een andere cel / kolom plakken.

Thanks.
 

Bijlagen

  • Formule-plak als waarden-macro-27062022.xlsx
    12,3 KB · Weergaven: 13
Dit achter het werkblad en dubbelklik dan op cel H14:
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 8 And Target.Offset(, -3) <> 0 Then
        Target.Value = Round(Target.Offset(, -3).Value * 2.20371, 2)
        Cancel = True
    End If
End Sub
 
Sorry... ik kom hier niet uit.
" Achter het werkblad" ??

Wat ik meestal doe : unhide personal.xlsb module toevoegen.

Sla ik het op in bovenstaand bestand, maar dan als .xlsm en kies ik voor Developer > Macro, dan verschijnt de macro niet.

Bekijk bijlage 365029
 
Probeer deze maar eens:
 

Bijlagen

  • Formule-plak als waarden-macro-27062022.xlsm
    18 KB · Weergaven: 6
Bijgaand een voorbeeld.
Dubbelklik op een gevulde cel.
Er verschijnt een lijstje met alle funkties die gevonden zijn in alle geopende excelbestanden.
Klik op de gewenste funktie.
Rechtsklik op de cel waarin het resultaat moet komen.

N.B.
Ongewenste funkties zouden er nog uitgefilterd moeten worden, door bijvoorbeeld alleen funkties op te nemen met een bepaalde naam, f_funktienaam bijvoorbeeld.
 

Bijlagen

  • FormuleBibliotheek.xlsm
    25,4 KB · Weergaven: 7
Dank voor alle hulp zover.

Laat het maar even rusten. Ik krijg het niet voor elkaar.
Ligt aan mij, zonder meer.

Misschien dat het te maken heeft met het automatisch opstarten van het personal.xlsb.
Zus proberen, zo proberen. Heeft eenieder al veel te veel tijd gekost. Sorry....

Nogmaals hartelijk dank voor alle genomen moeite!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan