Çoklu Satır Seçimi

[Black Viking]

Arkadaşlar ben A2 A5 A8 A11 diye üçlü aralıklarla giden satırları seçmek istiyorum. Maalesef hepsi CTRL ye tıklatarak tek tek seçemeyeceğim kadar uzun. Bu isteğimi yapabilmenin kısa bir yolu var mı? Teşekkürler.

 

[Emir Hüseyin Çoban]

Sadece seçmek yeterli mi ?
İşlemin devamında ne yapıyorsunuz. Belirtirseniz daha pratik bir çözüm çıkabilir.

.

 

[Black Viking]

O satırları seçtikten sonra B sütununa aktaracağım. Yani 1. resimden 2. resime geçiş olacak. (Eklentiler yenilendi.)

 

[Emir Hüseyin Çoban]

. . .

Eklenti yüklemeleriniz başarısız olmuş. Başka bir siteye yüklemeyi deneyin.

. .

 

[Black Viking]

Eklentiler yenilendi.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/ynvwGyITXzUGq

Sub kod()
    Application.ScreenUpdating = False
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A1:C65536").ClearContents
    sat1 = 1: sat2 = 1: sat3 = 1
    For i = 1 To S1.[A65536].End(3).Row Step 3
        S2.Cells(sat1, "A") = S1.Cells(i, "A")
        S2.Cells(sat2, "B") = S1.Cells(i + 1, "A")
        S2.Cells(sat3, "C") = S1.Cells(i + 2, "A")
        sat1 = sat1 + 3: sat2 = sat2 + 1: sat3 = sat3 + 1
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[Black Viking]

Hocam makroyu oluşturdum şöyle bir hata verdi: http://www.dosyayukleyin.com/do.php?img=4441

Çok acemi olduğum için örnek dosyanın ne işe yarayacağını bilemedim.

 

[Emir Hüseyin Çoban]

. . .

Benim yüklediğim örnek dosya ile kodları uyguladığınız tablo arasında farklılık var.
Örneğin; Tablonuz da Sayfa2 olmalı ve
Kodlarda geçen Sayfa1 kısmını, Yeni Metin Belgesi olarak değiştin veya tam tersi.

. . .

 

[Black Viking]

Şimdi oldu, çok teşekkür ederim Hüseyin Bey.