If komutu ve runtime hatası hakkında.

[serkanay]

Sevgili Forum üyeleri,

Acemi bir macro yazıcısı olarak FORUM dan çok şey öğrendiğimi itiraf etmek istiyorum. Belki çok kolay bir soru olsada beceremediğim bir konu var.

For x = 3 To 9502
Sheets("Sip").Select
Cells(x, 1).Select
If ActiveCell.Value = "M/S Kodu   :" Then
'*****************************************
For y = 14 To 44
Sheets("Sip").Select
a = Cells(x, 2).Value & Cells(2, y).Value
For z = 2 To 12881
Sheets("AS").Select
Cells(z, 2).Select
If Cells(z, 2).Value = a.Value Then
r = ActiveCell.Row
Sheets("Sip").Select
Set alan = Range("Sip!C3:C" & WorksheetFunction.CountA(Range("Sip!C1:C65000")))
ara = Cells(x - 1, 3).Value
i = WorksheetFunction.CountIf(alan, ara.Value)
For xx = 1 To i
Sheets("Sip").Select
Cells(x - xx, y).Value = (Cells(x - xx, 13).Value * Cells(x, 13).Value) * Sheets("AS").Cells(r, 12).Value
Next
Else
End If
Next
Next
End If
Next

yazdığım kodda

If Cells(z, 2).Value = a.Value Then

Run Time Error "424" Object Requied

Hatası veriyor çözüm için yardımlarınızı bekliyorum.

Saygılar...

 

[Levent Menteşoğlu]

Hata veren satırdaki "a.Value" tanımlamasında hata var a nedir?

 

[serkanay]

Sayın leventm yardımınız için teşekkür ederim.

Sizinde belirttiğiniz gibi a tanımlaması eksik yapılmış sanırım.

Bende komple bu tanımlamayaı kaldırdım sorun çözüldü sağolun.

Saygılarımla...