eşit aralıklı verileri hücerelere alma

[asaldan]

Merhaba

Ben ekteki dosyada örneğin A1 daha sonra 5 hücre sonraki veri yani A6 daha sonra 5 hücre sonraki veri yani A11 gibi verileri C1 C2 C3 seklinde sütuna yerleştirmek istiyorum.

Formülü konusunda yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Formülü uygulayınız.

C1 hücresine aşağıdaki formülü yazıp sağa doğru çoğaltabilirsiniz.

=EĞER(DOLAYLI("a"&(EĞER(((SÜTUN()-2))*5<=5;1;((SÜTUN()-3))*5)))=0;"";DOLAYLI("a"&(EĞER(((SÜTUN()-2))*5<=5;1;((SÜTUN()-3))*5))))

İyi günler dilerim.

 

[Ömer BARAN]

Formüldeki 1 veri almaya başlanacak satır sayısını, 5 ise atlanacak satır sayısını, -2 ise ilk veri yazacağınız sütun ile veri alacağınız sütun arasındaki sütun farkına dayanmaktadır ( "A" 1. sütun - "C" 3. sütun ) göstermektedir.

 

[Orion1]

Dosyanız ektedir.

Sub z59()
Dim sat As Long, i As Long, sut As Integer
Range("C1:IV1").ClearContents
sat = Cells(Rows.Count, "A").End(xlUp).Row
sut = 3
For i = 1 To sat Step 5
    Cells(1, sut).Value = Cells(i, "A").Value
    sut = sut + 1
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[asaldan]

ilginiz ve yardımlarınız için çok teşekkür ederim