userform caption özelliği

[mustafa7691]

Sn Dostlar,user formun capatıon özelliği yani üzerinde görünen adını belirli bir hücreden alması mümkünse nasıl yapabiliriz yardımcı olurmusunuz.saygılarımla

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
UserForm1.Caption = [sayfa1!a1]
End Sub

Şeklinde deneyiniz.

 

[mustafa7691]

Sn Seyit Tiken teşekkür ederim ancak aşağıdaki gibi uyguladım ama cevap alamadım.

Private Sub Worksheet_Change(ByVal Target As Range)
AŞIKAYIT1.Caption = [Sayfa2!A1]
End Sub



(userform adını aşıkayıt1 olarak değiştirmiştim)

 

[Seyit Tiken]

Sayfa2'den hücrden Form Başlığına veri bağlantısı yapılacaksa, ilgili kodu Sayfa2'nin kod bölüme yapıştırmanız gerek. Aksi takdirde kod çalışmaz. Büyük ihtimale böyle bir şey yapmış olabilirsiniz. Çünkü Formun adını değiştirerek denenmesine rağmen kod çalıştı. Hatalı uygulama söz konusu.

 

[TheGreatest]

Private Sub UserForm_Activate()
aşıkayıt1.Caption = [Sayfa1!A1]
End Sub

 

[mustafa7691]

ilginize teşekkür ederim.sanırım sorun sayfa adında imiş.Sayfa1 olarak bir sayfa gösterdiğimde Sn TheGreatest in vermiş olduğu kodla çalıştırabildim.saygılarımla