makroda run time error 91 hata mesajı

[netkit]

Sayın Üstadlarım

ekteki dosyada bilanço sayfasındaki değeri kapanışta bulup kapanış fiyatını almak isteyince run time error 9 hatasını veriyor. Ama aynı kodları test kitabı yaratınca hata vermiyor. problemli kitaptaki göremediğim sorun nedir sizce?

hayırlı cumalar..

 

[systran]

kodu şu şekilde düzeltin.

Set A = Sheets(1).Range([B][COLOR="Red"]"A2:B" & Z[/COLOR][/B]).Find(hisse, , xlValues, xlWhole)

 

[netkit]

Sayın systran
maalesef aynı
http://hizliresimyukle.com/image/C1j

 

[systran]

KAPANIS sayfasının A sütunundaki verilerin sol tarafında hep boşluk var
"ACSEL" değil " ACSEL" olarak görünüyor. Bunları kırpmanız lazım.
bazı hisseleri bulamıyor (AFMAS)
kodun son çalışan hali

Sub fiyat()
Application.ScreenUpdating = False

Sheets("BILANCO").Select
Z = Cells(65536, 2).End(xlUp).Row
For i = 2 To Z 'a KOLONU SON HUCREYI BULUR
hisse = Cells(i, 2).Value
Sheets("KAPANIS").Select
Set A = Sheets("KAPANIS").Range("A:B").Find(hisse, , xlValues, xlWhole)
If Not (A Is Nothing) Then
    kfiyat = A.Offset(0, 1)
    Sheets("BILANCO").Select
    Cells(i, 3).Value = kfiyat
End If
Next
Application.ScreenUpdating = True
End Sub

 

[netkit]

Sayın systran

teşekkür ederim. kapanış datası web den geliyor ama inanın hiç boşlukları görmedim
Hemen deniyorum ellerinize sağlık..