Bekleyen Siparişi Bulmak İçin İki Tablo Arasındaki Fark.

[Rafet]

Veri tabanından iki tablo çağırıyorum . Biri o carıden alınan siparişler . Diğeride teslim edilen siparişler. Bu iki tablo arasında fark bana bekleyen siparişleri verecek. Fakat başaramadım.

Bu konuyla ilgili örnek bir çalışma , bir uğraş veya hazırlana bilecek makro için yardım istiyorum.

Şİmdiden ilgilene arkadaşlara teşekkür ederim.

Muhabbetle.

 

[veyselemre]

Aşağıdaki kodu deneyin.

Sub KalanBul()
[K6:N65536].Delete shift:=xlUp
sip = [A65536].End(3).Row - 1
tes = [F65536].End(3).Row - 1

ReDim dizi(sip + tes - 10, 4)

For x = 6 To sip
    a = a + 1
    For y = 1 To 4
        dizi(a, y) = Cells(x, y)
    Next y
Next x
    
For x = 6 To tes
    a = a + 1
    For y = 1 To 4
        dizi(a, y) = Cells(x, y + 5)
    Next y
        dizi(a, 2) = dizi(a, 2) * (-1)
        dizi(a, 3) = dizi(a, 3) * (-1)
        
Next x

For x = 1 To a - 1
    For y = x + 1 To a
        If dizi(x, 1) = dizi(y, 1) Then
            dizi(x, 2) = dizi(x, 2) + dizi(y, 2)
            dizi(x, 3) = dizi(x, 3) + dizi(y, 3)
            dizi(y, 1) = ""
        End If
    Next y
Next x

sat = 5
For x = 1 To a
    If dizi(x, 1) <> "" And dizi(x, 2) > 0 Then
        sat = sat + 1
        For y = 1 To 4
            Cells(sat, y + 10) = dizi(x, y)
        Next y
    End If
Next x

Kson = [K65536].End(3).Row


Range("A6:D6").Copy
Range("K6:N" & Kson).PasteSpecial Paste:=xlPasteFormats

Range(Cells(sip + 1, 1), Cells(sip + 1, 4)).Copy
Range("K" & Kson + 1).PasteSpecial

Range("K6:K" & Kson).NumberFormat = "000000"
Range("L" & Kson + 1) = WorksheetFunction.Sum(Range("L6:L" & Kson))
Range("M" & Kson + 1) = WorksheetFunction.Sum(Range("M6:M" & Kson))
Range("N" & Kson + 1) = "Kalan"

End Sub

 

[Rafet]

İlginiz ve Makro için çok teşekkürler veyselemre .Ellerinize sağlık.

Ben aslında While döngüsüyle yapmaya calışmıştım. Olacağını düşündüm fakat sanırım eksik bir şeyler vardı ve çalışmadı. Sizin gönderdiğiniz makroyu halen inceliyorum. Sutun sayıları felan arttıracağım için biraz düzeltmeler yapmam gerekiyor . Umarım başarırım. .

Tekrar Tekrar Teşekkürler...

Muhabbetle.