DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
bir hücre içerisine alt+enter ile yazılmış satırları formül ile farklı hücrelere almak mümkün müdür?
=eğer(ehatalıysa(eğer(bul(damga(10);a1;1)>0;a1;""));"";eğer(bul(damga(10);a1;1)>0;a1;""))
=KIRP(PARÇAAL(YERİNEKOY("-"&YERİNEKOY($A1;DAMGA(10);"-");"-";YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))
Function altenter(metin, ayrac, j) As String
Dim i As Variant
i = Split(metin, ayrac)
If j > 0 And j - 1 <= UBound(i) Then
altenter = i(j - 1)
Else
altenter = ""
End If
End Function