Mükerrer olan hariç işlem yapma

[Bakigemlik]

Merhaba,

Ekte dosyada gerekli açıklamaları yapmaya çalıştım, konu hakkında desteğini rica ederim,

Teşekkürler,

 

[Korhan Ayhan]

Deneyiniz.

=EĞERHATA(EĞER(VE(DÜŞEYARA(A2;Sayfa2!A:F;6;0)=22;EĞERSAY(Sayfa2!E:E;"*"&A2&"*")>0);22000-ETOPLA(Sayfa2!E:E;"*"&A2&"*";Sayfa2!B:B);"");"")

 

[Bakigemlik]

Deneyiniz.

=EĞERHATA(EĞER(VE(DÜŞEYARA(A2;Sayfa2!A:F;6;0)=22;EĞERSAY(Sayfa2!E:E;"*"&A2&"*")>0);22000-ETOPLA(Sayfa2!E:E;"*"&A2&"*";Sayfa2!B:B);"");"")

Sayun Korhan Bey emeğinize çok teşekkürler,

 

[Bakigemlik]

Sayun Korhan Bey emeğinize çok teşekkürler,

Yeni konu açmamak için buradan bir soru daha sormak istiyorum ilgilenirseniz sevinirim,

Aşağıdaki şekilde metinlerim var, bu metinlerde harf içeren metinler 11 haneyi geçtiğinde hatalı yazmasını istiyorum,

Veriler hücrede aşağıdaki gibi oluyor her bir metin içereni ayrı değerlendirmeli,

Umarım mümkündür, şimdiden teşekkürler saygılarımla,

898330-37F22461640-37F22461673-37F22461665-37F22461657
544355-17F18242527-17F18242519
544357-27F03416028

 

[Erdem Akdemir]

Baki bey,

898330-37F22461640-37F22461673-37F22461665-37F22461657 tekbir hücrede mi?

 

[Bakigemlik]

Baki bey,

898330-37F22461640-37F22461673-37F22461665-37F22461657 tekbir hücrede mi?

Evet sayın kuvari aşağıdaki metinlerin her biri bir hücrede,

Hücre F1 898330-37F22461640-37F22461673-37F22461665-37F22461657
Hücre F2 544355-17F18242527-17F18242519
Hücre F3 544357-27F03416028

 

[Korhan Ayhan]

Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz.

Excel hücresine =KONTROL(F1) yazıp kullanabilirsiniz. Formül olan hücrede metni kaydır dediğinizde düzgün görüntü elde edebilirsiniz.

Function KONTROL(Veri As Range) As String
    Dim X As Integer
    Application.Volatile True
    Data = Split(Veri.Text, "-")
    For X = 0 To UBound(Data)
        If Not IsNumeric(Data(X)) Then
            If Len(Data(X)) <> 11 Then
                If KONTROL = "" Then
                    KONTROL = "Hatalı Giriş-" & Data(X)
                Else
                    KONTROL = KONTROL & Chr(10) & "Hatalı Giriş-" & Data(X)
                End If
            End If
        End If
    Next
End Function

 

[Bakigemlik]

Sayın Korhan Bey,

Emeğiniz bilginiz ve bunu bizlerle paylaştığınız için sonsuz teşekkürler,

Eğer excel adına bir şeyler öğrenebildiysem bunda en büyük katkı bu site ve sizlersiniz,

Bu mübarek günlerde Allahım tüm dileklerinizi dualarınızı kabul etsin,

tekrar ve tekrar emeğinize sağlık,

 

[Erdem Akdemir]

Merhaba,

Yerleşik fonksiyonlar alternatif, dizi formülüdür.

=EĞERHATA("Hatalı Giriş-"&İNDİS(KIRP(PARÇAAL(YERİNEKOY("-"&$E$2;"-";YİNELE(" ";100));SATIR(DOLAYLI("$D$1:D"&TOPLA(--(PARÇAAL(E2;SATIR(DOLAYLI("1:"&UZUNLUK(E2)));1)="-"))+1))*100;100));KAÇINCI(DOĞRU;UZUNLUK(KIRP(PARÇAAL(YERİNEKOY("-"&$E$2;"-";YİNELE(" ";100));SATIR(DOLAYLI("$D$1:D"&TOPLA(--(PARÇAAL(E2;SATIR(DOLAYLI("1:"&UZUNLUK(E2)));1)="-"))+1))*100;100)))>11;0));"")