2 farkli sheet'i karsilastirma

[Korry]

Arkadaslar Merhaba;

Elimde bir excel workbook var. 2 sheet'ten olusuyor ve herbiri 17000 ila 18000 arasinda satir iceriyor.

1. sheet'te yeni fiyatlar var.
2. sheet'te eski fiyatlar var.
EK'te ornek dosya yolluyorum.

Benim istedigim ornegin;
1. sheet'te A1'de yer alan urun kodunu sheet 2'de arasin,
eger bulamazsa 1. sheet'te yer alan A1:A3 kismini sari renk ile kaplasin.
eger bulur ise; fiyatlarinin ayni olup olmadigini kontrol etsin. Ayni degil ise farklarini 1. sheet'te A4'e yazsin. ve A1:A4 kirmizi renge boyansin.

Normalde az satir sayisi icerse rahatlikla yapilir ancak search ve find ile nasil yapilacagini bilmiyorum. Onemli olan en kisa surede bu islemi bitirebilecek bir yontem ile hareket etmek.

Bu konuda yardimci olur iseniz sevinirim.

Tesekkurler

Koray Ozturk

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:54e4ea267d]Sub incele()
Set s1 = Sheets("Yeni Fiyat")
Set s2 = Sheets("Eski Fiyat")
For a = 2 To s1.[a65536].End(3).Row
say = WorksheetFunction.CountIf(s2.[a2:a65536], s1.Cells(a, "a"))
If say > 0 Then
sat = WorksheetFunction.Match(s1.Cells(a, "a"), s2.[a1:a65536], 0)
s1.Cells(a, "d") = s1.Cells(a, "c") - s2.Cells(sat, "c")
If s1.Cells(a, "d") <> 0 Then Range("a" & a & ":d" & a).Interior.ColorIndex = 3
GoTo 10
End If
Range("a" & a & ":c" & a).Interior.ColorIndex = 6
10 Next
End Sub
[/vb:1:54e4ea267d]

Not:aslında sorunuz koşullu biçimlendirme ilde çözülebilir ama veri sayınızın fazla olması, çok sayıdaki hücrede koşullu biçimlendirme yapılmasını gerektirir ki bunun sonucunda dosyanızın hacmi çok fazla artacak ve çalışması yavaşlayacaktır.

 

[Korry]

Cok tesekkurler...

Koray Ozturk