Seçili Alanı Diğer Sayfaya Kopyalama

[mustafa1205]

Örnek dosyamda da açıklama yaptım.Sayfa 1 deki verileri mause ile manuel seçtikten sonra sayfa 2 nin a sütunun son satırına kopyalamak istiyorum. Örnek dosyam ektedir.Teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modülle ilişkilendirin. Seçimi yaptıktan sonra kodları çalıştırın.

Sub Secimi_Aktar()
    
    Dim i       As Long
    
    If Selection.Columns.Count > 1 Then
        i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
        Selection.Copy Sheets("Sayfa2").Cells(i, "A")
        MsgBox "Seçilen Alan Aktarıldı"
    End If
    
End Sub

 

[mustafa1205]

Hocam eline sağlık çok teşekkür ediyorum.Tam istediğim gibi. Sadece bilgi olarak soruyorum bu kopyalama işlemi tümü değilde sadece hücre içerisindeki değerleri kopyalatabilir miyiz ? Tekrar teşekkürler

 

[Seyit Tiken]

Aşağıdaki kodu bir ekleyin, işe yarayacak mı?

Selection.ClearFormats

 

[Orion1]

İlgili yeri aşağıdaki kod ile değiştiriniz.

 Selection.Copy
 Sheets("Sayfa2").Range("A" & i).PasteSpecial (xlPasteValuesAndNumberFormats)
 Application.CutCopyMode = False

 

[mustafa1205]

Hocalarım çok teşekkür ediyorum sorunsuz çalışıyor.İlginize vede emeğinize sonsuz teşekkürler.