DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(B2="";$B$1&", ";"")&EĞER(C2="";$C$1&", ";"")&EĞER(D2="";$D$1&", ";"")&EĞER(E2="";$E$1&", ";"")&EĞER(F2="";$F$1;"")

Function bos(hucler As Range)
For i = 1 To hucler.Count
If Len(hucler(i)) = 0 Then
a = a & hucler(i).Address & " "
End If
Next
bos = Replace(a, "$", "")
End Function
Çok Teşekkür ederim sayın Doğan Bu işimi görecek. Elinize sağlıkMerhaba,
Eğer kontrol etmek istediğiniz sütun sayısı az ise iç içe Eğer formülü ile basit bir şekilde çözebilirsiniz. Ayraçları değiştirmek için dilerseniz formüldeki ", " kısmını değiştirebilirsiniz.
Kod:=EĞER(B2="";$B$1&", ";"")&EĞER(C2="";$C$1&", ";"")&EĞER(D2="";$D$1&", ";"")&EĞER(E2="";$E$1&", ";"")&EĞER(F2="";$F$1;"")
Şöyle görünecektir;
Ekli dosyayı görüntüle 247103
Sayın ali cimri bunu maalesef yapamadım. Sanırım KTF kullanmayı bilmiyorum.Aşağıdaki KTF yi 6. hücreye uygulayın. Fonksiyondaki hucler A1:A5 olmalı
Kod:Function bos(hucler As Range) For i = 1 To hucler.Count If Len(hucler(i)) = 0 Then a = a & hucler(i).Address & " " End If Next bos = Replace(a, "$", "") End Function
denedim. ancak başlık satırı değil boş hücrelerin adresini veriyor a2 c2 gibiKTF kodlarını bir modüle yapıştırın.
Kontrol etmek istediğiniz veriler B1:F1 arasında ise
G1 hücresine = bos(B1:F1) yazın.