komple dolu satırları seçmek farklı durumlarda

[recepkutlu]

merhaba;

makrom için satırları satır numaralarına tıklayarak seçiyorum. yapmak istediğim şöyle. 1 nolu satırı seçip ctrl+shift+down yaparsam dolu olan tüm satırları seçsin. onu da başka sayfaya kopyalıyorum başka makro ile. ama sorun şu birden fazla satır varsa mesela 2 satırı kopyalıyor ve diğer tarafa yapıştırıyor. fakat tek satır varsa 1048576. satıra kadar kopyalıyor tabi diğer tarafa geçince de yapıştırmıyor. 2 kez down tuşu yaptım sonra yukarıya yaptım aşağıya insin tekrar yukarıya çıksın diye ama olmadı.

Sub aaa()
'
' aaa Makro
    Rows("1:1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Rows("1:1000000").SpecialCells(xlCellTypeConstants, 23).Select

 

[ÖmerFaruk]

Sayfanızda dolu satırlar 1 den başlıyor ve atlamadan mı devam ediyor?

 

[recepkutlu]

1. satır tablo başlığı. 2. satırdan itibaren başlıyor.

 

[recepkutlu]

Aşağıdaki gibi deneyin.

Rows("1:1000000").SpecialCells(xlCellTypeConstants, 23).Select

öncelikle teşekkürler. denedim ama işlem yapmadı makro

 

[Korhan Ayhan]

Emin değilim ama aşağıdaki gibi deneyiniz.

Range("A1").CurrentRegion.Copy

 

[recepkutlu]

olmadı.

şöyle özetliyeyim. 1 satır varsa 1 satır kopyalasın.

1 den fazla varsa o kadar kopyalasın.

 

[Korhan Ayhan]

Örnek dosya paylaşırmısınız.

 

[recepkutlu]

DENEME2.xlsx dosyasını indir - download

DENEME2.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

Sheets("ARA AKTARMA").Select
    Rows("4:4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("TÜM LİSTE").Select
    Range("A1").Select

böyle bir koda yazdım. fakat birden fazla satırda işe yarıyor ama tek satır varsa excel en alta inip kopyalıyor ve yapıştırma yerinde hata alıyorum çok satır var diye.

yani bazen tek satırı bazen birden fazla satırı seçip kopyalama yapmam lazım.

 

[recepkutlu]

merhaba;

inceleme fırsatınız oldu mu?

 

[YUSUF44]

Sorunuzun dosya içeriğinizle aynı olmasına özen göstermenizi öneririm. Şimdiye kadar 1. satırdan bahsediyorsunuz ama örnek dosyanızda veriler 4. satırdan başlıyor. Ayrıca dosyanızda başka bir sayfa yok ve makrolar da bulunmuyor. Çözümleri dosyaya göre yapabilmek için aynı yapıda dosya paylaşmanız her zaman işi kolaylaştırır ve hızlandırır.

Aşağıdaki gibi bir makro mu arıyorsunuz?

Sub sec()
son = Cells(Rows.Count, "A").End(3).Row
If son >= 4 Then
    Rows("4:" & son).Copy
End If
End Sub

 

[recepkutlu]

tam istediğim gibi oldu teşekkür ederim.

haklısınız bazen sorunu anlatırken de doğru anlatmak gerek.