Makro sağ tuş menüsünde çalışmıyor

[Baggwell]

Merhaba,

Aşağıdaki kodları kullanarak, ilk iki sütundaki boşlukları dolduran bir makro çalıştıyorum. ilk olarak ilgili sayfanın makro bölümüne kodları ekliyorum, daha sonra görünüm makrodan çalıştır deyince hatasız çalışıyor.

Fakat bu makroyu excel'de sağ tuş menüsüne eklemek istediğimde, makroyu kullanırken hata alıyorum. sorun nereden kaynaklanıyor olabilir ?

http://prntscr.com/b4lrzh
http://prntscr.com/b4ls22

Sub Eko()
Application.ScreenUpdating = False
For x = 3 To Cells(Rows.Count, "C").End(3).Row
If Range("C" & x) <> "" And Range("A" & x) = "" Then Range("A" & x) = Range("A" & x).Offset(-1, 0)
If Range("C" & x) <> "" And Range("B" & x) = "" Then Range("B" & x) = Range("B" & x).Offset(-1, 0)
Next x
Application.ScreenUpdating = True
End Sub

 

[Necdet]

Merhaba,

x değerini tanımlamamışsınız.

Dim x as long
gibi tanım yapınız.

 

[Baggwell]

Teşekkür ederim, bu kadar kolay olmasına sevindim açıkçası