Kopyala-Yapıştır Makrosunda Seçilen Hücrelerin Sadece Değerini Yapıştırma Makro Kodu

[smaeler]

Merhaba Arkadaşlar...

Sub HaftalikVeriDagit()
If MsgBox........ vbLf & vbLf & "Onaylıyor Musunuz?", .....

Range("P106:X120").Select
Selection.Copy
Range("P6").Select
ActiveSheet.Paste

MsgBox "...Aya Dağıtıldı.", vbInformation ...
End If
End Sub

Şeklinde bir makrom var. Seçtiğim tablodaki P106:X120 hücrelerin verisi başka bir tablodan formülle (düşeyara) oluşturuluyor. Yukarıdaki makroda kopyalayıp yapıştırınca formülleri de alıyor ve yapıştırdığım (P6:X12) tablosuna formüllerde geliyor. Ben yapıştırdığım tabloda elle düzeltmede yapacağım için formüllerin değil sadece değerlerin gelmesini istiyorum. Yardımcı olursanız sevinirim.

 

[Muzaffer Ali]

Merhaba.
aşağıdaki satırları silin

Range("P106:X120").Copy
Selection.Copy
Range("P6").Select
ActiveSheet.Paste

Yerine aşağıdakileri ekleyin.

Range("P106:X120").Copy
Range("P6").PasteSpecial xlPasteValues

 

[smaeler]

Yerine aşağıdakileri ekleyin.

Range("P106:X120").Copy
Range("P6").PasteSpecial xlPasteValues

Teşekkür ederim. Kod çalıştı.
Bir isteğim daha olacak bu kod ile ilgili.
Kodu çalıştırıp Kopyala yapıştır yapınca P6 hücresinin yapıştırılan tablosu seçilmiş hücreler olarak Mavi görünümde kalıyor. Öyle seçilmiş (Mavi) kalmamamı için koda ne eklemem gerekiyor?

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın.

    Dim X As Range
    Set X = ActiveCell
    Range("P106:X120").Copy
    Range("P6").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    X.Select