tanımlanmış aralığı seçme işlemi

[Mx@Raid]

Arkadaşlar aşağıdaki kodla sınırlı oranda alanı seçebiliyorum, bana lazım olan ise 40000 değerine kadar aralıktaki alanda benim istediğim satırları seçebilsin bir türlü içinden çıkmadım yardımcı olabilirseniz sevinirim. Teşekkürler.

Sub Sec1()

Set a = Sheets("Veri")

a.Range("1:11,68:73,130:135,192:197,254:259,316:321,378:383,440:445,502:507,564:569,626:631,688:693,750:755,812:817," _
& "874:879,936:941,998:1003,1060:1065,1122:1127,1184:1189,1246:1251,1308:1313,1370:1375,1432:1437,1494:1499,1556:1561," _
& "1618:1623,1680:1685,1742:1747").Select

End Sub

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemi UNION komutu ile rahatlıkla yapabilirsiniz.

Option Explicit
 
Sub ALAN_SEÇ()
    Dim ALAN As Range, X As Long
 
    Sheets("Veri").Select
 
    Set ALAN = Range(Range("A1:A11").Address)
 
    For X = 68 To 40000 Step 62
        If ALAN Is Nothing Then
            Set ALAN = Range(Range(Cells(X, 1), Cells(X + 5, 1)).Address)
        Else
            Set ALAN = Union(ALAN, Range(Range(Cells(X, 1), Cells(X + 5, 1)).Address))
        End If
    Next
 
    ALAN.EntireRow.Select
End Sub

 

[Mx@Raid]

Korhan Bey, TEŞEKKÜRLER. Emeğinize yüreğinize sağlık.

 

[Korhan Ayhan]

Selamlar,

Şimdi farkettim. Kod içinde S1 tanımlamasını fazladan yapmışım. Üstteki mesajımdaki kodu güncelledim. Lütfen son halini kullanınız.