İki Tablo Arasında Şarta Bağlı Farkı Bulma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İki Tablo Arasında Şarta Bağlı Farkı Bulma

İleti#1)  gicimi » 12 Haz 2018 19:44

Merhaba;

Şartlı arama yaparak iki tablo arasındaki verileri arayıp, sonuç sayfasına farkı yazdırmak ve çalışma içerisindeki sayfaya değerleri aktarılması; çalışma ile ilgili detaylı bilgi ekte mevcuttur. Konu hakkında siz değerli hocalarımın yardımlarını bekliyorum. Teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: İki Tablo Arasında Şarta Bağlı Farkı Bulma

İleti#2)  Ali ÖZ » 13 Haz 2018 10:41

Merhaba,
Konuyu tam olarak anlayamadım."4002282806" malzeme numaralı kayıt her iki tarafta da var,ancak açıklama kısmına listede yok olarak yazmışsınız ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: İki Tablo Arasında Şarta Bağlı Farkı Bulma

İleti#3)  gicimi » 13 Haz 2018 14:18

Ali ÖZ yazdı:Merhaba,
Konuyu tam olarak anlayamadım."4002282806" malzeme numaralı kayıt her iki tarafta da var,ancak açıklama kısmına listede yok olarak yazmışsınız ?

Ali Bey Merhaba;
İlginiz için teşekkür ederim. Sorun Çözülmüştür.

Kod: Tümünü seç
Sub bul()
Dim son1 As Long: son1 = Sheet1.Cells(Rows.Count, "A").End(3).Row
Dim son2 As Long: son2 = Sheet1.Cells(Rows.Count, "M").End(3).Row
Dim son3 As Long: son3 = Sheet2.Cells(Rows.Count, "E").End(3).Row + 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheet2.Range("E2:G" & son3).ClearContents

For i = 2 To son1
son3 = Sheet2.Cells(Rows.Count, "E").End(3).Row + 1
If say(Sheet1.Range("N2:N" & son2), Sheet1.Cells(i, "B")) = 0 Then
Sheet2.Cells(son3, "E") = Sheet1.Cells(i, "A").Value
Sheet2.Cells(son3, "F") = Sheet1.Cells(i, "B").Value
Sheet2.Cells(son3, "G") = "2.ci Listede Yok"

End If
Next
For i = 2 To son2
son3 = Sheet2.Cells(Rows.Count, "E").End(3).Row + 1
If say(Sheet1.Range("B2:B" & son1), Sheet1.Cells(i, "N")) = 0 Then
Sheet2.Cells(son3, "E") = Sheet1.Cells(i, "M").Value
Sheet2.Cells(son3, "F") = Sheet1.Cells(i, "N").Value
Sheet2.Cells(son3, "G") = "1.ci Listede Yok"

End If
Next
son3 = Sheet2.Cells(Rows.Count, "A").End(3).Row + 1
    Sheet2.Range("A2:D" & son3).ClearContents
For i = 2 To son1
son3 = Sheet2.Cells(Rows.Count, "A").End(3).Row + 1
If say(Sheet1.Range("N2:N" & son2), Sheet1.Cells(i, "B")) <> 0 Then
Sheet2.Cells(son3, "A") = Sheet1.Cells(i, "A").Value
Sheet2.Cells(son3, "B") = Sheet1.Cells(i, "B").Value
Sheet2.Cells(son3, "C") = Sheet1.Cells(i, "U").Value - Sheet1.Cells(i, "I").Value
Sheet2.Cells(son3, "D") = Sheet1.Cells(i, "K").Value

End If
Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False

End Sub
Function say(ByVal userRange As Variant, ByVal userCriteria As Variant)
    say = Application.WorksheetFunction.CountIf(userRange, userCriteria)
End Function
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 2 misafir

Bumerang - Yazarkafe