can't execute code in break mode hatası

[önder34]

merhaba arkadaşlar dosyamdaki verileri a ,b,c,d,e,f,g,h,ı,j sayfalarına dağıtmak için aşağıdaki makroyu kullandığım da başlıktaki hatayı veriyor sorunu çözmeme yardımcı olabilecek biri var mı acaba?

Sub Sayfalara_Dağıt()
Dim Sayfa As Variant, i As Long, son As Long, S1 As Worksheet
Set S1 = Sheets("Sayfa6")
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Sayfa6" Then
Sheets(i).Range("A365536").ClearContents
End If
Next i

For i = 3 To S1.[E65536].End(3).Row
Sayfa = S1.Cells(i, "J")
son = Sheets(Sayfa).[B65536].End(3).Row + 1
Sheets(Sayfa).Cells(son, "J") = son - 2
S1.Range("B" & i & ":C" & i & "" & i & ":E" & i & ":F" & i & ":G" & i & ":H" & i & ":I" & i).Copy Sheets(Sayfa).Cells(son, "B")
Next i

MsgBox "Aktarım tamamlandı."
End Sub

 

[Ömer]

Merhaba,

Genelde kod hata ürettiğinde kodu çalıştırmaya devam ettiğnizde bu hatayı alırsınız, vba da reset butonuna basarak daha sonra kodu çalıştırın. Yada dosyanızı kapatıp açın ondan sonra tekrar kodu çalıştırın. Bunun dışında kodlarda bir sorun görünmüyor.Eğer yine hata alırsanız, hata aldığınız dosyayı eklerseniz çözüm sunmamız daha kolay olacaktır.

 

[önder34]

Çok teşekkürler ilginiz için bayram dönüşü bakabileceğim dosya iş yerinde çünkü...

 

[önder34]

Merhaba Sayın Ömer Bey'in vermiş olduğu çözüm yollarını denedim bu seferde şu satırısarı renge boyadı
son = Sheets(Sayfa).[B65536].End(3).Row + 1
dosyayı ekliyorum yardımlarınızı bekliyorum

 

[Ömer]

Siz sayfa adlarını J değil E sütununda alıyorsunuz fakat kodlarda J diye yazılmış.

Sayfa = S1.Cells(i, "J")

J yerine yerine E yazarak deneyin.

.

 

[önder34]

Yardımınız için teşekkür ederim . Bu sefer sıra numarasını J sütununa atıyor

 

[Ömer]

Kodları kendinize göre düzenlememişsiniz.

Sheets(Sayfa).Cells(son, "J") = son - 2

Yukarıdaki kod satırı sıra numarası yazar. Buradaki J yerine, sıra numarasını yazmak istediğiniz sütun adını yazın.

 

[önder34]

Yardımlarınız için sonsuz teşekkür ederim . Sorun çözüldü.

 

[bangbrossa]

Merhaba,

Genelde kod hata ürettiğinde kodu çalıştırmaya devam ettiğnizde bu hatayı alırsınız, vba da reset butonuna basarak daha sonra kodu çalıştırın. Yada dosyanızı kapatıp açın ondan sonra tekrar kodu çalıştırın. Bunun dışında kodlarda bir sorun görünmüyor.Eğer yine hata alırsanız, hata aldığınız dosyayı eklerseniz çözüm sunmamız daha kolay olacaktır.

Üstadım 2023 yılında saatlerdir uğraştığım hatanın sorununu cevabın sayesinde çözdüm emeğine sağlık.