Alt alta olan bilgileri yan yana yazdırma

[search77]

Arkadaşlar merhaba,

Ekli örnek dosyam için acil yardımlarınızı bekliyorum.

Saygı ve Sevgilerimle.

 

[Necdet]

Merhaba,

VBA ile yapılmış örnek ektedir.

Public Sub YanYanaGetir()
Application.ScreenUpdating = False
Set s1 = Sheets("Sheet1")
s1.Select
SonSatır = [A65536].End(3).Row
Range("A2:B" & SonSatır).Sort key1:=[A2], Key2:=[B2]
Range("F2:O65536").ClearContents
j = 1
For i = 2 To SonSatır
    If Cells(i, "A") <> Ad Then
        Ad = Cells(i, "A")
        Kolon = 6
        j = j + 1
        Adet = Adet + 1
        Cells(j, Kolon) = Cells(i, "A")
    End If
    
    Kolon = Kolon + 1
    Cells(j, Kolon) = Cells(i, "B")
Next i
MsgBox Adet & " Adet Kişi Bilgileri Aktarıldı....."
End Sub

 

[search77]

Necdet bey bu kadar güzel olabilirdi, elinize bilginize sağlık,

Saygılarımla.