Kopyala uzak sunucu yere yapıştır.

[dgdizayn]

Merhaba,

Elimde bir kod var bu kod seçilen aralığı kopyalayıp, karşı tarafta en son dolu hücrenin bir alt boş hücresine yapıştırıyor. Buradaki sorun ise kopyalamayı tek satır olarak yapıyor. Örneğin B37:D37 aralığını kopyala yapıştır yapıyor ama ben B37:D45 aralığını yapmak istediğimde sadece tek satır kopyalıyor. Bu konuda yardımcı olabilir misiniz.

Teşekkürler.

Bendeki kod

sonsatir = HdfSyf.Cells(Rows.Count, "B").End(3).Row + 1
HdfSyf.Range("B" & sonsatir & ":D" & sonsatir).Value = KynkSyf.Range("B37:D37").Value

 

[dgdizayn]

:D karakterleri şeklinde çıktığından dolayı, kodları yeniden düzelttim.

 

[Korhan Ayhan]

Deneyiniz.

sonsatir = HdfSyf.Cells(Rows.Count, "B").End(3).Row + 1
HdfSyf.Range("B" & sonsatir & ":D" & sonsatir + 8)).Value = KynkSyf.Range("B37:D45").Value

 

[dgdizayn]

Deneyiniz.

sonsatir = HdfSyf.Cells(Rows.Count, "B").End(3).Row + 1
HdfSyf.Range("B" & sonsatir & ":D" & sonsatir + 8)).Value = KynkSyf.Range("B37:D45").Value

Korhan Bey,

Yine hızlı ve çözüm odaklı cevabınız için teşekkür ederim. Sizi yormayacak ise B37:D45 olan kodu dolu hücreye kadar say öyle kopyala yapabilir miyiz. HdfSyf.Range("B" & sonsatir & ":D" & sonsatir).Value buradaki kod karşı taraftaki yapıştırılacak yerin en son dolu hücrenin altına yapıştır yapıyordu. Burada da B:D hücresi dolu olanı seç yapıştır olayı olursa çok sevinirim. Teşekkürler.

 

[Korhan Ayhan]

Normalde dolu hücreleri belirleyen kod CurrentRegion komutudur.

Range("A1").CurrentRegion.Copy ile A1 hücresinden başlayan ve tablo mantığıyla tasarlanmış bir alanda tüm alanı kopyalayabilirsiniz.

Örnek dosyanız varsa ona göre tasarlanabilir.