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

Waarden plakken met sneltoets

Status
Niet open voor verdere reacties.

Snulk

Gebruiker
Lid geworden
12 mrt 2005
Berichten
429
Hallo,

Ik ben al tijdje op zoek naar sneltoets om waarden te plakken.
De Ctrl-Alt-V bedoel ik niet, want dan moet ik alsnog kiezen in een menu.

Nu las ik ergens dat die toets sinds kort bestaat. Het zou de Ctrl-Shift-V moeten zijn, maar die werkt bij mij niet

Heb nieuwste update van 365

Wie weet meer hiervan?

Dank,

Jos
 
Dat kiezen gaat simpel zonder de muis te gebruiken:
Ctrl-Alt-V en dan W en Enter.
 
Laatst bewerkt:
Weet ik ja, maar er zou een sneltoets bestaan lees ik op een site.
 
Dan lees je wat anders dan ik :).

Ik vind deze wel leuk:

Ctrl+V, Ctrl, V
 
Die ken ik niet, maar Ctrl+Shift+V kan je wel eenvoudig zelf maken als je VBA wilt gebruiken.
Dit in de ThisWorkbook module:
Code:
Private Sub Workbook_Open()
    Application.OnKey "^+V", "PlakWaarde"
End Sub

En dit in een Module:
Code:
Sub PlakWaarde()
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
 
Dat eerste stuk hoeft m.i. niet eens als je de macro opslaat in je personal.xlsb.
Code:
Sub mcrPlakWaarde()
' Sneltoets: Ctrl+Shift+V
    Selection.PasteSpecial Paste:=xlPasteValues ', Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Zelf zou ik dan wel eerst controleren of er überhaupt iets gekopieerd is om mee te beginnen.
 
Je gaat op cel C3 staan, toetst Ctrl+C om te kopiëren, gaat naar de plek waar je het getal wilt plaatsen en toetst Ctrl+V. Daarna toets je de 'losse' Ctrl-toets en dan de W (maakt niet uit of je een hoofdletter (dus met Shift erbij) of kleine letter toetst).
 
Of ?

Code:
Sub M_knipplak()
   If Application.CutCopyMode Then
        ActiveSheet.Paste
    Else
       Selection.Copy
    End If
End Sub

Sub M_snb()
   Application.OnKey "{scrolllock}", "M_knipplak"
End Sub
 
Beste Iam201,

Geweldige oplossing, dank daarvoor!

Ook dank allemaal voor jullie VBA oplossingen, maar mijn vraag was eigenlijk naar een sneltoets en die heb ik nu :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan