Satırdaki hatanın nedeni

[sudo]

merhaba,
aşağıdaki kodlarda [c1]ve[d1] hücrelerine girdiğim 6 basamaklı sayı aralığında
a sütununda 1. satırdan 100. satıra kadar, olmayan rakamları g sütununa almak istiyorum fakat Cells(i, 7) = i satırında hata veriyor nedeni bulamadım. yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.


Sub olmayan()
Dim i As Long
For i = [c1] To [d1]
Dim r As Range
For Each r In Range("a1:a100")
b = WorksheetFunction.CountIf(Range("a1:a100"), i)
If b <> 1 Then
Cells(i, 7) = i
End If
Next
Next
Range("g:g").Select
Selection.Sort key1:=Columns(7)

End Sub

 

[Ferhat Pazarçevirdi]

O sat&#305;rda hata vermesi normal &#231;&#252;nk&#252;: Excel'in s&#305;n&#305;rlar&#305;n&#305; zorlam&#305;&#351;s&#305;n&#305;z. E&#287;er 6 basamakl&#305; say&#305;larla &#231;al&#305;&#351;&#305;yorsan&#305;z; &#214;rne&#287;in i'nin 100.000.inci de&#287;eri, Excel'in 100.000'inci sat&#305;r&#305;na denk geliyor ki, e&#287;er 2007 veya OWC Spreadsheet nesnesi kullanm&#305;yorsan&#305;z, b&#246;yle bir &#351;eyin de imkan&#305; yok. Excel 2003(veya XP) 65536 sat&#305;r kapasitesindedir.

Kodlar&#305;n&#305;z&#305; &#351;u &#351;ekilde d&#252;zeltiniz. Ama C1 ve D1'e yazd&#305;&#287;&#305;n&#305;z aral&#305;&#287;a dikkat edin. E&#287;er A1:A100 aral&#305;&#287;&#305;nda bulunmayanlar&#305; buluyorsan&#305;z ve bu de&#287;erler 65536 adetten fazla ise; a&#351;a&#287;&#305;daki kodlar da &#231;al&#305;&#351;mayacakt&#305;r.

Sub olmayan()
Dim i As Long
Dim r As Range
For i = [c1] To [d1]
sonsat = Cells(65536, 7).End(xlUp).Row + 1
    For Each r In Range("a1:a100")
       b = WorksheetFunction.CountIf(Range("a1:a100"), i)
          If b <> 1 Then
              Cells(sonsat, 7) = i
          End If
    Next
Next
'Range("g:g").Select
'Selection.Sort key1:=Columns(7)
End Sub

 

[sudo]

merhaba,
say&#305;n fcp, ilgilenip yazd&#305;&#287;&#305;n&#305;z kod i&#231;in te&#351;ekk&#252;r ederim. 65536 n&#305;n alt&#305;ndaki say&#305;larda, benim g&#246;nderdi&#287;im kodlar da &#231;al&#305;&#351;&#305;yordu. 6 basamakl&#305; say&#305;larda bu i&#351;in neden olmad&#305;&#287;&#305;n&#305; &#246;&#287;renmek i&#231;in sormu&#351;tum onu da anlam&#305;&#351; oldum, tekrar te&#351;ekk&#252;rler...

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Not: Sayı aralığınıza göre işlem süresi uzayabilir.

 

[sudo]

merhaba,
say&#305;n cost_control elinize sa&#287;l&#305;k tam istedi&#287;im gibi olmu&#351; zaman ay&#305;r&#305;p ilgilendi&#287;iniz i&#231;in size de &#231;ok te&#351;ekk&#252;r ederim.