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

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
32
En İyi Yanıtlar
0
Beğeniler
2
Puanları
8
Yaş
37
Konum
Ankara
Ad Soyad
Ufuk İNCE
#1
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,022
En İyi Yanıtlar
74
Beğeniler
810
Puanları
113
Konum
İstanbul
#2
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
32
En İyi Yanıtlar
0
Beğeniler
2
Puanları
8
Yaş
37
Konum
Ankara
Ad Soyad
Ufuk İNCE
#3
İsim ve Soyisim leri neden almadı hocam.
 

Ekli dosyalar

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