Yardım satır sütün dönüşümü

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
43
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
Arkadaşlar ekteki dosyamda sarı ile işaretli alanları yeşildeki gibi hale getirmek istiyorum. Bunu excelde ne şekilde en hızlı şekilde yapabilirim?

Teşekkürler.
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,078
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Bu kodları kullanabilirsiniz.
VBA:
Sub Osma()
    Set dic = CreateObject("Scripting.Dictionary")
    veriler = Range("a1:D" & Cells(Rows.Count, 1).End(3).Row).Value
    With dic
        For i = 1 To UBound(veriler)
            anahtar = veriler(i, 1)
            veri = veriler(i, 4)
            If Not .exists(anahtar) Then
                .Add anahtar, anahtar & "|" & veri & "|"
            Else
                .Item(anahtar) = .Item(anahtar) & veri & "|"
            End If
        Next i
        liste = .items
    End With
    Range("$f$1:" & Cells(Rows.Count, Columns.Count).Address).ClearContents
    Set Rng = Range("f1")
    For Each lst In liste
        ver = Split(Left(lst, Len(lst) - 1), "|")
        Rng.Resize(, UBound(ver) + 1).Value = ver
        Set Rng = Rng.Offset(1)
    Next
    Columns.AutoFit
    Set dic = Nothing: Set Rng = Nothing
End Sub
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
43
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
İsim ve Soyisim leri neden almadı hocam.
 

Ekli dosyalar

Moderatör tarafında düzenlendi:
Üst Alt