Sub pastevalues()
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
         :=False, Transpose:=False
End Sub

Ir priskiri kokį nors shortcutą  A la "ctrl+d" pvz..


2015-05-07 16:56, Audrius rašė:
> Hmmm............ supratau, vienu žodžiu jokių minčių nebus. :-((((
> Tai gal tada šitam mygtukui kaip nors įmanoma būtu klavišų kombinaciją prisiūti?
> Dėkui