e fatura no kayıt karşılaştırma

[du643]

Selam üsdatlarım

Elektronik fatura no ları ile girilen kayıtların kontrolünü yapmak istiyorum

örneğin: ABD2016000000125 Nolu fatura ADD2016000000125 olarak girilmişse 2 karakter hatası,
diye uyarı vermesini istiyorum.
Not 4.karakter ve sonraki 4 karakter yılı anlatmaktadır.
sadece baştaki 3 karakter için doğrulama yeterli olacaktır. Diğerleri için zaten sorgunun anlamı yok

yardımlarınız ve emekleriniz için şimdiden çok teşekkürler.

 

[du643]

ilave bilgi

sadece baştaki 3 karakter için doğrulama yeterli olacaktır. Diğerleri için zaten sorgunun anlamı yok

 

[Asri]

Selam üsdatlarım

Elektronik fatura no ları ile girilen kayıtların kontrolünü yapmak istiyorum

örneğin: ABD2016000000125 Nolu fatura ADD2016000000125 olarak girilmişse 2 karakter hatası,
diye uyarı vermesini istiyorum.
Not 4.karakter ve sonraki 4 karakter yılı anlatmaktadır.
sadece baştaki 3 karakter için doğrulama yeterli olacaktır. Diğerleri için zaten sorgunun anlamı yok

yardımlarınız ve emekleriniz için şimdiden çok teşekkürler.

Neyi ne ile kontrol edecek?

 

[du643]

ÖRNEK ABD2016000000125
MYO201600001256
FYS2016000000256 leri sıra ile diğer bir sayfadaki


ABB2016000000125
YFS2016000000256
MYO201600001256 ile kontrol edip hatalı olanlarda 1 karakter hatası 2.karakter hatası gibi

 

[Asri]

Bu şekilde dener misiniz?

Sub kontrol()
  Application.ScreenUpdating = False
  Columns("B:B").Select
  Selection.ClearContents
  Range("B1").Select
  For i = 1 To 10
    Sheets("Sayfa1").Select
    kod1 = Cells(i, 1).Value
  
    Sheets("Sayfa2").Select
    kod2 = Cells(i, 1).Value
    For Z = 1 To 3
       If Mid(kod1, Z, 1) <> Mid(kod2, Z, 1) Then
          Sheets("Sayfa1").Select
          Cells(i, 2).Value = Z & ". karakter hatalı"
          Exit For
       End If
    Next Z
  Next i
  Application.ScreenUpdating = False
  Sheets("Sayfa1").Select
End Sub

 

[du643]

emeğine sağlık üsdatım sağolun