Satır seçme

[wave41]

ben makroyla mesela 3. satırı değilde süzme yaptıktan sonra 3. sıraya denk gelen satırı otomatik seçtirmek istiyorum, nasıl yapabilirim

 

[Korhan Ayhan]

Selamlar,

A sütunu için aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub FİLTRELİ_ALANDA_SATIR_SEÇ()
    Dim Hücre As Range, Say As Byte
    
    For Each Hücre In Range("A2:A65536").SpecialCells(xlCellTypeVisible)
        Say = Say + 1
        If Say = 3 Then
            Hücre.EntireRow.Select
            Exit For
        End If
    Next
End Sub

 

[wave41]

yapamadım, tam olarak istediğim şu aslında, rapor listem var rapor tarihi geçmiş satırları süzüyorum, ve makro ile seçip keserek başka bir sayfaya aldırmak istiyorum, ilk 2 satırım sabit, yani bana lazım olan süzme yaptıktan sonra 3. sıraya denk gelen satırdan en alt dolu satıra kadar seçilebilmesi

 

[Korhan Ayhan]

Selamlar,

Sizin sorunuzu CurrentRegion komutu çözebilir. Örnek dosya eklermisiniz.

 

[wave41]

hocam son birşey daha denemek istiyorum müsadenizle, sonra örnek dosyayı yüklerim, filtreli alanda 3. satır yerine 3. a hücresini nasıl seçtirebilirim, bu kod komple satırı seçiyor ama kes yapıştır yaptığımda filtre dışında olanlarıda birlikte götürüyor

 

[Korhan Ayhan]

Selamlar,

Filtre uygulanmış alanda KES-YAPIŞTIR yapamazsınız. Bu sebeple örnek dosyanızı ve yapmak istediğiniz işlemi açıklarsanız farklı çözümler üretebiliriz.

Bu arada A sütunundaki 3. hücreyi seçmek için aşağıdaki kodu kullanabilirsiniz.

Hücre.Select

 

[wave41]

hocam çok teşekkür ederim, kes yapıştır yerine koplaya yapıştır yapıp, sonra geri dönüp satırları sil dediğimde istediğim oldu,