Dolu hücreleri bulma

[nzmsmz]

Merhaba,

ekte ilettiğim örnek dosyada çalışma sayfası içerisinde farklı satır ve sütunlarda metinler var. amacım bu metinlerin var olduğu hücreyi ya da bu metinlerin var olduğu hücre metinlerini çalışma sayfasının en sağ tarafındaki yerde toplamak.

Çok araştırdım ancak birleştir formulü hem uzun hemde boşluklar yüzünden işimi görmüyor.

https://drive.google.com/open?id=1-T65m4YNCsN2pXtLS_2pC9kB2mpVm7j-

 

[Orion1]

R sütununuda içine alacak şekilde devam ettiriniz
=EĞER(E2<>"";E2;"")&EĞER(F2<>"";F2;"")

 

[nzmsmz]

Teşekkür ederim ancak yanyana yaklaşık 154 tane değişken gireceğim için uzun formul nedeniyle kabul etmiyor. Aslında dolu olan hücreyi tespit eden onu sağ tarafta belirten bir kod bulabilsem o da işime yarayacak.

 

[Orion1]

KTF yaptım.Linkteki dosyayı inceleyiniz.
formül şöyle kullanılacak;

=doluhucre(E2:R2)

DOSYAYI INDIR

Function doluhucre(ByVal alan As Range) As String
Dim hcr As Range, deg As String
For Each hcr In alan
    If hcr.Value <> "" Then deg = deg & "-" & hcr.Value
Next
If deg <> "" Then doluhucre = Right(deg, Len(deg) - 1)
End Function

 

[nzmsmz]

Harika oldu çok teşekkür ederim tam olarak istediğim buydu, son olarak metin 1 ile metin 2 arasındaki - yerine metin 2 yi aynı hücre içerisinde bir alt satıra (alt enter gibi) yapma şansımız var mı ? metinlerin birbirine karışmaması için

 

[YUSUF44]

Sayın Orion1 hoşgörüsüne sığınarak :

If hcr.Value <> "" Then deg = deg & "-" & hcr.Value

satırını

If hcr.Value <> "" Then deg = deg & Chr(10) & hcr.Value

olarak değiştirirseniz veriler alt alta gelir ancak hücrede düzgün görünmesi için hücrenin Metni kaydır özelliği açık olmalıdır.

 

[Orion1]

Harika oldu çok teşekkür ederim tam olarak istediğim buydu, son olarak metin 1 ile metin 2 arasındaki - yerine metin 2 yi aynı hücre içerisinde bir alt satıra (alt enter gibi) yapma şansımız var mı ? metinlerin birbirine karışmaması için

Yazdığım fonksiyonu aşağıdaki ile değiştriiniz.

Function doluhucre(ByVal alan As Range) As String
Dim hcr As Range, deg As String
For Each hcr In alan
    If hcr.Value <> "" Then deg = deg & Chr(10) & hcr.Value
Next
If deg <> "" Then doluhucre = Right(deg, Len(deg) - Len(Chr(10)))
End Function

 

[Merhum İdris SERDAR]

.
Alternatif KTF kodu:

Function coklubirlestir(aln As Range, ayr As String) As String

Dim hcr As Range
Dim sonuc As String
For Each hcr In aln
    sonuc = sonuc & hcr.Value & ayr
Next hcr
coklubirlestir = WorksheetFunction.Trim(Left(sonuc, Len(sonuc) - 1))

End Function

Dosya ekte.

https://dosya.co/gqtq4z5hp23t/ÖRNEK_(67).xlsm.html

.

 

[nzmsmz]

herkese çok teşekkür ederim çok sağolun