Butonla sütun taşımak

[muratgunay48]

Arkadaşlar, sayın hocalarım, A sütununda veriler var. Butona tıklayınca Sayfa 1'den silecek Sayfa 2'de yine A sütununa son boş satırdan itibaren yapıştıracak.
Yardımcı olabilir misiniz?
Şimdiden teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Sub test()
'Birinci sayfadaki dolu hücreleri bul
Sheets("Sayfa1").Select
For a = 1 To [A65000].End(xlUp).Row
If Cells(a, 1) <> "" Then Cells(a, 1).Copy Sheets(2).[A65000].End(xlUp).Offset(1, 0)
Next a

'2. Sayfayı seç
Sheets("Sayfa2").Select

'İlk boş satırı seç
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

'Yapıştır
ActiveSheet.Paste

'1. Sayfa'da A sütununu temizle
Sheets("Sayfa1").Select
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Yapıştır kısmında hata veriyor.

 

[Murat OSMA]

Merhaba,
Bu kodları kullanabilirsiniz;

Sub OSMA()
    Range("A1:A" & Cells(Rows.Count, "A").End(3).Row).Cut _
    Sheets("Sayfa2").Cells(Rows.Count, "A").End(3)(2)
End Sub

 

[muratgunay48]

Merhaba,
Bu kodları kullanabilirsiniz;

Sub OSMA()
    Range("A1:A" & Cells(Rows.Count, "A").End(3).Row).Cut _
    Sheets("Sayfa2").Cells(Rows.Count, "A").End(3)(2)
End Sub

Hocam öncelikle teşekkür ederim
Benim yazdığım kod neden çalışmadı acaba?
Yapıştır kısmında hata verdi.

 

[Korhan Ayhan]

Kullandığınız kodun ilk bölümü zaten verileri satır satır Sayfa2'ye kopyalıyor. Bundan sonraki satırlar ise Sayfa2'yi seçip boş satırı arıyor. Sonrasinda bu bos hücre varsa seçiliyor. Sonrasında YAPIŞTIR komutu devreye giriyor. Ama arka planda aktif olan bir kopyala komutu yok. Bu sebeple hata alıyorsunuz. Ayrıca bu satırlara gerek yok. Çünkü koduna ilk döngü bölümü zaten verileri Sayfa2'ye satır satır aktarıyor. Son olarak kodun son bölümü ise ilk sayfadaki A sütununu temizliyor. Bu kısım durabilir.

 

[muratgunay48]

Kullandığınız kodun ilk bölümü zaten verileri satır satır Sayfa2'ye kopyalıyor. Bundan sonraki satırlar ise Sayfa2'yi seçip boş satırı arıyor. Sonrasinda bu bos hücre varsa seçiliyor. Sonrasında YAPIŞTIR komutu devreye giriyor. Ama arka planda aktif olan bir kopyala komutu yok. Bu sebeple hata alıyorsunuz. Ayrıca bu satırlara gerek yok. Çünkü koduna ilk döngü bölümü zaten verileri Sayfa2'ye satır satır aktarıyor. Son olarak kodun son bölümü ise ilk sayfadaki A sütununu temizliyor. Bu kısım durabilir.

Hocam çok teşekkür ederim.
Laf olsun diye söylemiyorum, gerçekten var olun. 2010 yılından beri forumdayım. Lütfen yanlış anlaşılmasın, tüm hocalarım çok kıymetli, saygıdeğer. Ne demiş Hz. Ali, "Bana bir harf öğretenin 40 yıl kölesi olurum" Ancak tüm öğrendiklerimde sizin yeriniz başka. Sağ olun, var olun.

 

[Korhan Ayhan]

Lafı bile olmaz.. Biz de öğrendiklerimizi aktarıyoruz..