Makro çalışırken hata mesajı verdi, Yardım!

[assenucler]

Merhabalar

Bir siteden sözlük indirdirip excel'e kopyaladım ve metni hücrelere ayırarak her bir sözcüğü ayrı kolonlara ayırdım.

Farklı sayıda kolonlara dağılı olan ingilizce sözcükler kalın (bold) fontta, Türkçe'si ise yine farklı kolonlara dağılı ancak normal fontadır.

İstediğim bold fontunda olan ingilizce kelimeleri aralarında birer boşluk bırakarak Z kolonuna ; normal bontta yazılı türkçelerini ise yine aralarına birer boşluk bırakarak AA kolonuna yazdırmayı istiyorum.

Yardımcı olabilecek excel forumdaşlarına öncelikle teşekkürlerimi iletirim.
(Windows XP Türkçe; Office 2003 İngilizce)

Aldığım yanıtı module yapıştırıp çalıştırdığımda , 25 bin satırlık sözlüğün 6 bininci satırında, kodların bold olarak işaretli satırı üzerinde hata mesajı verdi.

Sub Test()
Dim Satir As Range, Hucre As Range

For Each Satir In Range(Range("A1"), Range("A65536").End(xlUp))
For Each Hucre In Range(Satir, Satir.End(xlToRight))
If Hucre.Font.Bold Then
Cells(Satir.Row, "Z") = Cells(Satir.Row, "Z") & Hucre & " "
Else
Cells(Satir.Row, "AA") = Cells(Satir.Row, "AA") & Hucre & " "
End If
Next
Next
End Sub


Hata mesajı:
Run-time error '1004':
Application-defined or object-defined error

Yardımınızı bekler, zahmetim için sonsuz teşekkürlerimi sunarım.

 

[jale]

Merhaba :arkadas:

Sorunuzu anladığım kadarıyla denedim ve bir problemle karşılaşmadım.Problemi fixleyebilmek için 5999. satıra kadar verileri bir başka excel dosyasına alıp deneyin, sonra 6000. satırı ekleyerek yine deneyin.Bu yöntemle devam edin .
Bence bir format bozukluğu vardır, o nedenle hata veriyordur diye düşünüyorum.

Bu arada accessle çalışmayı bıraktınız mı artık.?

 

[assenucler]

Sn. Jale

Merhabalar

İlginizi yine gösterdiniz, ben bir yanıt almaktan ümidimi kesmişken eski forum dostuma rastlamak ve bir cevap almak beni mutlu etti. Dediğiniz gibi yaptım. Başka bir excel sheet'e 6000'den itibaren sonraki satırları kopyaladığımda, makro çalıştı ve sonuca ulaştım.

Hayır, access'i bırakmadım. Bizim çalışmalarımız sizlerin yanında çok amatörce kalır.

Bu arada çeşitli forumlarda sizin adınızı aratarak, forumdaşların sorularına verdiğiniz yanıtları ayrı bir klasörde saklıyorum.

Selamlar. Hoşçakalın.

Office XP SP2 Türkçe.
Office 2003 SP1, English.