hücre = label1 nasıl yapılır...?

[mavidus]

arkadaşlar ben sayfa üzerine eklediğim label1'in a1 hücresinde ne yazıyorsa label1'de de onu yazmasını istiyorum ama bir türlü yapamadım.

 

[Mahmut Bayram]

[vb:1:3c58bc6340]Label1.Caption = Sheets("Sayfa1").Range("A1")[/vb:1:3c58bc6340]

 

[mavidus]

mahmut bayram teşekkür ederim.acaba bunu nereye yazacam
yani label1'e tıklayınca _click olayına giriyo ben cliclemeden herzaman görünmesini istiyorum.

 

[Mahmut Bayram]

[vb:1:028b142b88]Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Sayfa1").Range("A1")
End Sub[/vb:1:028b142b88]

 

[mavidus]

mahmut bayram pardon ben tam olarak anlatamadım.userform üzerine label yerleştirmedim direkt sayfa 1 üzerine yerleştirdim ve bu sayfanın üzerinde değişiklik olmasını istiyorum.

 

[Mahmut Bayram]

Denetim araç kutusundan ekledim ve kod görüntüle kısmından kodu yazdım. Label1'e tıklayınca değişiyor.
[vb:1:d72debece1]Private Sub Label1_Click()
Label1.Caption = [a1]
End Sub[/vb:1:d72debece1]

 

[Mahmut Bayram]

veya yazar yazmaz değişsin istiyorsanız.
[vb:1:1f34dfabb8]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Label1.Caption = [a1]
End Sub[/vb:1:1f34dfabb8]

 

[mavidus]

benzerini bende yaptım tıklayınca görünüyor ama tıklamadanda hücre içeriği değişince değişmesi lazım bunla ilgili bir kod yokmu acaba.

 

[Mahmut Bayram]

sayın mavidus sayfanın kod bölümüne en son verdiğim kodları yapıştırınız.

 

[mavidus]

çok teşekkür ederim.sorunum halloldu.

 

[bage]

Sn Mahmut Bayram,
ilgili sayfanın kod bölümüne yazmış olduğunuz kodu yapıştırdım.
Bendeki Türkçe Office olduğundan Etiket1 olarak değiştirdim, fakat
hata veriyor!!!!!

 

[Mahmut Bayram]

Sn Mahmut Bayram,
ilgili sayfanın kod bölümüne yazmış olduğunuz kodu yapıştırdım.
Bendeki Türkçe Office olduğundan Etiket1 olarak değiştirdim, fakat
hata veriyor!!!!!

Gene de değişmez kod aynı. benim ki offfice xp tr. Ben de etiket ekledim ve kodu yazdım.

 

[mavidus]

syn bage
forum kutusundaki etiket le olmaz.Denetim araç kutusundan label ekleyeceksin.

 

[SanaLSukuL]

Bu kodu yazark değilde
visual basic kodu:
--------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Sayfa1").Range("A1")
End Sub
--------------------------------------------------------------------------------

Resimde görüldüğü gibi yapılamaz mı?

 

[Levent Menteşoğlu]

Gösteremezsiniz. Bu özellik ancak controlsource özelliği olan nesnelerde yapılabilir, örneğin textbox gibi.

 

[SanaLSukuL]

teşekkür ederim

 

[arifdurgut]

arkadaşlar ben bir hücreye evet yazmak fare ile tıklatıncada aynı hücrede hayır yazmasını istiyorum mümkünmü acaba nasıl yapılır

 

[Mahir64]

arkadaşlar ben bir hücreye evet yazmak fare ile tıklatıncada aynı hücrede hayır yazmasını istiyorum mümkünmü acaba nasıl yapılır

Merhaba
Veri / Doruğrulama / Liste
Evet;Hayır
Olarak giriş yapınız.işinizi görecektir.