Ayni Fatura Numara Olanlari Bulma

[Musa Batur]

Ekdekİ Lİstede B SÜtÜndaki Fatura Numaralari Sayi OlabİldİĞİ Gİbİ Metİn Olarakda Gelebİlİyor Ve Bu 3 Numarasi Tutan Fatura Nasil Kontrol Edebİlİrİm "ayni Fatirayi ÖnÜne Ve Arkasina Sifir Yazilabİlİyor Bunlari Kontrol Edİp Karar Vermek İstİyorum
Şİmdİden TeŞekkÜrlerİmİ İletİrİm
Saygilarimla,

 

[excel03]

Ekteki dosyayı inceleyiniz.Sorularınız olursa yanıtlamaya çalışırım.

 

[Musa Batur]

Son 4 Karateri Ayni Olan Fat.

B SÜtÜnÜnda Bulunan Faturalarin Son 4 Karateri Ayni Olan Faturalar BoŞ Bİr SÜtÜnda 4 Rakam Yazilmasin 1 Olanlara 1 Olarak Yazilsin "bİzde Bİr Olanlar Kontro Edİlmeyecek Bİrden Fazla 4 Numarasi Uyanlar Kontrol Edİlecek Buda BoŞ SÜtÜn Üzerİnde Zaten 4 Numarasi Yazilacak" Sonra SÜz İle Kontrol Edİlecektİr.
TeŞekkÜrler

 

[Musa Batur]

SonuÇ Alamadim
Makro Benİm İstedİĞİmİ Vermedİ
TeŞekkÜrler

 

[Necdet]

Merhaba,

Sorunu pek anlamadım ama B sütununda fatura numarasının son 4 hanesine göre kontrolü yaptım, ekli dosyada inceleyiniz. Son 4 rakama göre doğru ama detayda pek aynı gibi görünmüyor.

 

[Musa Batur]

Sayın Necdet Yesertener

Sorunun büyük bölümü tamam yanız b sütünündakı sayıların 4 karekteri soldan sağda vea ortadan olabiliyor. Yani B sütünü içinde 4 karaktrin veya sayının aynı olanları bulmasını istirorum.
Eğer yardımcı olursanız memnun olurum.
Saygılarımla.

 

[Necdet]

Sayın Musa Batur,

Bana pek mantıklı gibi gelmedi dediğiniz. Son 4 rakama göre aynı olan fatura farklı farklıydı, diyelim ki böyle bir fatura bulundu, doğru mu değil mi bilinmez.

Soldan ortadan sağdan yani her şarta göre 4 karakteri bulmak zor gibi geliyor bana.

 

[Necdet]

Merhaba,

İçim elvermedi oturup teker teker karşılaştırma yapacak makroyu hazırlamaya çalıştım.

İnceler ve kontrol eder misiniz?

Sub Karsilastir()
Application.ScreenUpdating = False
Columns("J:J").ClearContents
Columns("J:J").NumberFormat = "@"
[J1] = "Benzer Fatura"
For i = 3 To [B65536].End(3).Row
    For j = 1 To Len(Cells(i, "B")) - 3
        Deg = Mid(Cells(i, "B"), j, 4)
        For k = 2 To i - 1
            Benzer = 0
            For m = 1 To Len(Cells(k, "B")) - 3
                If Mid(Cells(k, "B"), m, 4) = Deg Then
                   Benzer = 1
                   Exit For
                End If
            Next m
                If Benzer > 0 Then
                   Cells(i, "J") = Cells(k, "B")
                   Exit For
                End If
        Next k
    Next j
Next i
MsgBox "Karşılaştırma Sona Ermiştir....", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[Necdet]

Merhaba,

Her ne kadar soruyu soran arkadaşımız ortalıkta görünmüyorsa da, Necdet görevde

Daha kısa ve sağlıklı yöntem.

Sub Karsilastir()
On Error Resume Next
Application.ScreenUpdating = False
Range("J2:J65000").ClearContents
Columns("J:J").NumberFormat = "@"
[J1] = "Benzer Fatura"
For i = 3 To [B65536].End(3).Row
    For J = 2 To i - 1
        Buldum = 0
        For k = 1 To Len(Cells(i, "B")) - 3
            deg = Mid(Cells(i, "B"), k, 4)
            Buldum = Application.WorksheetFunction.Search(deg, Cells(J, "B"))
        Next k
        If Buldum > 0 Then Cells(i, "J") = Cells(i, "J") & " " & Cells(J, "B")
    Next J
Next i
MsgBox "Karşılaştırma Sona Ermiştir....", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[Musa Batur]

Sayın Necdet Yesertener

Size ne kadar teşekkür etsem azdır. Allah ne muradın varsa versin, Bu çalışmalarından dolayı teşekürler.

Saygılarımla,
Musa Batur

 

[Necdet]

Sayın Musa Batur,

Güle güle kullanınız, işinize yarayacağına sevindim.

If Buldum > 0 Then Cells(i, "J") = Cells(i, "J") & " " & Cells(J, "B")

Satırını

If Buldum > 0 Then Cells(i, "J") = Cells(i, "J") & "-->" & [B]j[/B]

gibi değiştirirseniz fatura numarası aramak yerine ilgili faturanın satır numarasını gösterir. Sanırım böyle izlemek daha rahat olur.