Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 23 Nisan 2010, 19:01:38
-
Üstadım;
C6 : C100 sütununda
A İlköğretim okulu
A İlköğretim okulu
A İlköğretim okulu
A İlköğretim okulu
B İlköğretim okulu
B İlköğretim okulu
B İlköğretim okulu
C İlköğretim okulu
C İlköğretim okulu
C İlköğretim okulu
Gibi okul adları yazılı C101 hücresine "10 okul yazılmasına rağmen (3 okul yazılı)" 3 yazmasını sağlayabilir miyiz?
Eğer Veri Doğrulama ile gerçekleşebilirse daha mükemmel olur benim için
-
Bir ktf yaptım.
Aşağıdaki kodu standart modüle yapıştırınız.
formülün kullanılışı;
=benzersiz(C6:C100)
Function benzersiz(alan As Range) As Long
Dim say As Long, hcr As Range, z As Object
Set z = CreateObject("Scripting.Dictionary")
For Each hcr In alan
If Not z.exists(hcr.Value) Then
If hcr.Value <> "" Then
say = say + 1
z.Add hcr.Value, Nothing
End If
End If
Next
benzersiz = say
End Function
-
Evren Abi ;
#AD? hatası verdi yanlış yaptım herhalde
-
Evren Modüle Yapıştırmamışım hata bende
Üstadım Allah ne muradın varsa versin Teşekkür Ederim
"ÇÖZÜLDÜ"
-
Evren Modüle Yapıştırmamışım hata bende
Üstadım Allah ne muradın varsa versin Teşekkür Ederim
"ÇÖZÜLDÜ"
Rica ederim.
İyi çalışmalar.8)
-
Üstadım;
Evren Modüle Yapıştırmamışım hata bende
Üstadım Allah ne muradın varsa versin Teşekkür Ederim
"ÇÖZÜLDÜ"
Evren Abi yazacağım yerde sadece "EVREN" yazmışım Adaba uymamış özür dilerim abi. Vallaha bilerek yapmadım.
-
Üstadım;
Evren Abi yazacağım yerde sadece "EVREN" yazmışım Adaba uymamış özür dilerim abi. Vallaha bilerek yapmadım.
Estafurullah. 8)
-
çok teşekkürler.
tam aradığım işlem.
bravo....
-
çok teşekkürler.
1 aydır uğraşıyordum...
benzersizsiniz....
-
Merhaba,
Makroda benzersiz olanları sayabiliyoruz
Benzersiz olanları listeleyebiliyor muyuz