Yan yana yazılmış verileri alt alta yazdırma

[Ercan ÖZYURT]

Merhabalar, Ekli dosyanın sayfa 1de yer alan verileri sayfa 2deki gibi yaptırmak istiyorum. Yaklaşık 1000 civarında kişi ve bazılarının 1 bazılarının 3, bazılarının da 5 numarası mevcut. Sayfa 1e kaç tane kişi eklersem o kadar kişinin numara ve isimlerini sayfa 2deki gibi olmasını istiyorum. Teşekkür ederim

 

[Necdet]

Merhaba,
Deneyiniz.

Sub duzenle()

Dim arr As Variant
Dim i   As Long
Dim j   As Long
Dim k   As Integer

arr = Sayfa1.Range("a1").CurrentRegion.Value

Sayfa2.Range("A:B").ClearContents
j = 0
For i = LBound(arr, 1) To UBound(arr, 1)
    j = j + 1
    Sayfa2.Cells(j, 1) = arr(i, 1)
    Sayfa2.Cells(j, 2) = arr(i, 2)
    For k = 3 To UBound(arr, 2)
        If Not arr(i, k) = "" Then
            j = j + 1
            Sayfa2.Cells(j, 1) = arr(i, 1)
            Sayfa2.Cells(j, 2) = arr(i, k)
        End If
    Next k
Next i

End Sub

 

[Gata]

Merhaba,
Deneyiniz.

Sub duzenle()

Dim arr As Variant
Dim i   As Long
Dim j   As Long
Dim k   As Integer

arr = Sayfa1.Range("a1").CurrentRegion.Value

Sayfa2.Range("A:B").ClearContents
j = 0
For i = LBound(arr, 1) To UBound(arr, 1)
    j = j + 1
    Sayfa2.Cells(j, 1) = arr(i, 1)
    Sayfa2.Cells(j, 2) = arr(i, 2)
    For k = 3 To UBound(arr, 2)
        If Not arr(i, k) = "" Then
            j = j + 1
            Sayfa2.Cells(j, 1) = arr(i, 1)
            Sayfa2.Cells(j, 2) = arr(i, k)
        End If
    Next k
Next i

End Sub

Formülle Eski versiyonlara göre nasıl olur iyi akşamlar

 

[Ercan ÖZYURT]

Çok teşekkür ederim çalıştı

 

[Korhan Ayhan]

Formülle Eski versiyonlara göre nasıl olur iyi akşamlar

Ekteki gibi olabilir..

 

[Gata]

Ekteki gibi olabilir..

Teşekkür ederim hocam emeğinize sağlık iyi geceler

Ekteki gibi olabilir..

 

[Ercan ÖZYURT]

Merhabalar, Aynı dosya için bir konuda daha yardıma ihtiyacım var. Makro ile kullandığım "telefon-1" isimli dosya ancak "telefon-2" isimli dosyada göstermek istediğim gibi bir sütunda ilgili kişilerin karşılarında rakamlar var. Makronun düzenlenerek sayfa ikideki gibi listelenmesini istiyorum. Mümkün müdür acaba. Tekrar Teşekkürler