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.

 

[muratgunay48]

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

Hocam, Aşağı doğru satırlar gidiyor. Her gün değişiyor. Sadece son dolu satıra kadar kopyalaması için nasıl yazmamız gerekir. Mesela A sütununda 20 satır var ama C sütununda 26 satır var.
Teşekkür ederim.

 

[volki_112]

Hocam, Aşağı doğru satırlar gidiyor. Her gün değişiyor. Sadece son dolu satıra kadar kopyalaması için nasıl yazmamız gerekir. Mesela A sütununda 20 satır var ama C sütununda 26 satır var.
Teşekkür ederim.

Ornegin A1:C26 arasini mi kopyalamak istiyorsunuz

 

[muratgunay48]

Ornegin A1:C26 arasini mi kopyalamak istiyorsunuz

Evet hocam ama değişken. Her gün değişiyor.
A2'den başlıyor GX

 

[muratgunay48]

Ornegin A1:C26 arasini mi kopyalamak istiyorsunuz

Yani hocam A2:G.....

 

[volki_112]

Yani hocam A2:G.....

A2 den baslayip son dolu satira kadaelr secer

Sub A2denGSonunaKadarSec()
    Dim ws As Worksheet
    Dim sonSatir As Long

    Set ws = ActiveSheet

    ' G sütunundaki son dolu satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

    ' A2:G[son satır] aralığını seç
    ws.Range("A2:G" & sonSatir).Select
End Sub

 

[muratgunay48]

A2 den baslayip son dolu satira kadaelr secer

Sub A2denGSonunaKadarSec()
    Dim ws As Worksheet
    Dim sonSatir As Long

    Set ws = ActiveSheet

    ' G sütunundaki son dolu satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

    ' A2:G[son satır] aralığını seç
    ws.Range("A2:G" & sonSatir).Select
End Sub

Çok ama çok teşekkür ederim hocam. Emeğinize sağlık. Benim yaptığımda A2'den aşağı kadar seçiyordu sıkıntı yok. Ama tüm satırı seçiyordu. O da kasıyor tabi.
Tekrar teşekkür ederim.