Özel yapıştır-makro

[crocco]

Merhaba,

Belirli hücreleri CTRL+C ile kopyalıyorum. Başka bir hücreye gelip, Özel yapıştır/Değerleri/İşlemi Ters çevir diyorum. Özel yapıştır/Değerleri/İşlemi Ters çevir kısmını bir makro ile kısayol şeklinde yapabilir miyim?

Şimdiden çok teşekkürler

 

[Ömer]

Merhaba,

Module kopyalayın. Dosyayı kapatın ve açın. Artık kopyaladığınız hücreleri seçtiğiniz bölgeye F12 tuşu ile istediğiniz gibi yapıştırabilirsiniz.

Sub Auto_Open()
    Application.OnKey "{F12}", "Yapistir"
End Sub

Sub Auto_Close()
    Application.OnKey "{F12}", ""
End Sub

Sub Yapistir()
    On Error GoTo atla
    Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    Exit Sub
atla:
    MsgBox "Önce alan kopyalayın."
End Sub

.

 

[crocco]

şık diye çözüm ancak böyle bulunur. Teşekkür ederim. Tam olarak böyle olsun istemiştim.

 

[salihbahadir]

Hocam konuyu yeniden canlandırıyorum ama bu makroda kopyalanan içerikler birden fazla hücrede alt alta iken f12 ile yapıştırıldığında hepsini yan yana atıyor.

 

[veyselemre]

, Transpose:=True

Kaldırın deneyin.