DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Workbook_Open()
Application.MacroOptions _
Macro:="K_BİRLEŞTİR", _
Description:="Seçilen alandaki hücreleri belirlenen bir ayıraç ile birleştirir.", _
ArgumentDescriptions:=Array( _
"Birleştirilecek veriler... (Hücre aralığı)", _
"İsteğe bağlı: Verileri birleştirirken belirleyeceğiniz ayıraç... (Varsayılan olarak tire sembolüdür)")
End Sub
Option Explicit
Function K_BİRLEŞTİR(Alan As Range, Optional Ayıraç As String = "-")
Dim Dizi As Object, Veri As Range, Say As Long
Application.Volatile True
Set Dizi = VBA.CreateObject("Scripting.Dictionary")
For Each Veri In Alan
If Veri.Value <> "" And Veri.RowHeight <> 0 Then
If Not Dizi.Exists(Veri.Value) Then
Say = Say + 1
Dizi.Add Veri.Value, Say
End If
End If
Next
K_BİRLEŞTİR = Join(Dizi.Keys, Ayıraç)
Set Dizi = Nothing
End Function
Maalesef, bir Excel kullanıcısı olarak formüllerin içinde yer alan varsayılan (entegre) açıklamalara (sizin "1 - 1 (Pazar) ile 7 (Cumartesi) arasındaki sayılar" örneğinizdeki gibi) ekleme yapma veya bunları düzenleme imkanınız yoktur.Makro hariç
2 nolu mesajıma bakarmısınız
=HAFTANINGÜNÜ(A1; yazıp beklerseniz istediğiniz tablo görünür olmaktadır