[plus16]

Arkadaşlar merhaba,
futbolda bir istatistik için bir excel dosyası yaptım. Bu dosyada bazı liglerin isimleri farklı ülkeler için aynı. Mesela Bundesliga ismi hem Almanya hem de Avusturya ligini tanımlamak için kullanılıyor. Bu durumdaki ortak kullanılan isimleri ve ilgili ülkeleri farklı bir kolona, tek kullanılan lig isimlerini ve ülkeleri ayrı kolonlara kopyalamak istiyorum. Ekteki dosyayı incelediğnizde ne kastettiğim anlaşılacaktır. Kontrol edebilir misiniz lütfen? Teşekkürler.

[ahmetilhan282]

Kod: Tümünü seç

Sub StripedRightArrow1_Tikla()
    Dim i&, ss&, say&, satir1&, satir2&
    ss = Cells(Rows.Count, 1).End(xlUp).Row
    satir1 = 2
    satir2 = 2
    For i = 2 To ss
        say = Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1))
        If say = 1 Then
            Cells(satir1, "D") = Cells(i, 1)
            Cells(satir1, "E") = Cells(i, 2)
            satir1 = satir1 + 1
        ElseIf say > 1 Then
            Cells(satir2, "F") = Cells(i, 1)
            Cells(satir2, "G") = Cells(i, 2)
            satir2 = satir2 + 1
        End If
    Next i
    MsgBox "Ýþlem Tamamlandý.", vbInformation, "BÝLGÝ"
End Sub

[plus16]

.

Ahmet bey,
geç cevap verdiğim için çok özür dilerim.
Kod kusursuz çalıştı.
Çok teşekkür ederim. Elinize emeğinize sağlık.

[tekirdagli_0059]

Merhaba,
Forumda aramalarım sonucunda soruma en yakın bu başlığı buldum;
https://www.dosyaupload.com/ryKP dosyamı ekledim,
sayfa1'de farklı sütunlarda ekiplerin günlük iş programı,
sayfa2'de ise ekipteki araçların tek sütunda listelenmesi var.
makro ile çözebilir miyiz?
teşekkürler.

[Ozan İLGÜN]

Yeni konu açmalısınız.