[]
çoklu düşey ara formülünde araya tire eklemek
internetten bir makro buldum. çoklu düşey ara ile tek bir hücreye bütün sonuçları yazıyor
abcdef
gibi. fakat benim isteğim
a-b-c-d-e-f
formül aşağıdaki gibi nasıl bir ek yapmam lazım
--------
Function ÇOKLUDÜŞEYARA(aranan As String, alan As Range, sutun As Integer) As String
If aranan = "" Or sutun = 0 Then GoTo cik
veri = alan.Value2
For i = 1 To UBound(veri)
If veri(i, 1) Like "*" & aranan & "*" Then
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, 2) & vbLf
End If
Next i
Exit Function
cik: ÇOKLUDÜŞEYARA = ""
End Function
---------
abcdef
gibi. fakat benim isteğim
a-b-c-d-e-f
formül aşağıdaki gibi nasıl bir ek yapmam lazım
--------
Function ÇOKLUDÜŞEYARA(aranan As String, alan As Range, sutun As Integer) As String
If aranan = "" Or sutun = 0 Then GoTo cik
veri = alan.Value2
For i = 1 To UBound(veri)
If veri(i, 1) Like "*" & aranan & "*" Then
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, 2) & vbLf
End If
Next i
Exit Function
cik: ÇOKLUDÜŞEYARA = ""
End Function
---------
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, 2) & vbLf & "-"
Bu şekilde düzelt ilgili satırı.
Bu şekilde düzelt ilgili satırı.
- cakabo
(21.09.18 17:27:18)
1
