Target hatası

[emre8456]

Arkadaşlar merhaba
kodlarda target terimini kullandığım zaman hep hata mesajı alıyorum. Neden olabilir

 

[AdemCan]

Merhaba, dosya ve kodları paylaşır mısınız?

 

[emre8456]

Merhaba, dosya ve kodları paylaşır mısınız?

Adem Bey Merhaba
özel dosya olduğu için ekleyemiyorum. kodlar aşağıdaki gibi

Sub izin()
a = Target.Row
Set izinsatir = Range("d" & a, "ah" & a)
Range("d" & a, "ah" & a).ClearContents
For Each Rng2 In izinsatir

If Rng2.DisplayFormat.Interior.Color = 255 Then Rng2.Value = "HT"
If Rng2.DisplayFormat.Interior.ColorIndex = 2 Then Rng2.Value = 7.5
If Rng2.DisplayFormat.Interior.ColorIndex = 6 Then Rng2.Value = "RT"
Next


End Sub

 

[Korhan Ayhan]

TARGET ifadesi sayfa olaylarında kullanılmaktadır.

Siz Target.Row yerine ActiveCell.Row kullanabilirsiniz.

 

[emre8456]

TARGET ifadesi sayfa olaylarında kullanılmaktadır.

Siz Target.Row yerine ActiveCell.Row kullanabilirsiniz.

Tamam Teşekkürler Korhan Bey