Mükerrer numaraların makro ile tesbiti ile ilgili,

[abbasonline]

Mükerrer numaraların, olmayan numaraların makro ile tesbiti ile ilgili,

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub numarabul()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.[f5:g65536].ClearContents
enaz = WorksheetFunction.Min(s1.[g7:g65536])
enfazla = WorksheetFunction.Max(s1.[g7:g65536])
For a = enaz To enfazla
say = WorksheetFunction.CountIf(s1.[g7:g65536], a)
If say > 1 Then
c = c + 1
s2.Cells(c + 4, "f") = a
ElseIf say = 0 Then
d = d + 1
s2.Cells(d + 4, "g") = a
End If
Next
End Sub

 

[abbasonline]

Levent bey kodu yazdım ancak sayfa 2 de sadece F5 den başlayarak F12 ye kadar 1 den 8 de dahil olmak üzere rakam yazıyor. mükerrer rakamlar ile hiç alakası olmayan rakamları yazıyor, ayrıca G sütununda olmayan numaralar hanesinede hiç bir şey yazmıyor.

 

[abbasonline]

ayrıca Sayfa 1 de g7 den itibaren numaraları sıra ile yazarsak olmayan numaraları ve mükerreri yazıyor ancak illerin karşısına yazmıyor rasgele yazıyor. birden fazla olmayan numara veyahut mükerrer sayı oldumu ilin karşısınaki ilgili hücresinin içerisine eksik olan sayıları, mükerrer olan sayıları da yazmıyor.