Yan yana ikişerli dağıtma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli örnekte 16 çift harfin bulunduğu hücreden sıra ile harf çiftleri alınıp üç satır aralıklı yan yana hücrelere dağıtılacak. Yardımcı olursanız sevinirim.
Saygılarımla

 

[turist]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Long, i As Long
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
a = 1
For i = 9 To 54 Step 3
Cells(i, "I") = Mid(Target, a, 1)
a = a + 1
Cells(i, "J") = Mid(Target, a, 1)
a = a + 1
Next i
End Sub

Sayfa koduna yazdıktan sonra;
C2 hücresindeki veriyi F2 + Enter yaparak sonucu test edin.

 

[Tevfik_Kursun]

Sayın Turist Hocam,
İlginize teşekkür ederim. C2 yi boş gibi görüyor sanki !
Saygılarımla

 

[turist]

Sayfa Kodunda kullanın diye belirtmiştim.
Butona bağlı Kod olarak kullanmak isterseniz.

Sub Aktar_ikili()
Dim a As Long, i As Long
a = 1
For i = 9 To 54 Step 3
Cells(i, "I") = Mid([C2], a, 1)
a = a + 1
Cells(i, "J") = Mid([C2], a, 1)
a = a + 1
Next i
End Sub

 

[Tevfik_Kursun]

Sayın Turist Hocam,
Çok teşekkür ederim, lazım olduğunda bunu kullanmam daha iyi.
Saygılarımla

 

[turist]

Sayın Turist Hocam,
Çok teşekkür ederim, lazım olduğunda bunu kullanmam daha iyi.
Saygılarımla

Sağ olun, iyi çalışmalar.

 

[Ömer BARAN]

Merhaba.
Konu VBA-Makro bölümüne açılmış ama ben de formül ie alternatif çözüm önerisinde bulunayım.
Aşağıdaki formül ikililerinden birini tercih edip, bunlardan SOLDAN işlevini içereni Z9, SAĞDAN işlevini içereni Y9 hücresine uygulayın.

-- Formülü aralıksız olarak ilk satırdan sonuna kadar kopyalamak isterseniz mavi olan kısımlar kalsın ve Z9:Y9 'u kopyalayıp aşağı doğru yapıştırın.
-- Formülü ilgili satırlara (12, 15, 18 .....'inci satırlar) elle kopyalayıp yapıştıracaksanız mavi kısımları silerek kopyala-yapıştır yapabilirsiniz.

=EĞER($D9<>"";SOLDAN(PARÇAAL($C$2;2*(D9-1)+1;2);1);"")
=EĞER($D9<>"";SAĞDAN(PARÇAAL($C$2;2*(D9-1)+1;2);1);"")

=EĞER(MOD((SATIR()-9)/3*2+1;1)=0;SOLDAN(PARÇAAL($C$2;(SATIR()-9)/3*2+1;2);1);"")
=EĞER(MOD((SATIR()-9)/3*2+1;1)=0;SAĞDAN(PARÇAAL($C$2;(SATIR()-9)/3*2+1;2);1);"")

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
İlginize çok teşekkür ederim. Fonksiyonla ben de mod kullanarak çözmüştüm. Makroda yan yana ikilileri nasıl yerleştiririm diye düşünüyordum. Şimdi altılı grup ve sekiz aralıklıların da düzgün dağılımını sağladım. Hepinize ayrı ayrı teşekkür ediyorum. İyi ki varsınız.
Saygılarımla