Hücredeki Değer Kadar Satır Kopyalama

[vatansever027]

Arkadaşlar Merhaba,

Arkadaşlar size bir sorum olacak eğer cevaplaya bilirseniz çok sevinirim.
Örneğin Bir excel sayfasında safya1 deki c3 hücresine yazdığım değer kadar(Örneğin "5") yazdıktıktan sonra makroyu çalıştırdıktan sonra A8 satırından itibaren 5 satırı komle kopyalayıp sayfa2 ye yapıştırmasını istiyorum.yani c3 hücresine 10 yazarsam a8 satırından itibaren 10 satır kopyalayıp sayfa 2 ye yapıştıracak.bununla ilgili bir makro yaparsanız çok sevinirim.
Teşekkürler.

 

[Ömer]

Merhaba,

Sorunuz net değil, denermisiniz..

Sub Kopya()
Set S1 = Sheets("Sayfa2")
S1.[A1:A65536].ClearContents
i = 8 + [C3]
Range("A8:A" & i).Copy S1.[A1]
End Sub

.

 

[vatansever027]

tam istediğim gibi olmuş ama a8 satırından sonra 10 satır dolu ama ben c3 hücresine rakam yazdığımda o rakam sayısı kadar kopyalamyor.a8 satırından sonra ne kadar dolu hücre varsa hepsini kopyalıyor.bunuda çözerseniz çok sevinirim.
ayrıca ilgillendediğiniz içinde çok çok teşekkür ederim.

 

[vatansever027]

Ömerbey Allah sizden razı olsun sorunumu çözdüm daha doğrusu çözdünüz sorunsuz çalışıyor.
Size çok çok teşekkür ediyorum tabi ilk başta bizi buluşturan excel.wep.tr sitesine de çok çok teşekkür ediyorum.
sağlıcakla kalın.