rakam yerine yazı geliyor

[wolwaren]

merhaba aşağıdaki kod sayesinde başka sayfalardaki kalan bakiye anasayfaya aktarılıyor idi kalan bakiyede enson yazan rakam aktarılıyordu ama şimdi kalan yazısı geliyor sizce hata nedir?

Sub kod_bir()
On Error Resume Next

Dim sa As Worksheet
Set sa = Sheets("Anasayfa")
bir = [a65536].End(3).Row

For i = 2 To bir
aa = Cells(i, 1)
uc = Sheets(aa).[a65536].End(3).Row
sa.Cells(i, 2) = Sheets(aa).Cells(uc, 11)

Next i
End Sub

 

[zafer]

Merhaba

Sutun ekleme veya silme yapmışsınızdır.

K sütununda sayılarmı var bakarmısınız.
Aktarılacak sütun hangisidir

Sheets(aa).Cells(uc, 11) burada 11 sütun yani K olarak gözüküyor.

Dosyayı eklerseniz sonuca daha çabuk gideriz.

 

[wolwaren]

tamam hocam dediğiniz gibi sütun eklemesi yapılmış. teşekkürler