Soru Sınav Oturumlarını Birleştirme

Katılım
14 Kasım 2016
Mesajlar
170
Excel Vers. ve Dili
2016
İyi bayramlar arkadaşlar. Ekteki excel dosyası ile ilgili takıldığım bir yer var.
Şimdi Oturum-1 dediğimiz 1-5 arası sorulardan, Oturum-2 dediğimiz 6-10 arası sorulardan oluşmakta.
Bazıları Sadece Oturum-1 e, bazıları sadece Oturum-2 ye, bazıları da hem Oturum-1 e hemde Oturum-2 ye girmiş durumda.
Oturum-1 ve Oturum-2 nin ikisine de girenlerin ismi iki kere yazılı.

Şimdi İsmi iki kere yazılı olanların sorulara verdiği cevapları tek isim yanında birleştirip B sütununda SINAV yazılı hücrenin yanında olacak şekilde çift kayıtları tek yaparak, sadece oturum-1 ve sadece oturum-2 ye girenlerinde Oturum adını da yine B sütununda SINAV olarak değiştirerek hazırlamak istiyorum.
Yardımcı olabilir misiniz?

https://dosya.co/s8k6kg1poh8r/SINAV.xlsm.html
 

Ekli dosyalar

muratboz06

Destek Ekibi
Destek Ekibi
Katılım
23 Mart 2017
Mesajlar
552
Excel Vers. ve Dili
Office365 TR
Aşağıdaki kodu çalışma sayfasının kod bölümüne kopyalayarak çalıştırınız. İkinci paragrafta ne demek istediğinizi anlamadım. Fakat,
sadece Oturum1 e katılanlar Oturum1 olarak kaldı,
sadece Oturum2 ye katılanlar Oturum2 olarak kaldı,
hem Oturum1 hem Oturum2 ye katılanları Oturum1-Oturum2 olarak B sütununa yazdırdım.
B sütununda olmasını istediğiniz durumu örnek üzerinden belirtirseniz kodda revize yapabiliriz.
Kod:
Sub Birleştir()
    Dim i As Long, j as Long, sonSatir As Long
    sonSatir = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

    For i = 2 To sonSatir

        If Cells(i, 1) = Cells(i + 1, 1) Then
            For j = 8 To 12
                Cells(i, j).Value = Cells(i + 1, j).Value
            Next j
            Cells(i, 2) = Cells(i, 2).Value & "-" & Cells(i + 1, 2).Value
            Cells(i + 1, 1) = ""
        End If

    Next i

    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    Range("A2").Select
    MsgBox "İşlem tamamlandı."

End Sub
 
Katılım
14 Kasım 2016
Mesajlar
170
Excel Vers. ve Dili
2016
Aşağıdaki kodu çalışma sayfasının kod bölümüne kopyalayarak çalıştırınız. İkinci paragrafta ne demek istediğinizi anlamadım. Fakat,
sadece Oturum1 e katılanlar Oturum1 olarak kaldı,
sadece Oturum2 ye katılanlar Oturum2 olarak kaldı,
hem Oturum1 hem Oturum2 ye katılanları Oturum1-Oturum2 olarak B sütununa yazdırdım.
B sütununda olmasını istediğiniz durumu örnek üzerinden belirtirseniz kodda revize yapabiliriz.
Kod:
Sub Birleştir()
    Dim i As Long, j as Long, sonSatir As Long
    sonSatir = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

    For i = 2 To sonSatir

        If Cells(i, 1) = Cells(i + 1, 1) Then
            For j = 8 To 12
                Cells(i, j).Value = Cells(i + 1, j).Value
            Next j
            Cells(i, 2) = Cells(i, 2).Value & "-" & Cells(i + 1, 2).Value
            Cells(i + 1, 1) = ""
        End If

    Next i

    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    Range("A2").Select
    MsgBox "İşlem tamamlandı."

End Sub
Çok çok teşekkür ederim. İstediğim gibi oldu
 
Üst