devrik dönüşüm yetersiz kaldı. yardım lütfen

[ARIN65]

Alt alta yazılmış okul listeleri ve bu okullara ait şube sayıları var.
1.- a okulunun anasınıfı 1.2.3.4. Sınıfları o okulun karşısına satır olarak gelecek.
2.- isimler karşısına geldikten sonra mükerrer isimlerden sadece karşısında veri olanı kalacak . Diğerleri silinecek.

özetle sorunum bu. şimdiden yardımlarınız için teşekkür ederim. Allah razı olsun.

 

[Ömer]

Merhaba,

Özet tablo seçeneğini deneyerek yapabilirsiniz.

 

[Murat OSMA]

Ömer Bey müsadenizle, kodları yazmıştım paylaşmak isterim.

Sub Eşleştir()
    Dim Rky As Integer, a As Integer
    For Rky = 2 To Range("A65536").End(3).Row
        For a = 5 To 13
            If Replace(UCase(Cells(Rky, 3)), "ı", "I") = Cells(1, a) Then
                Cells(Rky, a) = Cells(Rky, 4)
            End If
        Next a
    Next Rky
    Rky = Empty: a = Empty
End Sub

 

[ARIN65]

beceremedim sanırım ekte liste örneği var . bi el atsanız bizzahmet

 

[Murat OSMA]

Neyi beceremediniz ?

 

[ARIN65]

çizelge ektedir. Mümkünse bir oynama yapsanız üzerinde

 

[Murat OSMA]

Dosyaya bir bakın lütfen.

 

[ARIN65]

Çok tşk ederim ..

 

[Murat OSMA]

Rica ederim Şerif Bey, saygılar.