Sneltoets voor Plakken Speciaal Waarden...

[Huigie]

Hoe kan ik in Excel een sneltoets of knop maken met de functie:
plakken speciaal / waarden / lege cellen overslaan?

 

[Wigi]

- Je zou een macro kunnen opnemen waar je die handeling doet, kies er eerst een sneltoetscombinatie voor.

- Alternatief is een nieuwe werkbalk te maken met een knop op voor die handeling. En dan telkens klikken als je wilt waarden plakken.

Wigi

 

[Huigie]

Heb ik geprobeerd, maar dat lukt me niet.

Sub PasteVal()
Selection.PasteSpecial Paste:=xlValues
End Sub

Het gebied wat ik selecteer en daarna moet plakken met deze funktie is niet altijd gelijk. Dus wat ik eigenlijk wil is een soort Ctrl V functie, zonder dat ik steeds plakken speciaal moet kiezen en dan waarden en lege cellen overslaan moet aanklikken en vervolgens oo OK te drukken.

 

[Wigi]

Het maakt niet uit of het te plakken gebied dezelfde omvang heeft of niet.

Sub Macro2()
    Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
End Sub

Gewoon Ctrl-C, dan je sneltoets indrukken en het staat er. (ga wel naar de juiste plaats.)

Wigi

 

[Huigie]

ik heb het geprobeerd, maar het lukt nog niet.

Als ik op de knop druk die ik in de werkbalk daarvoor aangemaakt heb, dan zie je excel wel denken, maar resultaat is niets.....

Wat doe ik fout?

 

[Wigi]

Neem eens een schermafdruk van je Excel, met de nieuwe werkbalk goed zichtbaar. Dus geen Excel file bijhangen, wel print screen doen. En eerst zippen om het kleiner te maken.

 

[Demeter]

De code van Wigi in post #4 zou toch moeten werken.
Heb je de sneltoets wel met de macrorecorder toegewezen? anders werkt deze al helemaal niet.

1- Neem eerst een macro op mbv de recorder en geef hier een sneltoets aan (bij het opstarten van de recorder in te vullen)
2- vervang je code door de code van Wigi of degene hieronder in het rood.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 1/12/2007 door Admin.
'
' Sneltoets: CTRL+q
'
    [COLOR="Red"]Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True[/COLOR]

End Sub

3- selecteer nu een gebied en plak deze mbv je sneltoets ergens ander.

Dit zou toch moeten werken.

Groet,
Ferenc

 

[Huigie]

Dank voor de laatste uitleg!

Helemaal goed, ik ben helemaal blij!

 

[snitsel]

Het maakt niet uit of het te plakken gebied dezelfde omvang heeft of niet.

Sub Macro2()
    Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
End Sub

Gewoon Ctrl-C, dan je sneltoets indrukken en het staat er. (ga wel naar de juiste plaats.)

Wigi

Wigi
Ik wil hier ongeveer hetzelfde alleen wil ik de sneltoets niet. Als ik deze code toepas krijg ik een foutmelding. Wat moet er aangepast worden aan de code?

    Sheets("Beslag - Op Beton").Select
        Range("N40:N40").Select
        Selection.Cut
        Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True

-- OK, ik had het over het hoofd gezien... je mag dus niet knippen, heb juist de oplossing gevonden

    Sheets("Rail").Select
        Range("N40:N40").Copy
        Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True

 

[Wigi]

Of:

Sheets("Rail").Range("N40").Value = Sheets("Rail").Range("N40").Value

En je moet nog de

 tag afsluiten met [/ code] maar dan zonder spatie ertussen.

Wigi