Birden çok tarihi tek hücrede birleştirme hk.

[nongeyikm]

Merhaba arkadaşlar,

Birden çok tarihi (yaklaşık 200 hücredeki tarihler F3:F200) tek hücrede birleştirmek istiyorum. Aşağıdaki formülü uyguluyorum fakat çok uzun formül oluyor. başka bir yolu varmıdır?

=EĞER(F3="";"";METNEÇEVİR(F3;"GG/AA/YY")&", "&EĞER(F4="";"";METNEÇEVİR(F4;"GG/AA/YY")&", "&EĞER(F5="";"";METNEÇEVİR(F5;"GG/AA/YY")&", "&EĞER(F6="";"";METNEÇEVİR(F6;"GG/AA/YY")&", "))))

Saygılar,

 

[Erdem Akdemir]

Merhaba,

Bu işlem için KTF kullanmalısınız.

Kullanımı,

=Birles(F3:F200;"-")

Function birles(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

If alan = "" Then
Else
k = k & alan & imlec
End If
Next alan

If imlec = "" Then
birles = k
Else
birles = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

 

[nongeyikm]

çok çok teşekkür ederim.

Hayırlı sabahlar.