Yanyana verileri alt alta dizme.

[istanbulcahan]

Yan yana olan verileri diğer shette alt alta getiirme nasıl yapılır.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%, s%
    For a = 1 To Range("A65536").End(3).Row
        For i = 1 To 3
            s = s + 1
            Sayfa2.Cells(s, 1) = Cells(a, i)
        Next i
    Next a
    s = Empty: a = Empty: i = Empty
End Sub[/FONT]

 

[Ömer BARAN]

Formül kullanarak çözüm.

Murat Bey'in çözümünden sonra bir şey söylemek doğru değil ama.

Bir acemi önerisinde bulunayım. (Makro yerine formül kullanarak)

(Bilgilerin alınacağı sayfanın "Sayfa1" olduğu varsayımıyla) A1'e

=EĞER(DOLAYLI("Sayfa1!"&ADRES(SÜTUN();SATIR();4;))<>"";DOLAYLI("Sayfa1!"&ADRES(SÜTUN();SATIR();4;));"")

Formülü yatay ve dikey çoğaltınız.
İyi günler.

 

[istanbulcahan]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%, s%
    For a = 1 To Range("A65536").End(3).Row
        For i = 1 To 3
            s = s + 1
            Sayfa2.Cells(s, 1) = Cells(a, i)
        Next i
    Next a
    s = Empty: a = Empty: i = Empty
End Sub[/FONT]

Formülü vbde; Sayfa 1 -Sayfa 2 Thisworkbook hangisine kaydedeyim.

 

[Emir Hüseyin Çoban]

Formülü vbde; Sayfa 1 -Sayfa 2 Thisworkbook hangisine kaydedeyim.

. . .

VBA penceresinde
Insert > Module adımlarından yeni modül ekleyerek.
Kodları buraya yapıştırın.

Kodları bu ekranda F5 basarak veya excel tablosu üzerine buton ekleyip, makro atayarak çalıştırabilirsiniz.

. . .

 

[istanbulcahan]

Üstadım ilgine teşekkürler.
Dediğiniz gibi Module adımlarından yeni modül ekleyerek. Kodları buraya yapıştırdım.
Excel tablosu üzerine buton ekleyip, makro atama işlemlerini yapamadım.

 

[Emir Hüseyin Çoban]

Üstadım ilgine teşekkürler.
Dediğiniz gibi Module adımlarından yeni modül ekleyerek. Kodları buraya yapıştırdım.
Excel tablosu üzerine buton ekleyip, makro atama işlemlerini yapamadım.

. . .

Tıkla ~ 003 Makro Çalışmanın 5 Yolu (Video Anlatım)

. . .

 

[wexplorerx]

Yanyana verileri secip Kopyalayın , Diger sayfada yapıştıracağınız hücreyi seçip farenin sağ tuşunu tıklayın açılan menüde "Özel yapıştırı seçip" "Değerleri" enaltta "İşlemi tersine çeviri seçin"