DoğanD
Altın Üye
- Katılım
- 22 Eylül 2023
- Mesajlar
- 507
- Excel Vers. ve Dili
- Office 365 TR
- Altın Üyelik Bitiş Tarihi
- 05-10-2028
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
Konu biraz karıştı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