Satır kesme ve yapıştırma

[turkanet]

Merhaba,

1 nolu sayfadan seçtiğim satırı kesip, 2 nolu saydada a sütununda boş olan ilk satıra yapıştıran makroya ihtiyacım var.

yardımlarınız için şimdiden tşk

 

[turkanet]

değerli yardımlarınızı beklerim

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S2 As Worksheet
Dim SON As Integer
Set S2 = Sheets("2")
SON = S2.Cells(65536, "A").End(xlUp).Row + 1
ActiveCell.EntireRow.Copy S2.Cells(SON, "A")
End Sub

 

[turkanet]

Sub AKTAR()
Dim S2 As Worksheet
Dim SON As Integer
Set S2 = Sheets("2")
SON = S2.Cells(65536, "A").End(xlUp).Row + 1
ActiveCell.EntireRow.Copy S2.Cells(SON, "A")
End Sub

işlemden sonra 1. sayfadaki satırı silmesi için kodu nasıl değiştirebilirim?

 

[ECYavuz]

Sub AKTAR()
Dim S2 As Worksheet
Dim SON As Integer
Set S2 = Sheets("2")
SON = S2.Cells(65536, "A").End(xlUp).Row + 1
ActiveCell.EntireRow.Copy S2.Cells(SON, "A")
ActiveCell.EntireRow.Delete
End Sub

denermisiniz.

 

[turkanet]

çok tşk. zahmetlerinize minnettarım

 

[MyMamoste]

denermisiniz.

Kod çok güzel çalışıyor, lakin düşük özellikli bilgisayarlarda Activecell.EntireRow.Delete kısmı bellek yetersizliğinden gerçekleşmiyor, Activecell.EntireRow.Clear yaptığımda o kısım temizleniyor ama boş satır yine orada kalıyor. Bu bellek sorununa karşın bu koda yapılabilecek bir müdahale var mıdır?

 

[ÖmerFaruk]

Bir satırı silmekle olacak iş değil bence.
Eğer satırınızda herhangi bir hücreye bağlı çalışan ağır formüller ya da makrolar varsa dediğiniz olabilir.

 

[MyMamoste]

Sonunda pes edecem

 

[ÖmerFaruk]

Pes etmek yerine
İyi bir bilgisayarda deneyip sorunun cihazdan mı kaynaklandığını test eder
ya da dosyanızı paylaşabilir başkasının da aynı sorunla karşılaşıp karşılaşmadığını öğrenebilirsiniz.

 

[arhanbjk]

denermisiniz.

ben bunu bir button a entegre etmeye çalışıyorum ama hata veriyor ayrıca satır yukarı kayıyor en üstteki in alta kayıyor.
amacım butona tıkladığımda satırı komple alıp diğer sayfaya atması
örnek:
sayfa 1 : futbol takımı kadrosu isimleri yanına 11 ve yedek yazacağım
sayfa2: 11 i atacak ve boş satırları silecek
sayfa3: yedekleri atacak ve sayfadan silecek
teşekkür ederim...