Hücreden Statusbar ve Userforma veri alma

[tufan03]

Sayfa1'deki herhangibir hücreden Statusbar ve Userform başlığına (Caption) veri alınabilirmi.Teşekkür ederim.

 

[hamitcan]

UserForm1.Caption = [a1]

Application.StatusBar = [a1]

şeklinde kullanabilirsiniz.

 

[Recep İpek]

Userformun açılışına aşağıdaki kodları yazabilirsiniz.

Private Sub UserForm_Initialize()
UserForm1.Caption = [a1]
Application.StatusBar = [b1]
End Sub

 

[N.Ziya Hiçdurmaz]

Private Sub UserForm_Initialize()
Caption = [A1].Value
Application.StatusBar = [A1].Value
End Sub

 

[serinci]

user form üzerine tanımladığım bir butona aşağıdaki kodu uyguladım sanırım istediğiniz oldu

Private Sub CommandButton1_Click()
Application.StatusBar = "Status Bara ne yazacaksınız"
UserForm1.Caption = "Userform Başlığı Değişiyor...."
End Sub

eğer user form açıldğında değişmesini istiyorsanız

Sub Userform_open()
Application.StatusBar = "Status Bara ne yazacaksınız"
UserForm1.Caption = "Userform Başlığı Değişiyor...."
UserForm1.Show
End Sub

olarak uygulayabilirsiniz.

hücre değerini aldırmak için

Private Sub CommandButton2_Click()
Application.StatusBar = Sayfa1.Range("B1")
UserForm1.Caption = Sayfa1.Range("B2")
End Sub

olarak sanırım işinizi görecektir.

 

[tufan03]

Sayın Ripek,V.Basic For Applications ve Serinci teşekkür ederim.

 

[Recep İpek]

Sayın Ripek,V.Basic For Applications ve Serinci teşekkür ederim.

Sn.hamitcan'ı atladınız sanırım.

 

[hamitcan]

Hatırladığınız için teşekkürler, Sayın Ripek.

 

[iaydin20]

merhaba;

peki satastus barın 2.indexsine c1 hücresini yazdırmak için nasıl yazmalıyız yardımcı olabilirmisiniz. Teşekkür ederim