Listeyi satırlara yazdırmak için makro

[ahzola]

Merhabalar

Sayfa 1 A sütununa girdiğim listeyi.
Sayfa 2 nin 1 ve 2. satırlarına yazacak

Önceki liste silinip yerine yeni bir liste girildiğinde ise;
Sayfa 2 ye daha önceki yazdırılan veriler kalmak sureti ile
1 satır alta geçip yeni listeyi yazdıracağız.

Bu şekilde devam edecek.

uzman arkadaşlarımızın yardımlarını bekliyorum

saygılarımla

 

[Huseyinkis]

Ekteki dosyayı inclermisiniz.

 

[ahzola]

Çok çok teşekkür ederim

Hüseyin Bey

ellerinize sağlık.
herşey gönlünüzce olsun.

 

[Necdet]

Merhaba,

Bir kod da benden olsun.

Olaki - ile ayrılmamış veri de olabilir.

Sub Aktar()
 
    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        i   As Long, _
        j   As Long, _
        k   As Integer, _
        Kol As Integer, _
        d
 
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
 
    j = s2.Cells(Rows.Count, "a").End(3).Row + 2
    Kol = 1
 
    For i = 1 To s1.Cells(Rows.Count, "A").End(3).Row
        d = Split(s1.Cells(i, "A"), "-")
        s2.Cells(j, Kol) = Trim(d(0))
        If UBound(d) = 1 Then s2.Cells(j + 1, Kol) = Trim(d(1))
        Kol = Kol + 4
 
    Next i
 
End Sub

 

[ahzola]

Teşekkür ederim Sayın Necdet Bey

iyiki varsınız.
Elleriniz dert görmesin sizinde.


Açtığım diğer bir konuyu 1 aydır sonuçlandıramaz iken
bir başlığa yedeği ile cevap gelmesi tebessüm ettirdi beni
Hayatta böyle bişey zaten değilmi