Aynı Sayfa İçinde Kopyalama

[cimcoz]

Merhaba Arkadaşlar,

Ekte bulunan dosyamda, E2-I2 arasındaki değerleri U2-AC2 bölümüne kopyalama ve yapıştırma yapmak istiyorum. (Farklı sayfalar arası benzer işlemi yapabildim ama aynı sayfa içinde başaramadım.)

A2-E2 arasındaki alana farklı sayılar geliyor. Her veri (tek satır) U2-AC2 satırından itibaren aşağıya doğru yapıştırmasını sağlayacak bir makroya ihtiyacım var.

Yani makroya bastığımda U2-AC2 satırı dolu ise bir alttaki satıra U3-AC3 arasına yapıştırması lazım.

Makroyu her çalıştırdığımda bir alttaki boş alana veri yapışması gerekiyor.

Yardımlarınız için şimdiden teşekkür ederim.

Saygılar,

 

[Orion1]

Buyurun.

Sub yapistir()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "U").End(xlUp).Row + 1
Range("E2:M2").Copy Range("U" & sonsat)
End Sub

 

[cimcoz]

Sayın Orion1,

Çok teşekkür ederim. Ellerinize sağlık.

Saygılar.

 

[Orion1]

Sayın Orion1,

Çok teşekkür ederim. Ellerinize sağlık.

Saygılar.

Rica ederim.
İyi çalışmalar.