Formulü Sonsuza Dek Devam Ettirme

[lavetera]

Aşağıdaki fonksiyonları kullanabilirsiniz.

Function KBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") = 0 Then
                If KBİRLEŞTİR = "" Then
                    KBİRLEŞTİR = "'" & Veri.Value & "'"
                Else
                    KBİRLEŞTİR = KBİRLEŞTİR & Kriter & "'" & Veri.Value & "'"
                End If
            End If
        End If
    Next
End Function

Function EBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") > 0 Then
                If EBİRLEŞTİR = "" Then
                    EBİRLEŞTİR = Veri.Value
                Else
                    EBİRLEŞTİR = EBİRLEŞTİR & Kriter & Veri.Value
                End If
            End If
        End If
    Next
End Function

Hocam kendim çıkarmaya çalıştım ama olmadı. Şimdi bu formülde sadece " lılar ayrılırken ben şimdi hem tek tırnak hem çift tırnaklıları ayırmak istiyorum. Koda eklemeye çalıştımama beceremedim. Yardımcı olursaniz çok makbule geçer.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Function EBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") > 0 Or InStr(1, Veri.Value, "'") > 0 Then
                If EBİRLEŞTİR = "" Then
                    EBİRLEŞTİR = Veri.Value
                Else
                    EBİRLEŞTİR = EBİRLEŞTİR & Kriter & Veri.Value
                End If
            End If
        End If
    Next
End Function

 

[lavetera]

Aşağıdaki gibi deneyiniz.

Function EBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") > 0 Or InStr(1, Veri.Value, "'") > 0 Then
                If EBİRLEŞTİR = "" Then
                    EBİRLEŞTİR = Veri.Value
                Else
                    EBİRLEŞTİR = EBİRLEŞTİR & Kriter & Veri.Value
                End If
            End If
        End If
    Next
End Function

Hocam bu oldu yalnız diğer kodu değiştirmemizsiniz. ben 0 Or InStr(1, Veri.Value, "'") şunu ekledim ancak olmadı. Siz yapabilir misiniz. KBİRLEŞTİRME olan.

 

[Korhan Ayhan]

Function KBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") = 0 And InStr(1, Veri.Value, "'") = 0 Then
                If KBİRLEŞTİR = "" Then
                    KBİRLEŞTİR = "'" & Veri.Value & "'"
                Else
                    KBİRLEŞTİR = KBİRLEŞTİR & Kriter & "'" & Veri.Value & "'"
                End If
            End If
        End If
    Next
End Function

 

[lavetera]

Function KBİRLEŞTİR(Alan As Range, Optional Kriter = ",") As String
    Dim Veri As Range
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, """") = 0 And InStr(1, Veri.Value, "'") = 0 Then
                If KBİRLEŞTİR = "" Then
                    KBİRLEŞTİR = "'" & Veri.Value & "'"
                Else
                    KBİRLEŞTİR = KBİRLEŞTİR & Kriter & "'" & Veri.Value & "'"
                End If
            End If
        End If
    Next
End Function

Çok sağolasın hocam. Çok işime yaradi. Bu arada da biraz bişiler kaptim kodlamadan. Teşekkürler tekrardan.

 

[baydeniro]

Tevfik Kursun, Korhan Ayhan, Asri, Erdem34 üstadlar çok teşekkürler. sağlıcakla kalın