Hesap Bakiyelerini Karşılaştırma

[ANTALYA 01]

Merhabalar Ekteki Çalışmada Bir dizi Formüle ihtiyacım var Açıklama Çalışma sayfasındadır.Yardımcı olan herkese şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre A ve D sütunundaki kodlar uzunluk olarak birbirine eşit değil bu durumda formül sonucu sürekli "YANLIŞ" çıkacaktır.

 

[Recep İpek]

a ve d kolonlarındaki kodların aynı uzunlukta olduğunu düşünürsek aşağıdaki kodları kullanabilirsiniz.
d kolonundaki , işaretlerininde kaldırılması gerekmektedir.


Yanlız 2500 kayıt olduğu için makro çalışma süresi 4-5 dakika alabilir.

Sub KONTROL()
On Error Resume Next
Dim sonuc As Boolean
Application.ScreenUpdating = False
[d2].Select
son1 = WorksheetFunction.CountA([d1:d5000])
son2 = WorksheetFunction.CountA([a1:a5000])
For i = 2 To son1
sonuc = False
    For k = 2 To son2
    If Cells(k, "a").Value = Cells(i, "d").Value And Cells(k, "a").Offset(0, 1).Value = Cells(i, "d").Offset(0, 1).Value Then
    sonuc = True
    End If
    Cells(i, "d").Offset(0, 2).Value = sonuc
    Next k
Next i
MsgBox "Bitti"
[d2].Select
Application.ScreenUpdating = True
End Sub

 

[ANTALYA 01]

t

Merhabalar

Cevab için teşekkür ederim.

Sadece D sÜtunundaki , İşaretlerini nasıl değiştireceğim .Çünkü CTRL+F Yapıyorum Bütün Sayfayı Değiştiriyor.Te ktek 2500 Kaydı nasıl değiştireceğim.
Bakiyelerdeki , İşaretini kaldırıp Birleştiriyor.

 

[Recep İpek]

Sadece D kolonunu seçip Ctrl+F ve Replace All yapın.

 

[ANTALYA 01]

D

Teşekkür ederim.