İki Liste arasındaki fark

Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Merhaba,
even' Alıntı:
Ö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.
even' Alıntı:
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ı.
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
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]
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
teşekkür ederim, başarılı oldu
 
Üst