1. Sayfa Hücre açıklamasını 2. sayfadaki hücreye kopyalama?

[makasci]

1. Sayfada bulunan a1 Hücresinin açıklamasını 2. sayfadaki a1 hücresine kopyalamak istiyorum yardım eder misiniz?

 

[Emir Hüseyin Çoban]

. . .

A1 hücresi sabit mi yoksa
Hücre adresi değişken mi olacak.

. . .

 

[makasci]

A1 hücresi sabit ama a2 a3 gibi hücrelerde de açıklama var. Onları da kopyalayacağım

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 de seçili hücrede açıklama varsa.
Sayfa2 de o hücreye yazar.

Sub kod()
On Error Resume Next
adres = Selection.Address
metin = Range(adres).Comment.Text
Sheets("Sayfa2").Range(adres) = metin
End Sub

. . .

 

[makasci]

Aşağıdaki gibi hazırladım fakat olmadı

Sub kod()
On Error Resume Next

Sheets("metin").Range("V4:AC61") = Sheets("PROJELER").Range("V4:AC61").Comment.Text

End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
On Error Resume Next
For Each alan In Sheets("metin").Range("V4:AC61")
Sheets("PROJELER").Range(alan.Address) = alan.Comment.Text
Next
End Sub

. . .

 

[makasci]

Mükemmel oldu. Çok teşekkür ederim

 

[syakar80]

Merhabalar,
Kodların nasıl çalıştığını anlamak için örnek dosyayı yükler misiniz?
Saygılarımla.