Üstadlar 2 excel sayfasını karşılaştırmam lazım

[horizoncan]

Merhaba üstadlar 2 excel sayfam var biri iskan alan diğeri ise ruhsat aşamasında olan bilgiler yazılı, ben ruhsat aşamasında olan sayfadan iskan alanların süzmesini yapmak istiyorum ancak 3bin küsürlük bir liste tek tek uğrasmak gunler alır ancak yarım sabaha kadar vaktim var malum emir demiri keser bana yardım edersenız cok sevınırım.saygılar

 

[dEmir1]

Merhaba
Örnek dosya eklerseniz daha hızlı cevap alabilirsiniz.

 

[horizoncan]

https://drive.google.com/file/d/0B4bFbL3FDlP3eEt5QlFINW84RlU/edit?usp=sharing iskan ve ruhsat aşamasındaki bilgiler burada, iskan alanları ruhsat aşamasındaki tablodan düşmem lazım, ada ve parsel numarasından süzme yapılması gerekmekte çünkü en kesin bilgi odur

 

[horizoncan]

üstadlar konu günceldir,lütfen yardımlarınızı esirgemeyen

 

[Erdem Akdemir]

Daha basit ve anlaşılır bir örnek ekleyerek,olmasını istediğiniz sonucu da yazabilir misiniz.

 

[horizoncan]

Daha basit ve anlaşılır bir örnek ekleyerek,olmasını istediğiniz sonucu da yazabilir misiniz.

Hocam özel mesajdan gönderdim

 

[Muhammet Okumuş]

Merhaba,
Listeden silmesi mi gerekiyor?

 

[horizoncan]

Merhaba,
Listeden silmesi mi gerekiyor?

silmesine gerek yok hocam eslestırsın hangılerı oldunu bıleyım ben silerim

 

[Muhammet Okumuş]

Ruhsat sayfasında kodu deneyiniz.

Sub Boya()
Application.ScreenUpdating = False
son = Cells(Rows.Count, 1).End(3).Row
Range("H2:H" & son) = "=IF(OR(B2="""",C2=""""),"""",SUMPRODUCT(MATCH(B2&"" ""&C2,'iskan alanlar'!E$3:E$3550&"" ""&'iskan alanlar'!F$3:F$3550,0)))"
Range("I2:I" & son) = "=IF(ISNUMBER(H2),ROW(),"""")"
x = WorksheetFunction.Count(Range("I:I")) + 1
Range("J2:J" & x) = "=SMALL(I:I,ROW(A1))"
Range("J2:J" & x) = Range("J2:J" & x).Value
Range("H2:I" & son) = ""
If x = 1 Then Exit Sub
For i = 2 To x
sat = Cells(i, 10).Value
Range("A" & sat & ":G" & sat).Interior.ColorIndex = 6
Next
Range("J:J") = ""
End Sub

 

[horizoncan]

Ruhsat sayfasında kodu deneyiniz.

Maalesef calısmadı hocam

 

[Muhammet Okumuş]

http://www.dosya.tc/server34/AEIyLy/listeiskanveruhsat.rar.html
inceleyiniz.

 

[horizoncan]

Hocam cokk cok tesekkur ederım yardımcı oldugun ıcın Allah razı olsun senden