Hücre değeri label da görünsün

[barışD34]

Selam ,
Başlıkta belirttiğim üzere , herhangi bir makro aktif edilme durumu olmadan,
sayfaya ekleyeceğimiz bir kod ile hücre değerini label üzerine atayabilir miyiz?

Site üzerinde bazı geçmiş örnekler denedim sonuç alamadım.

 

[Levent Menteşoğlu]

Sorunuz açık değil. Label, sayfa üzerinde mi yoksa userform üzerinde mi? Bu hücredeki veri, hangi durumda label içine aktarılacaktır?

 

[barışD34]

Haklısınız Levent bey,
Userform değil , sayfa üzerinde.

Sorunuz açık değil. Label, sayfa üzerinde mi yoksa userform üzerinde mi? Bu hücredeki veri, hangi durumda label içine aktarılacaktır?

 

[Levent Menteşoğlu]

Sayfanın kod sayfasına aşağıdaki kodu kopyalayarak deneyin.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("Label1").OLEFormat.Object.Object = Range("A1").Value
End Sub

 

[barışD34]

Levent bey sanırım ben bir noktada hata yapıyorum ,
birçok örnek denedim bir türlü hücreden veri getiremedim.
Bu örnekte de sonuç alamadım.
Bir noktayı eksik yapıyorum sanırım.
Doğrudan sayfanın kod bölümüne yapıştırıyorum.
A1'de değer giriyorum , veri gelmiyor.

Sayfanın kod sayfasına aşağıdaki kodu kopyalayarak deneyin.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("Label1").OLEFormat.Object.Object = Range("A1").Value
End Sub

 

[Levent Menteşoğlu]

Levent bey sanırım ben bir noktada hata yapıyorum ,
birçok örnek denedim bir türlü hücreden veri getiremedim.
Bu örnekte de sonuç alamadım.
Bir noktayı eksik yapıyorum sanırım.
Doğrudan sayfanın kod bölümüne yapıştırıyorum.
A1'de değer giriyorum , veri gelmiyor.

Verdiğim event sayfayı aktif edince çalışır. Başka bir sayfayı seçip sonra tekrar aynı sayfaya geri dönün. Eğer A1'deki veriyi değiştirince çalışsın istiyorsanız change olayına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Label1").OLEFormat.Object.Object = Range("A1").Value
End Sub

 

[barışD34]

Teşekkür ederim Levent bey , hücre değişince değişsin istiyordum , bu defa oldu.
İyi çalışmalar dilerim.

Verdiğim event sayfayı aktif edince çalışır. Başka bir sayfayı seçip sonra tekrar aynı sayfaya geri dönün. Eğer A1'deki veriyi değiştirince çalışsın istiyorsanız change olayına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Label1").OLEFormat.Object.Object = Range("A1").Value
End Sub

 

[barışD34]

Levent bey tekrar selam ,

Denemek için yeni bir sayfada çalıştığımda kodlarınız çalışıyor.
Benim veri almamda şöyle bir sıkıntı var.

Label olanları textbox olarak değiştirdim.

Textbox3'ün veri aldığı hücrede formül var , formül olduğu için bu şekilde kod yürümüyor nedense.
Elle manuel deneyince çalışıyor.

Textbox4 ise günlük tarihi alıyor olması lazım .
onun için de gerekli kodu siteden bulup ekledim ama başarılı olmadı.

Bu her iki textbox da aynı sayfada.

Verdiğim event sayfayı aktif edince çalışır. Başka bir sayfayı seçip sonra tekrar aynı sayfaya geri dönün. Eğer A1'deki veriyi değiştirince çalışsın istiyorsanız change olayına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Label1").OLEFormat.Object.Object = Range("A1").Value
End Sub

 

[Levent Menteşoğlu]

Formül sonucu değiştiğinde çalışması için calculate olayınada yazılabilir ancak aşağıdaki gibide çalışması lazım.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("TextBox3").OLEFormat.Object.Object = Range("A1").Value
ActiveSheet.Shapes("TextBox4").OLEFormat.Object.Object = Date
End Sub

 

[barışD34]

Aslında bendeki sorun şu şekilde ;
A1 olarak tanımladığınız hücre formülle değişiyor dediğim gibi fakat o da bir onay kutusuna bağlı , raporlu gün sayısını düşüyor.
Onay kutusu tiklenince hücrede değişim olsa bile bunu algılamıyor.
Onay kutusuna makro olarak atamayı düşünüyorum.

Formül sonucu değiştiğinde çalışması için calculate olayınada yazılabilir ancak aşağıdaki gibide çalışması lazım.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("TextBox3").OLEFormat.Object.Object = Range("A1").Value
ActiveSheet.Shapes("TextBox4").OLEFormat.Object.Object = Date
End Sub

 

[barışD34]

Levent bey,
textbox4 doğrudan tarih olduğu için format değiştirebiliyorum sorun yok ama
ActiveSheet.Shapes("TextBox3").OLEFormat.Object.Object = Range("A1").Value
Bu veri hücreye bağlı olduğu için 01.01.2000 olan değeri 01/01/2000 olarak alıyor .
Noktalı biçim vermek mümkün mü?

Formül sonucu değiştiğinde çalışması için calculate olayınada yazılabilir ancak aşağıdaki gibide çalışması lazım.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("TextBox3").OLEFormat.Object.Object = Range("A1").Value
ActiveSheet.Shapes("TextBox4").OLEFormat.Object.Object = Date
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("TextBox3").OLEFormat.Object.Object = format()Range("A1").Value,"dd.mm.yyyy")
ActiveSheet.Shapes("TextBox4").OLEFormat.Object.Object = Date
End Sub