label'de formül

[qrrxz]

merhabalar,

sabahtan beri arıyorum bi türlü bulamadım forumda.

sayfa1 üzerine oluşturduğum label2'de safya2'deki a3 hücresini sayfa 3'deki a3 hücresinden çıkarıp buraya "sonuç = xxx" yazmasını istiyorum. ve her zaman değişiklik olduğunda buranın otomatik değişmesini.

teşekkür ederim şimdiden..

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
Sayfa1.Label1 = [a1]
End Sub

Kodu kendinize göre revize ediniz.

 

[qrrxz]

Private Sub Worksheet_Change(ByVal Target As Range)
Sayfa1.Label1 = [a1]
End Sub

Kodu kendinize göre revize ediniz.

bu şekilde yaptım fakat olmadı. verdiğiniz kodları hem sheet içine hemde thisworkbook içine yerleştirdim fakat çalışmıyor. ayrıca ben label içinde bir formül çalışması istiyorum.

 

[Seyit Tiken]

C2 hücresine değer girerek sonucu gözlemleyin. İlgili dosya ektedir.

 

[veyselemre]

Sayfa1 in kod sayfasına yerleştirin.

Private Sub Worksheet_Activate()
    Sayfa1.Label1 = Sayfa3.[a3] - Sayfa2.[a3]
End Sub

 

[qrrxz]

Sayfa1 in kod sayfasına yerleştirin.

Private Sub Worksheet_Activate()
    Sayfa1.Label1 = Sayfa3.[a3] - Sayfa2.[a3]
End Sub

hocam peki bu değer 0'ın altında ise yazının ve yahut label zemin renginin yanıp sönmesini nasıl sağlarız? bu konu hakkında bir bilgin var mı?

 

[goklerhakimi]

bu olur mu?
Private Sub Worksheet_Activate()
Dim deger As Long
deger = Sayfa3.[a3] - Sayfa2.[a3]
Sheet1.Label1 = deger
If deger < 0 Then
Sheet1.Label1.BackColor = &H80000018
Else
Sheet1.Label1.BackColor = &H80000013
End If
End Sub

 

[goklerhakimi]

pardon onceki kod dogrusu.