Açıklama Notu Boşsa Hata Veriyor

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod, A2 hücresinde açıklama varsa C5 hücresine bu açıklamayı yazdırıyor. Ama AÇIKLAMA YOKSA hata veriyor.
Bu kodu hata vermeyecek şekilde revize etmek mümkün mü acaba !

Range("C5") = Range("A2").COMMENT.Text

 

[karatren84]

hocam bu şekilde deneyin


if Range("a2") = "" then

Range("c5") = ""

else
Range("C5") = Range("A2").COMMENT.Text

end if

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi kullanabilirsiniz.
.

[C5].ClearContents
If Not [A2].Comment Is Nothing Then [C5]=[A2].Comment.Text

 

[baydeniro]

karatren84 ilgin için çok teşekkür ediyorum. Sağlıcakla kalınç

 

[baydeniro]

Ömer BARAN üstadım çok teşekkür ediyorum, elleriniz dert görmesin. Sağlıcakla kalın.