• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

birleştir formülünde boş hücrelerin değeri de değişiyor

Katılım
13 Haziran 2014
Mesajlar
6
Excel Vers. ve Dili
2010 türkçe-ingilizce
2013 ingilizce
Merhaba,
ekteki dosyada birleştir formülü uyguladığımda boş hücrelere de (+ ve /) koyuyor bunu nasıl giderebilirim yardımcı olur musunuz ?

teşekkürler.
 

Ekli dosyalar

. . .

Sütunların doldurulma durumu her zaman ikişerlimi.
Yani C2 ve D2 veya
F2 ve E2 aynı anda dolu veya boş mu oluyor.

Kod:
=EĞER(VE(C2<>"";D2<>"";E2<>"";F2<>"";G2<>"";H2<>"";I2<>"";J2<>"");C2&"+"&D2&"/"&E2&"+"&F2&"/"&G2&"+"&H2&"/"&I2&"+"&J2;EĞER(VE(C2<>"";D2<>"";E2<>"";F2<>"";G2<>"";H2<>"");C2&"+"&D2&"/"&E2&"+"&F2&"/"&G2&"+"&H2;EĞER(VE(C2<>"";D2<>"";E2<>"";F2<>"");C2&"+"&D2&"/"&E2&"+"&F2;EĞER(VE(C2<>"";D2<>"");C2&"+"&D2;""))))

. . .
 
Ktf ile çözümü,

Kod:
Function birles(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

If alan = "" Then
Else
k = k & alan & imlec
End If
Next alan

If imlec = "" Then
birles = k
Else
birles = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

Kullanımı, imleçi istediğiniz gibi belirleyebilirsiniz.
Kod:
=birles(a1:a10;";")
 
Son düzenleme:
Merhaba

Sanki daha kestirme formül gibi duruyor.
Kod:
=YERİNEKOY(BİRLEŞTİR(C2;"+";D2;"/";E2;"+";F2;"/";G2;"+";H2;"/";I2;"+";J2);"/+";"")
 
merhaba,
öncelikle yardımlarınız için çok teşekkür ederim.
aşağıdaki formülü uyguladığımda tek bir sorunum kalıyor mf siz yazan hücreye yine + koyuyor. ne yapabilirim?


=YERİNEKOY(BİRLEŞTİR(C2;"+";D2;"/";E2;"+";F2;"/";G2;"+";H2;"/";I2;"+";J2);"/+";"")
 

Ekli dosyalar

Şöyle deneyin:

Kod:
=EĞER(BAĞ_DEĞ_DOLU_SAY(D2:J2)=0;YERİNEKOY(C2;" ";"");YERİNEKOY(BİRLEŞTİR(C2;"+";D2;"/";E2;"+";F2;"/";G2;"+";H2;"/";I2;"+";J2);"/+";""))
 
ellerinize sağlık şimdi oldu:)
 
Geri
Üst