Metin İçerisindeki Fatura Numarasını Karşılaştırmak

[sakincekirge]

Metin Ýçerisindeki Fatura Numarasını Karşılaştırmak

Merhaba Arkadaşlar;

Sayfa1'in B Sütununda fatura numaraları bulunmakta.(örn. 175314) I sütünunda da plaka noları. Sayfa2'de ise E sütununda açıklama içerisinde fatura numaraları verilmekte.(örn. Sat.fat : 175314/TIG ELDORADO/TIG ELDORA, format şu " : Faturano/ " )

Þimdi benim yazmak istediğim makro şu şekilde çalışacak:
Sayfa1'in B sütununda bulunan Fatura No'ları Sayfa2'de E sütununda bulunan metin içerisindeki Fatura No'lar ile karşılaştıracak. Eğer Fatura No'sunu burada bulabilirse Sayfa2'de aynı satıra G sütununa Plaka No'sunu girecek. Bununla birlikte eğer eşleşme yapamazsa Bulunamadı yazacak. (Hatta kırmızı renkle yazması daha iyi olur). Tabi yapılabilirse.

Dosya binlerce satır içerdiği için belirli bir kısmını silerek örnek olarak buraya koyuyorum. Yardımlarınız için şimdiden teşekkürler.

 

[veyselemre]

eki inceleyin

 

[sakincekirge]

Sayın veyselemre verdiğiniz dosya için teşekkür ederim. Acaba bu dosya sadece 6 haneli fatura no larda mı işe yarar, mesala numara 4 haneli olsa bu sefer kodda ne gibi değişiklik yapmak gerek?

 

[Levent Menteşoğlu]

örn. Sat.fat : 175314/TIG ELDORADO/TIG ELDORA, format şu " : Faturano/ "


Yukarıdaki yazım şeklinde ilk 4 veya 5 rakamdan sonra yine rakam olma ihtimali varmı?

 

[sakincekirge]

Evet var.Herhangi bir formatta yazılmış başka rakamlarda açklama içinde yer alabilir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. İşlemi tersten yapmak daha kolay, yani sayfa2 deki rakamlar sayfa1 de aranmıştır.

[vb:1:d2580e9c6f]Sub ara()
On Error Resume Next
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 2 To s1.[b65536].End(3).Row
deg = s2.Columns("e").Find(s1.Cells(a, 2)).Row
If deg > 0 Then
s2.Cells(deg, "g") = s1.Cells(a, "i")
s2.Cells(deg, "g").Font.ColorIndex = 0
End If
Next
s2.Select
Range("g4:g" & [e65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Font.ColorIndex = 3
Range("g4:g" & [e65536].End(3).Row).SpecialCells(xlCellTypeBlanks) = "BULUNAMADI"
MsgBox "İÞLEM TAMAMLANDI"
End Sub
[/vb:1:d2580e9c6f]

 

[sakincekirge]

Sayın Levent bey, acaba bu kodda metin içerisinden sayıları nasılş süzdüğünüzü anlatabilir misiniz zahmet olmazsa

 

[Levent Menteşoğlu]

Bu kodda sayılar aşağıdaki komut ile E sütununda aranıyor o kadar


Find(s1.Cells(a, 2))

 

[sakincekirge]

çok teşekkür ederim. bir sorunum daha buradaki arkadaşlar sayesinde çözüldü. saygılarla. :icelim: