Tek bir sütundaki veriyi 2 sütuna yaymak.

[Bora K]

Merhabalar

Örnek dosyada açıklama yaptım yardımcı olursanız
çok sevinirim. Teşekkür ederim.

 

[apocalyt]

bir modüle kopyalayın..

Sub deneme()
Application.ScreenUpdating = False
Range("d4:e20000").ClearContents
For Each x In Range("b4:b13")
If x Mod 2 = 1 Then
Cells([d2000].End(3).Row + 1, "d") = x
Else
Cells([e2000].End(3).Row + 1, "e") = x
End If
Next x
Range("d4:d" & [d2000].End(3).Row).Sort key1:=Range("d4")
Range("e4:e" & [e2000].End(3).Row).Sort key1:=Range("e4")
Application.ScreenUpdating = True
MsgBox "İşlem bitmiştir.", vbInformation
End Sub

 

[Bora K]

Merhaba
Alakanız için teşekkür ederim öncelikle.

Lakin kod tam olarak benim istediğim işlemi yapmıyor.
Örnek dosyada da görüleceği üzere;
B4 ten başlayan ilk veri B4 te kalacak
B5 teki veri C4 gidecek
Aynı mantıkla diğer verilerde aktarılacak.

 

[apocalyt]

Öncelikle ben sizin dosyada verdiğiniz örneğa baktığımda tek ve çift sayıların ayrılması olarak algıladım..öle düşünüp bişiler yapmaya çalıştım.yanlış anlamışım..

 

[Bora K]

Merhaba.
Sorun değil sayın apocalyt
yardım için teşekkür ederim.

Veriler bu kez doğru bölünüyor.
Yerlerinide düzeltirsek tamamdır.

Örnek dosyada kırmızı yazı ile belirtmiştim.
İlk parça B sütununda kalacak
ikinci parça ise C sütununda olacak.