Sütunu dağıtmak

[işsiz123]

Merhabalar,
A1 den A300 e kadar alt alta veriler var. Bu verileri B C D E sütunlarına eşit olarak alt alta nasıl dağıtabiliriz. Makro veya formül. Şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
B1 hücresine aşağıdaki formülü uygulayıp sağa ve aşağı çekerek çoğaltınız.

=EĞERHATA(İNDİS($A$1:$A$300;4*(SATIR()-1)+SÜTUNSAY($B:B));"")

 

[dEdE]

Merhaba,
Örnek dosyanız olmadığı için, sorunuzu anladığım kadarıyla böyle çözdüm.

Sub SutunuDagit()
Kolon = 1
For i = 60 To 300 Step 60
    Kolon = Kolon + 1
    Range(Cells(i + 1, 1), Cells(i + 60, 1)).Cut Cells(1, Kolon)
Next
End Sub

Eğer A sütununda veri kalmasın tüm veriler B,C,D,E sütunlarına dağıtılsın diyorsanız aşağıdaki kodu kullanın.

Sub SutunuDagitx()
Kolon = 1
For i = 1 To 300 Step 75
    Kolon = Kolon + 1
    Range(Cells(i, 1), Cells(i + 74, 1)).Cut Cells(1, Kolon)
Next
End Sub

 

[işsiz123]

Merhaba,
B1 hücresine aşağıdaki formülü uygulayıp sağa ve aşağı çekerek çoğaltınız.

=EĞERHATA(İNDİS($A$1:$A$300;4*(SATIR()-1)+SÜTUNSAY($B:B));"")

Teşekkürler

 

[işsiz123]

Merhaba,
Örnek dosyanız olmadığı için, sorunuzu anladığım kadarıyla böyle çözdüm.

Sub SutunuDagit()
Kolon = 1
For i = 60 To 300 Step 60
    Kolon = Kolon + 1
    Range(Cells(i + 1, 1), Cells(i + 60, 1)).Cut Cells(1, Kolon)
Next
End Sub

Eğer A sütununda veri kalmasın tüm veriler B,C,D,E sütunlarına dağıtılsın diyorsanız aşağıdaki kodu kullanın.

Sub SutunuDagitx()
Kolon = 1
For i = 1 To 300 Step 75
    Kolon = Kolon + 1
    Range(Cells(i, 1), Cells(i + 74, 1)).Cut Cells(1, Kolon)
Next
End Sub

Teşekkürler