• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

2 farklı tablo ve aradakı farklar (3ncu tablo)

Merhaba,

J3

Kod: 
=B3-EĞER(EHATALIYSA(DÜŞEYARA(I3;$E$3:$G$8;2;0));0;DÜŞEYARA(I3;$E$3:$G$8;2;0))
=B3-IF(ISERROR(VLOOKUP(I3;$E$3:$G$8;2;0));0;VLOOKUP(I3;$E$3:$G$8;2;0))

K3

Kod: 
=C3-EĞER(EHATALIYSA(DÜŞEYARA(I3;$E$3:$G$8;3;0));0;DÜŞEYARA(I3;$E$3:$G$8;3;0))
=C3-IF(ISERROR(VLOOKUP(I3;$E$3:$G$8;3;0));0;VLOOKUP(I3;$E$3:$G$8;3;0))
 

Ekli dosyalar

Sn.Necdet Hocam cevaplamış gerçi bende düşeyara farklı bir yöntemle buldum.

İyi çalışmalar.
 

Ekli dosyalar

çok teşekürler,elinize sağlık arkadaşlar,yalnız ben biraz acemiyim bu kodu 200 satıra göre ayarlasak,birde sağ taraftaki fark tablosunda mesela kodların isimlerininde çıkmasını otomatik sağlabilirmiyiz,teşekkürler...
 
Merhaba,

Sorunuzu fonksiyonlarla çözmek beni aşar. Makrolu çözüm isterseniz aşağıdaki kodları deneyiniz.

Kod: 
Sub Duzenle()
Dim i, Son As Long
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Columns("N").Clear
Range("I3:K" & [I65536].End(3).Row + 1).ClearContents
Range("A2:A" & [A65536].End(3).Row).Copy Range("N1")
Range("E3:E" & [E65536].End(3).Row).Copy Range("N" & [N65536].End(3).Row + 1)
Range("N1:N" & [N65536].End(3).Row).AdvancedFilter xlFilterCopy, , [I2], True
Columns("N").Clear
Son = [A65536].End(3).Row
For i = 3 To [I65536].End(3).Row
 
    Set Bul = Range("A3:A" & Son).Find(Cells(i, "I"), LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Cells(i, "J") = Cells(Bul.Row, "B")
        Cells(i, "K") = Cells(Bul.Row, "C")
    Else
        Cells(i, "J") = 0
        Cells(i, "K") = 0
    End If
Next i
Son = [E65536].End(3).Row
For i = 3 To [I65536].End(3).Row
 
    Set Bul = Range("E3:E" & Son).Find(Cells(i, "I"), LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Cells(i, "J") = Cells(i, "J") - Cells(Bul.Row, "F")
        Cells(i, "K") = Cells(i, "K") - Cells(Bul.Row, "G")
    End If
 
Next i
Application.ScreenUpdating = True
End Sub
 

Ekli dosyalar

Necdet Yeşertener' Alıntı:
Merhaba,

Sorunuzu fonksiyonlarla çözmek beni aşar. Makrolu çözüm isterseniz aşağıdaki kodları deneyiniz.

Kod: 
Sub Duzenle()
Dim i, Son As Long
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Columns("N").Clear
Range("I3:K" & [I65536].End(3).Row + 1).ClearContents
Range("A2:A" & [A65536].End(3).Row).Copy Range("N1")
Range("E3:E" & [E65536].End(3).Row).Copy Range("N" & [N65536].End(3).Row + 1)
Range("N1:N" & [N65536].End(3).Row).AdvancedFilter xlFilterCopy, , [I2], True
Columns("N").Clear
Son = [A65536].End(3).Row
For i = 3 To [I65536].End(3).Row
 
    Set Bul = Range("A3:A" & Son).Find(Cells(i, "I"), LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Cells(i, "J") = Cells(Bul.Row, "B")
        Cells(i, "K") = Cells(Bul.Row, "C")
    Else
        Cells(i, "J") = 0
        Cells(i, "K") = 0
    End If
Next i
Son = [E65536].End(3).Row
For i = 3 To [I65536].End(3).Row
 
    Set Bul = Range("E3:E" & Son).Find(Cells(i, "I"), LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Cells(i, "J") = Cells(i, "J") - Cells(Bul.Row, "F")
        Cells(i, "K") = Cells(i, "K") - Cells(Bul.Row, "G")
    End If
 
Next i
Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...


Hocam çok çok teşekkürler,süper olmuş,birşeyi merak ediyorum bu tablonun sonunu 15000 satıra çıkarmak mümkünmüdür,ve farkları bul deyince 15000 satırda bir sorun çıkarırmı?,Gerçekten emeğinize sağlık...
 
Merhaba,

Satır sayısı önemli değil, deneme yapabilirsiniz.
 
özet tablonnun bu özelliğini bilmiyordum.
teşekkürler..
 
Necdet hocam bir sorun çıktı soldaki tablo ve yanındaki tabloya benim gerçek stoklarımı yazıp,farkları bul a basınca
Run-time error '13':

Type mismatch yazan bir pencere çıktı orada da debug a basınca şu şatırı sarı gösteriyor;

Cells(i, "K") = Cells(i, "K") - Cells(Bul.Row, "G")

Sebebini anlayamadım,sizlerede çok zahmet verdik ama..
 
Son düzenleme:
Şimdi bir şey fark ettim,tutarda virgülden sonra 2 kesir var,acaba bundanmıdır?
 
merhaba
farklı iki sayfada farkı nasıl alabilirim.

örnek:

sipariş
sıra no marka parça adet
1 reno a1 87
2 tofaş a2 25
3 ford a1 55
4 ford a2 66
5 ford a3 77
6 tofaş a3 47
7 tofaş a4 98
8 reno a2 88
9 toafş a1 65
10 reno a3 85




ikinci tablo:



sevk
marka parça sevk kalan
ford a1 21 ???
ford a2 32 ???
ford a3 45 ???
reno a1 22 ???
reno a2 55 ???
reno a3 65 ???
toafş a1 22 ???
tofaş a2 14 ???
tofaş a3 30 ???
tofaş a4 68 ???
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst