Karşılaştırma Yapmak

[rotring38]

Değerli arkadaşlar merhaba.
Mutabakat için bir karşılaştırma formülüne ihtiyacım var.
Bu konuda yardımcı olursanız günlerimi harcadığım şu mutabakatları hızlı bir çözüm olacak.
Yardımcı olursanız sevinirim.

Firmalarımız A ve B olsun.
Mutabakat yapılan her iki firmanında B Sutununda Fatura numaraları yazıyor.
A Firmasını Baz Firma Alalım.
Makro Çalıştıra Bastığımız A Firmasının B1 Stunundaki Fatura numarasından başlayarak Sırayla B Firmasının B1 Stunundan İtibaren Baksın ve Aynı Numara Varsa Sarı Renge Hücreyi Boyasın.
Firmaları Aynı Çalışma Kitabı İçinde Sayfa Sayfa Kaydediyoruz. Herhangi bir yere yeniden yazdırmayacak. B1 hücresinde Yazılı 567891 Nolu Fatura B Firmasının B stununa bakacak ve eşleştiği numara varsa hem A Firmasındaki O Hücre Hemce B Firmasındaki O Hücre Sarı Olsun.

Ondan Sonra B2 Stunundaki 567555 Nolu Fatura Eşleştiği Varmı Arasın Varas Her İki Firmadada İlgil iHücreler Sarı Olsun gib...

Arkadaşlar buna göre ben boşta kalanları kontrol edecem.
Lğtfen bu konuda yardımcı olunuz ve şu bolca vaktimi çalan mutabakat çilesinden kurtulayım.
Saygılarımla

 

[Baggwell]

Özet tablo ile çapraz kontrol yapabilirsiniz örnek dosya paylaşın yardımcı olayım

 

[rotring38]

Merhaba
Ek Cariler Ektedir.
Yalnız bir problemden bahsetmemişim.
KArşı tarafın fatura seri Harf ile Bizimkinde yok. Yani Karşı Tarafta A548545 Olan Fatura Bizde 548545 şeklinde.
Saygılarımla


http://dosya.co/vdfusd867u6z/ORNEK_CALISMA.xlsx.html

 

[PLİNT]

Merhaba
Ek Cariler Ektedir.
Yalnız bir problemden bahsetmemişim.
KArşı tarafın fatura seri Harf ile Bizimkinde yok. Yani Karşı Tarafta A548545 Olan Fatura Bizde 548545 şeklinde.
Saygılarımla
http://dosya.co/vdfusd867u6z/ORNEK_CALISMA.xlsx.html

Merhaba
Örnek dosyanızın 1. sayfasına göre aşağıdaki gibi deneyin.
http://www.upturkey.com/download.php?file=147ORNEK_CALISMA.zip

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("A-FIRMASI")
Set s2 = Sheets("B-FIRMASI")
s1.[A2:g100000].Interior.ColorIndex = xlNone: s2.[A2:f100000].Interior.ColorIndex = xlNone
For a = 2 To s1.Cells(Rows.Count, 1).End(3).Row
Set b = s2.Range("b2:b" & s2.Cells(Rows.Count, 1).End(3).Row).Find(s1.Cells(a, 2).Value, LookIn:=xlFormulas, LookAt:=xlPart)
If Not b Is Nothing Then
s2.Range("a" & b.Row & ":f" & b.Row).Interior.ColorIndex = 6
s1.Range("a" & a & ":g" & a).Interior.ColorIndex = 6
End If
Next
End Sub

 

[rukiye_mete]

Karşılaştırma

Merhaba, bu eklentiyi nasıl kullanabilirim. Cariler arası karşılaştırma yapmak istiyorum yardımcı olursanız çok sevinirim.

Merhaba
Örnek dosyanızın 1. sayfasına göre aşağıdaki gibi deneyin.
http://www.upturkey.com/download.php?file=147ORNEK_CALISMA.zip

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("A-FIRMASI")
Set s2 = Sheets("B-FIRMASI")
s1.[A2:g100000].Interior.ColorIndex = xlNone: s2.[A2:f100000].Interior.ColorIndex = xlNone
For a = 2 To s1.Cells(Rows.Count, 1).End(3).Row
Set b = s2.Range("b2:b" & s2.Cells(Rows.Count, 1).End(3).Row).Find(s1.Cells(a, 2).Value, LookIn:=xlFormulas, LookAt:=xlPart)
If Not b Is Nothing Then
s2.Range("a" & b.Row & ":f" & b.Row).Interior.ColorIndex = 6
s1.Range("a" & a & ":g" & a).Interior.ColorIndex = 6
End If
Next
End Sub

 

[PLİNT]

Merhaba, bu eklentiyi nasıl kullanabilirim. Cariler arası karşılaştırma yapmak istiyorum yardımcı olursanız çok sevinirim.

Merhaba
Örnek dosyanızı (açıklama ekleyerek) http://www.upturkey.com
adresine yükleyip; indirme adresini bildirir misiniz?