İki Liste arasındaki fark

[even]

Tablo2 ile Tablo1 arasındaki karşılaştırma yapıp, artış-azalışları tespit etmek istiyorum.

Kolon yerleri ve başlıkları aynı.

Örnek dosyada oklarla anlattım, :
Hiçbir değeri değişmeyen şehirler FARK sayfasında görünmemesi
Değerinda arış/azalış olduysa, "bold" olsun istiyorum

Yardımcı olan arkaşalara şimdiden teşekkürler


Forumda bir kod buldum, onun üzerinden gitmeye çalıştım. Yakın birşey ama tam istediğimi elde edemedim:

Sub macro1()
Set sm = Sheets("Tablo1")
Set sn = Sheets("Tablo2")
Set sf = Sheets("fark")
On Error Resume Next
sf.Cells.ClearContents ""
sf.Cells.Font.Bold = False

sf.Range("A1:n1") = sn.Range("A1:n1").Value
For x = 2 To sn.[b65536].End(3).Row
For y = 1 To 14
sf.Cells(x, y) = sn.Cells(x, y)
Next y
sat = 0
sat = sm.Columns("b").Find(sf.Cells(x, 2)).Row

If sat = 0 Then
sf.Range(Cells(x, 1), Cells(x, 14)).Font.Bold = True
GoTo atla
End If

sf.Cells(x, 14) = sf.Cells(x, 14) - sm.Cells(sat, 14)
atla:
Next x
End Sub

 

[veyselemre]

Ekteki örneği inceleyin,

 

[even]

Sn Veysel emre önce teşekkür ederim.
Örnek dosyada çalışıyor, fakat
Tablo2 yeni şehirler gelmişse, Makro hata veriyor. Yeni şehir gelmişse FARK listesine yazmasını isterdim
Bir de, 4-5 satır ekleyip denedim tablolarda fark yoksa bile Farkı '0' olarak veriyor.


Forumda bir kod buldum diye yazdığım sizin verdiğiniz kodlarmış:
http://www.excel.web.tr/viewtopic.php?t=18444

 

[veyselemre]

Merhaba,

Örnek dosyada çalışıyor, fakat
Tablo2 yeni şehirler gelmişse, Makro hata veriyor. Yeni şehir gelmişse FARK listesine yazmasını isterdim

[vb:1:0de2286bf9]Top = son_T1 + son_T2 - 2[/vb:1:0de2286bf9] Düzeltmeyi yapın.

Bir de, 4-5 satır ekleyip denedim tablolarda fark yoksa bile Farkı '0' olarak veriyor.

Ne demek istediğinizi anlamadım,
Soru sorarken iki satır değil de her alternatifi düşünerek verileri bol verseydiniz, bu hata olmazdı.

 

[even]

Kalabalık gözükmesin diye cok veri eklememiştim, şimdi 2 satır daha ekledim.
Diğer sorum için olan düzetmeniz işe yaradı, sağolun

 

[veyselemre]

Son döngüyü aşağıdaki şekilde değiştirin.
[vb:1:c8f50fad63]For x = sat To 2 Step -1
If sf.Cells(x, 14) = 0 Then sf.Rows(x).Delete shift:=xlUp
Next x[/vb:1:c8f50fad63]

 

[even]

teşekkür ederim, başarılı oldu