KTF – UDF – Mukerrer Olmayanlari Suz – Case Sensitive

Resimde goruldugu gibi Kullanici Tanimli Fonksiyonumuz (KTF/UDF) buyuk kucuk harf duyarlilikli olarak mukerrer verileri ayirmak icin kullaniliyor.

Ornek dosyayi inceleyiniz, Kodlari Paylasiyorum..

Option Explicit
Function Mukerrer_Olmayan(rng As Range)
Dim cell As Range, temp() As String, i As Single, iRows As Integer
ReDim temp(0)
For Each cell In rng
For i = LBound(temp) To UBound(temp)
If temp(i) = cell Then
i = i + 1
Exit For
End If
Next i
i = i – 1
If temp(i) <> cell Then
temp(UBound(temp)) = cell
ReDim Preserve temp(UBound(temp) + 1)
End If
Next cell
iRows = Range(Application.Caller.Address).Rows.Count
If iRows < UBound(temp) Then
temp(iRows – 1) = “Daha Fazla Deger..”
Else
For i = UBound(temp) To iRows
ReDim Preserve temp(UBound(temp) + 1)
temp(UBound(temp)) = “”
Next i
End If
Mukerrer_Olmayan = Application.Transpose(temp)
End Function

Mukerrer Deger KTF

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


6 + 1 =