Soru For döngüsü ile Copy/Paste Sorunu

[Boldpilot87]

Merhabalar arkadaşlar , Liste isimli bir sekmedeki A5 İLE A50 arasındaki sütunda bulunan her bir satırdaki verileri; öğrencilerim isimli başka bir sekmedeki listeye yapıştırmak istiyorum.

Ancak Liste sekmesinden alınan her bir satırı öğrencilerim sekmesinde 15'er satır atlayarak yapıştırsın istiyorum. Örnegin:
A5'den aldığını B4'e ,
A6'dan aldığını B19'a ,
A7'den aldığını B34'e yapıştırsın istiyorum.

Bir for döngüsü yazdım PC dondu yardımcı olursanız sevinirim arkadaşlar .

Hiç beceremediğim kod burada :

Sub Yeni_Sınıf_Form_Oluştur()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+q
'

    For i = 1 To 50
        ' YENİ İSİM LİSTESİ SEKMESİNE GİT
        Sheets("YENİ EKLENECEK sınıfım").Select
        ' İLK İSMİN OLDUĞU A5 HÜCRESİNİ SEÇ
        Range("A" & i + 4).Select
        Selection.Copy
        ' YENİ sınıf FORMU OLACAK LİSTEYİ SEÇ
        Sheets("6C").Select
        'ORADAKİ B4 SATIRINDAN YAPIŞTIRMAYA BAŞLA
        Range("b" & i + 3).Select
        ActiveSheet.Paste
   
    Next i
   
    Application.CutCopyMode = False
   
End Sub

 

[alicimri]

Yanlış anlamadım ise aşağıdaki kod işinize yarayabilir.

Sub aktar()
say = 4
For i = 4 To 50
        Sheets("YENİ EKLENECEK sınıfım").Range("A" & i).Copy Sheets("6C").Range("b" & say)
       say = say + 14
    Next i
End Sub

 

[Boldpilot87]

Kardeşim ellerine sağlık, cuk diye çalıştı.

 

[Boldpilot87]

Bir şey daha sorayım bir döngüde kullanmak için ;
Range("B4:B18")

olan değeri Range("B & say :B & say +14") yazıyorum kabul etmiyor, ne şekilde yazmalıyım ?

 

[Orion1]

Şöyle denenyiniz.

Range("B" & say & ":B" & say +14)

 

[Boldpilot87]

Şöyle denenyiniz.

Range("B" & say & ":B" & say +14)

Siz yazılımcılar mükemmel insanlarsınız. Aklıma takıldıkça sorabilir miyim ?

 

[Korhan Ayhan]

Elbette sorabilirsiniz..

Ama soru sormadan önce arama yaparsanız zaten birçok konuda cevaba ulaşabilirsiniz.

 

[Boldpilot87]

Mesela bir alana (Örn: A1:B20 ) bir değer girdiğimde o değerin aynısı C1:C20 içinde bir hücrede varsa bilglendirme maksatlı uyarı alabilir miyim ?