Transpose yapan macro hk..

[search77]

Merhaba Saygı Değer Arkadaşlar,

Ekli örnek dosyamda macro ile transpose yapmak istiyorum. Gerekli açıklama ve format dosyamda mevcut.

Yardımcı olacak arkadaşlara şimdiden teşekkür eder saygı ve sevgilerimi iletiyorum.

 

[Orion1]

Dosyanız ektedir.

Sub cevir59()
Dim sonsat As Long, i As Long, sh As Worksheet, sonsut As Integer
Dim sat As Long, j As Integer
Set sh = Worksheets("Transpose Yap")
Sheets("Sheet1").Select
sh.Range("A:B").Clear
sat = 1
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To sonsat
    sonsut = Cells(i, "XFC").End(xlToLeft).Column
    sh.Cells(sat, "A").Value = Cells(i, "A").Value
    sh.Cells(sat, "B").Value = Cells(i, "B").Value
    sat = sat + 1
    For j = 3 To sonsut
        sh.Cells(sat, "B").Value = Cells(i, j).Value
        sat = sat + 1
    Next j
Next i
Application.ScreenUpdating = True
sh.Select
Set sh = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[search77]

Sayın Orion1,

Elinize kolunuza emeğinize sağlık, çok teşekkürler

syg.

 

[Orion1]

Sayın Orion1,

Elinize kolunuza emeğinize sağlık, çok teşekkürler

syg.

Rica ederim.
İyi çalışmalar.

 

[pehborn]

Merhaba

Yukarıda yazmış olduğunuz kod ile transpose işlemini yaptım, paylaşım için teşekkür ederim.

Benim dosyamda Musteri_no - ev_tel - is_tel - cep_tel - Sehir başlıkları var.
Bunları kod ile transpose yaptığımda aşağıdaki şekilde sıralıyor. Ben transpose işleminden sonra A kollonunda bol olan hücrelere ilgili müşteriye ait Musteri_no bilgisini yazabilir misiniz? İş yeri bilgisayarında dosya indiremediğim için kodları yazarsanız memnun olurum.






A B
102 0212,,,,,
_____0212,,,,
_____ 05,,,,,,,
_____ İstanbul
103 0216,,,,,
_____ 0212,,,,
_____ 05,,,,,,,
_____ İstanbul

Teşekkür ederim.