- Katılım
- 13 Haziran 2014
- Mesajlar
- 6
- Excel Vers. ve Dili
- 2010 türkçe-ingilizce
2013 ingilizce
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=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;""))))
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
=birles(a1:a10;";")
=YERİNEKOY(BİRLEŞTİR(C2;"+";D2;"/";E2;"+";F2;"/";G2;"+";H2;"/";I2;"+";J2);"/+";"")
Merhaba
Sanki daha kestirme formül gibi duruyor.
Kod:=YERİNEKOY(BİRLEŞTİR(C2;"+";D2;"/";E2;"+";F2;"/";G2;"+";H2;"/";I2;"+";J2);"/+";"")