satırdaki verilerin başka sayfaya aktarılması

[mustafayılmaz]

hazırlamış olduğum veri sayfasında 10000 satır ve a ile u arası sutün var
b,c,u sütunundaki verileri 2.sayfaya alt alta nasıl aktarabilirim.
sitemizde aradım fakat bu konu ile ilgili birşey bulamadım.
veri aktarma ile ilgili buldum fakat sutünü satıra aktarma bulamadım bu konuda yardımlarınızı bekliyorum
şimdiden teşekkürler

 

[alpi]

Sutünu Satıra yada Satırı Sutüna dönüştürme arasında fark yok. Yanlız şuna dikkat etmelisiniz Excel'de 256 sutün vardır siz 10000 tane alt alta yazılmış veriyi satıra çevirmek istediğiniz için başaramıyorsunuz. 256 yada daha az satırı sutüna çevirirseniz bu gerçekleşecektir.

 

[mustafayılmaz]

sayın alpi

cevabınız için çok teşekkürler
a sütununda
ali
mehmet
hüseyin
c sütununda
1
2
3
u sütununda
15
20
30
var benim yapmak istediğim şu

2.sayfada
a sütununa
ali
1
15
mehmet
2
20
hüseyin
3
30
şeklinde aktarılması tabiki satır sayısı 250 kadar olabilir
birde
2.sayfa sonuna gelindiğinde örneğin 15 adet veriyi a sütununa aktarıldığını
sayfa sonuna gelindiğinde b sütununa aktarılması konusunda yarımlarınızı
bekliyorum

 

[alpi]

Aşağıdaki kodları kullanın

Sub Aktar()
    Dim Stn, m, S, K As Integer
    Dim Kln(2) As String
    Dim x As Range
    S = 1
    With Sheets("Sayfa1")
    Kln(0) = "B1:B" & .Range("B1:B65536").End(xlDown).Row
    Kln(1) = "C1:C" & .Range("C1:C65536").End(xlDown).Row
    Kln(2) = "U1:U" & .Range("U1:U65536").End(xlDown).Row
    End With
    For m = 0 To 2
        For Each x In Sheets("Sayfa1").Range(Kln(m))
            K = K + 1
            If K > 256 Then
                K = 1
                S = S + 1
            End If
            Sheets("Sayfa2").Cells(S, K) = x
        Next
    Next
End Sub

 

[mustafayılmaz]

verdiğiniz kod sadece 1.satırda

yalnız verdiğiniz kod 1.satıra yazıyor
benim istediğim 1.satır a,c,u sütunundaki verileri
altalta yazması sonra 2.satıra,c,u sütunundaki verileri
altalta ayzaması ve satır arttıkça bunun 3 lü grup olarak altalta yazılması
emeğiniz ve ilginiz için teşekkürler

 

[alpi]

Örnek bir dosya ekler misiniz? Ben sorunuzu anlayamıyorum.

 

[mustafayılmaz]

http://www.excel.web.tr/attachment.php?attachmentid=9229&stc=1&d=1168716036

 

[alpi]

Hangi sayfadaki veriler alınacak ve hangi sayfaya kaydedilecek.(Sayfa isimlerini söyler misiniz?)

 

[mustafayılmaz]

sayın alpi teşekkürler

1.sayfadan
3.sayfaya

 

[alpi]

Dosyanız ekte

 

[ATILGAN47]

slm
ekte göndereceğim 2 adet tablom var bu tablolar ayrı sayfalarda bulunmaktadır. benim isteiğim 1.tabloya ürünün ismini girdiğim zaman 2. sayfadaki tablonun ilgili alanına ürün kodu iler birlikte rünün fiyatınında aktarılmasını sağlamak bunu nasıl yapabilirimyardımcı olursanız sevinirim