Kopyala-Yapıştır Sorunu

[bichet]

Merhaba,

Private Sub CommandButton7_Click()

            Worksheets("Sayfa 1").Activate

    For f = 3 To 2000

        If Cells(f, 8) = Cells(f + 1, 8) Then
    
            Rows(f).Select
    
        Else
        
            Cells(f, 8).Select
            Range(Selection, Selection.End(xlUp)).Select
            Range(Selection, Selection.End(xlToLeft)).Select
            Selection.Copy
            Worksheets("Sayfa 2").Activate
            Range("C11").PasteSpecial xlPasteValues

        End If
        
    Next f
    
End Sub

Garip bir sorunum var. Yukarıdaki kodu yazdığım zaman kopyalama işlemini gerçekleştiriyor ancak yapıştırırken Sayfa 2'ye değil de Sayfa 1'e yapıştırma işlemini gerçekleştiriyor. Daha önce böyle bir şeyle karşılaştınız mı? Herhangi bir çözüm öneriniz var mı?

İyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.

Kodları Sayfa1'in kod kısmına yazmış olmalısınız.
Eğer kodları bir Module ekleyip çalıştırsanız aktif sayfaya yapıştırır.

yada aşağıdaki satırı silin.

Range("C11").PasteSpecial xlPasteValues

yerine aşağıdaki satırı ekleyin.

Worksheets("Sayfa 2").Range("C11").PasteSpecial xlPasteValues