Aktif hücrenin satırını seçme

[Ercan6321]

Merhabalar, örnek dosyanın sayfa1 kısmında dolu hücreyi bulacak ufak bir kod yazdım. sorunum şöyle. k1 de dolu hücreyi buluyorum. dolu hücrede yani aktif olan hücrenin istediğim x satırlarını seçmesini istiyorum tesekkur ederim.

 

[ÖmerFaruk]

Sorunuzu anlamakla beraber aşağıdkailerin size yardımcı olacağını düşünüyorum

Range("K1").End (xlDown)            'K Sütunundaki K1 ve K2 dolu olmak şaryıyla son dolu satırı bulur
Range("K" & Rows.Count).End (xlUp)  'K sütundaki son dolu satırı birekt bulur. K1 dolu K2 boş K3 dolu ise K3 ü bulur

SonDoluSatır = Range("K" & Rows.Count).End(xlUp).Row    'K sütunundaki son dolu satırın satır numarası"

 

[Ercan6321]

Aslında tam olarak istediğim şöyleydi. dolu satırı bulduktan sonra A satırından J satırına kadar olan kısmı seçip kopyalamak.

 

[ÖmerFaruk]

Soruyu yine aslında hatalı ifade ediyorsunuz. Ben şansımı deneyip şunu istemiş olduğunuzu varsayıyourum.

SonDoluSatır = Range("K1").End(xlDown).Row
Range("A" & SonDoluSatır, "J" & SonDoluSatır).Copy

 

[Ercan6321]

Kusuruma bakmayın. Daha yeniyim bu konularda. Tam istediğim buydu. Çok teşekkür ederim. Elinize sağlık.