Mausla Seçtiğim Alanı Kopyalama

[steppe]

Merhaba Arkadaşlar,
Sayfa1'de seçtiğim alanı Sayfa2'de A2'den başlayarak makro ile kopyalamak istiyorum.
Örnek: Sayfa1'de A3:E17 aralığını setiğimi kabul edelim.Bu mausla seçtiğim alanı Sayfa2'de A2'den başalayarak kopyalamak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim..

 

[alicimri]

Yapılan seçimde her zaman A sütununu içerecek mi?
Sadece çok sayıda hücre seçilince mi? Bu kopyalama/yapıştırma işlemi yapılacak

 

[steppe]

evet seçim A sütunundan başlayacak
A3:E17 aralığını seçebilirim
A10:E30 aralığını da seçebilirim.

 

[alicimri]

Aşağıdaki kodu Sayfa1 in kod modülüne yapıştırıp deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Selection.Columns.Count = 5 Then
say = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
Selection.Copy Sheets("Sayfa2").Range("A" & say)
End If
End Sub

 

[steppe]

alicimri Hocam,
İlginiz için çok teşekkür ederim.Modüle kopyaladım çalıştıramadım.

Sub aaa()
If Target.Row = 1 And Selection.Columns.Count = 5 Then
say = Sayfa2.Range("65536").End(3).Row + 1
Selection.Copy Sayfa2.Range("A" & say)
End If
End Sub

Makroya çevirdim yine çalıştıramadım.Makro şeklinde nasıl çalıştırabiliriz.

 

[alicimri]

Sayfa1 Sekmesinin üzerinde sağ tıklayın, Açılan listede Kod Görüntüleye tıklayın Açılan modüle benim yukardaki kodlarımı yapıştırın. Siz seçim yaptığınızda otomatik olarak çalışacaktır.

 

[steppe]

Sayfa1 Sekmesinin üzerinde sağ tıklayın, Açılan listede Kod Görüntüleye tıklayın Açılan modüle benim yukardaki kodlarımı yapıştırın. Siz seçim yaptığınızda otomatik olarak çalışacaktır.

Örnek dosyada çalışmadı.

 

[alicimri]

Ben altın üye değilim. dosyanızı dosya.tc gibi bir link te yüklerseniz bakayım.

 

[steppe]

Ben altın üye değilim. dosyanızı dosya.tc gibi bir link te yüklerseniz bakayım.

http://s7.dosya.tc/server6/hr9j8h/deneme.xls.html

 

[alicimri]

Kodlarda bir eksiklik varmış hataya düşüyordu.#4 nolu mesajdaki kodu düzelttim.

 

[steppe]

Kodlarda bir eksiklik varmış hataya düşüyordu.#4 nolu mesajdaki kodu düzelttim.

4 nolu mesajdaki kod aynı,bakabilir misiniz?

 

[alicimri]

Kusura bakmayın başka bir yanlış daha varmış, yukardaki kodları da değiştireceğim.
http://s7.dosya.tc/server6/jatx6d/deneme1.xls&55905365

 

[halit3]

Kodu bir modüle ekle ve bir komut düğmesine bağla

Sayfa1 de bu kodu çalıştır.

Sub kapyala()
sayf1 = "Sayfa1"
sayf2 = "Sayfa2"
Worksheets(sayf2).Range("A2:E65000").ClearContents
Worksheets(sayf1).Range(ActiveWindow.RangeSelection.Address).Copy
Worksheets(sayf2).Paste Destination:=Worksheets(sayf2).Range("a2")
Application.CutCopyMode = False
End Sub

 

[steppe]

Halit Hocam,
Yardımlarınız için çok teşekkür ederim.