Düşeyara

[sancak125]

Slm

Düşey ara ile yapmak istediğim küçük bir sorum olacak

Ekte göreçeğiniz gibi

2007/2008/2009 Yıllarında karşılaştırma yaparak yeni açılmış kodları bulmak istemekteyim.

A)2007 yılını inceleyerek 2008 yılında yeni açılmış kodları bulmak
B)2008 Yılını inceleyerek 2009 yılında yeni açılmış kodları bulmak istemekteyim.

Saygılarımla

 

[meslan]

merhaba

Sub yenikod()
[j:j,o:o].ClearContents
For i = 3 To [A65536].End(3).Row
If WorksheetFunction.CountIf([a:a], Cells(i, 6)) < 1 Then Cells(i, 10) = "Yeni Kod"
If WorksheetFunction.CountIf([f:f], Cells(i, 11)) < 1 Then Cells(i, 15) = "Yeni Kod"
Next
End Sub

Kolay gelsin

 

[sancak125]

çok teşekkür ederim