KTF – UDF – Mukerrer Olmayan Degerleri Birlestirme


Ornek resimde gordugunuz gibi iki ayri gosterim var her ikisinde de mukerrer degerlerin tekrarlanmasi engellenerek bir birlestirme yapilmis.

 

Function OzelBirlestir(rng As Range) As String
Dim oCol As New Collection
Dim hcr As Range
Dim i As Long
Dim sStr As String
On Error Resume Next
For Each hcr In rng.Cells
oCol.Add CStr(hcr), CStr(hcr)
Next
On Error GoTo 0
For i = 1 To oCol.Count
sStr = sStr & “,” & oCol.Item(i)
Next i
OzelBirlestir = Right(sStr, Len(sStr) – 1)
End Function

 

Excelde yerlesik fonksiyon olarak Concantanate fonksiyonu kullanilir fakat fonksiyon hem aralik secmenizi hemde yaptiginiz birlestirme islemi icerisinde verilerinizi isaretleme yapmak icin noktalama isaretlerini her seferde tekrarlamaniza neden olur..  Bu fonksiyonu detayli incelemek icin konusuna goz atiniz..

CONCATENATE() BİRLEŞTİR () EXCEL FONKSIYONU

Bu konuda daha onceden de paylastigimiz baska bir KTF vardi fakat onda mukerrerleri ayirabilmek gibi bir ayrimimiz yoktu.. Onuda incelemenizi tavsiye ederim..

KTF – UDF – Farkli Hucrelerdeki Verileri Birlestirme

ekli dosyayi inceleyiniz..

Concatenete-Unique-Items-In-range

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


1 + 3 =