Hücredeki adrese atıf

[desıgner1]

Merhaba arkadaşlar.

C3 te değişken bir hücre adresi olacak (şu an için K3 diyelim)

İsteğim şu:

A1 = C3 te yazılı olan hücrenin font regi ( yani K3 hücre font rengi )

Vba dilinde bunu nasıl yazabilirim acaba ?

 

[askm]

Sub askm()
On Error Resume Next
Renk = Range(Range("C3").Value).Interior.Color
[A1] = "RGB(" & (Renk Mod 256) & ", " & ((Renk \ 256) Mod 256) & ", " & (Renk \ 65536) & ")"
End Sub

 

[desıgner1]

Ellerinize sağlık.
Çok çok teşekkür ederim.

 

[askm]

Rica ederim. İyi akşamlar.