Excel 2003 de çalışan kod excel 2007 de çalıştıramıyorum.

[DeacoN.FRoST]

Merhaba arkadaşlar.
Excel 2003 de kullandığım kod 65536 satır yüzünden artık Excel2007 ye geçtim. ancak aşağıda ki kodu

Sub Sil()
   For x = 1 To [A65536].End(3).Row
   If WorksheetFunction.CountIf([B:B], Cells(x, 1)) > 0 Then
   Cells(x, 1).ClearContents
   End If
   Next
End Sub

alttaki şekilde değiştirmeme rağmen çalışmadı yanlış olan birşeymi var?

Sub Sil()
   For x = 1 To [A150000].End(3).Row
   If WorksheetFunction.CountIf([B:B], Cells(x, 1)) > 0 Then
   Cells(x, 1).ClearContents
   End If
   Next
End Sub

A65336 yı bendeki excel dosyasında 150000 dolu satır olduğu için 150000 olarak değiştirdim. ama çalışmadı.
Yardımlar için teşekkür ederim şimdiden
iyi forumlar.

 

[uzmanamele]

merhaba

yazdığınız kod çalışıyor.
sanırım dosyayı kaydederken xlsm olarak kaydetmediniz.
xlsx olarak kaydetmişseniz kodlar kaydedilmemiştir.
farkı kaydet / makro etkin excel dosyası

 

[DeacoN.FRoST]

sayın uzmanamele csv uzantılı dosyada deniyorum. ondanmı kaynaklanıyordur?
şimdi dediğiniz gibi xlsm olarak kaydettim dosyayı tekrar açtım. Visual basic düzenleyiciden Insert/Module yapıp 150000 olan kodu yapıştırdım ama yine çalışmadı

 

[uzmanamele]

merhaba

ek dosyada kod çalışıyor mu?

 

[DeacoN.FRoST]

sayın uzmanamele hocam örnek çalıştı ama ben datalarımı yapıştırdığımda çalışmadı. Datalar özel olduğu için özelinize link atıyorum dosyayı incelerseniz çok sevinirim neyi eksik yapıyorum?

 

[uzmanamele]

merhaba

bu şekilde deneyiniz

Sub Sil()
   For x = 1 To [A1048576].End(3).Row
   If WorksheetFunction.CountIf([B:B], Cells(x, 1)) > 0 Then
   Cells(x, 1).ClearContents
   End If
   Next x
End Sub

 

[DeacoN.FRoST]

sayın uzmanamele hocam oldu çok teşekkür ederim. elinize sağlık.