Verilen sıralı data içerisinden belirli sıradakiler nasıl alınır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Örnek dosyada O sütununa aldığım datalar arasından 2. sütunu, 3. sütunu ve 7. den itibaren kalan sütunların tamamını B, C, D sütunlarına örnekte olduğu gibi ayırmak istiyorum. Yardımlarınız için şimdiden teşekkür ederim.
Saygılarımla
Ornek

 

[Murat OSMA]

B-C-D sütunlarındaki verileri silin ve bu kodları bir deneyin..

Sub Emre()
    Dim osma&, a%, yaz$, al
    For osma = 1 To Range("O65536").End(3).Row
        al = Split(Cells(osma, "O").Value, """")
        Cells(osma, 2) = al(3)
        Cells(osma, 3) = al(7)
        For a = 23 To UBound(al) Step 4
            yaz = yaz & al(a)
        Next a
        Cells(osma, 4) = yaz
        yaz = Empty
    Next osma
    Erase al: yaz = vbNullString: a = Empty: osma = Empty
End Sub

 

[Tevfik_Kursun]

Çok teşekkür ederim ederim Murat Hocam,
Saygılarımla

 

[Murat OSMA]

Rica ederim Tevfik Bey, iyi günler.

 

[Tevfik_Kursun]

Merhaba Murat Hocam,

Erase al: yaz = vbNullString: a = Empty: osma = Empty

Bu satır sanırım doğru yerde değil. Çünkü görev yapmıyor. Çünkü bir öncekini unutmuyor. Örnekteki karakter sayısı fazla, o nedenle ancak karakter boyu 1 olunca anlaşılır oluyor. Yardımcı olursanız sevinirim.
Saygılarımla

 

[Haluk]

Murat Beyin 2 No'lu mesajındaki kodda yer alan aşağıdaki satır, son eklediğiniz dosyada yok....

İlave ederseniz, sorun çözülür...

yaz = Empty

.

 

[Tevfik_Kursun]

Çok haklısınız Haluk hocam,
Çok teşekkür ederim. Kopyalarken o satırı nasıl silmeyi başarmışım anlamadım.
Saygılarımla