- Katılım
- 12 Mayıs 2013
- Mesajlar
- 29
- Excel Vers. ve Dili
- 365
- Altın Üyelik Bitiş Tarihi
- 24-06-2024
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Function K_BİRLEŞTİR(Birleştirilecek_Alan As Range, Koşul_Alanı As Range, Koşul As Variant, _
Optional Boş_Hücreleri_Atla As Boolean = True, Optional Ayraç As String = "-") As String
Dim Veri As Range, Say As Long
Application.Volatile True
For Each Veri In Koşul_Alanı
Say = Say + 1
If Veri.Value = Koşul Then
If Boş_Hücreleri_Atla = True Then
If Birleştirilecek_Alan.Cells(Say).Value <> "" Then
If K_BİRLEŞTİR = "" Then
K_BİRLEŞTİR = Birleştirilecek_Alan.Cells(Say).Value
Else
K_BİRLEŞTİR = K_BİRLEŞTİR & Ayraç & Birleştirilecek_Alan.Cells(Say).Value
End If
End If
Else
If K_BİRLEŞTİR = "" Then
K_BİRLEŞTİR = Birleştirilecek_Alan.Cells(Say).Value
Else
K_BİRLEŞTİR = K_BİRLEŞTİR & Ayraç & Birleştirilecek_Alan.Cells(Say).Value
End If
End If
End If
Next
End Function
=K_BİRLEŞTİR($B$1:$I$1;B2:I2;"G";DOĞRU)&" KASIM TARİHLERİNDE GÖREV YAPMIŞTIR."