Uyarı veren label

[ahmett46]

Selam arkadaşlar
Ekteki dosyada bir multipage oluşturdum page1 de label var page2 de textbox var. sayfa 1 deki a1 hücresini tektbox a alacak textboxtaki rakam 7500 den büyük olduğunda labele yanıp sönen 2 rakamı yazacak, 10000 den büyük olduğunda yanıp sönen 3 rakamı yazacak. labeldeki yanıp sönen rakam diğer textbox a yazıldığında yanıp sönme işlemi dursun. aynı şekilde 3 rakamı içinde aynı şey geçerli olacak. Benim için imkansız ama sizler için zormu bir şey istedim bilmiyorum Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[ahmett46]

Yokmu Yardim Edecek Kİmse

 

[ahmett46]

Yanıp sönen olmasın sadece kategorileri aştığı zaman 2 vya 3 yazan bir kod olsun.

 

[karadami]

istediğiniz böyle birşey mi ?

 

[ahmett46]

Teşekkürler olabilir. Peki labeldeki yazının renk değiştirmesi mümkün mü? 2. textbox a; labelde 2 yazdıktan sonra 2 yazdığımızda zemin rengini yani labelin rengine dönüştürebilirmiyiz? Tekrar teşekkürler...

 

[karadami]

Private Sub TextBox27_Change()
If TextBox27.Value = 2 Or TextBox27.Value = 3 Then Label43.Caption = ""
If TextBox27.Value = 2 Or TextBox27.Value = 3 Then Label43.BackColor = &HE0E0E0
End Sub

texbox27 nin kodlarini bu sekilde değiştirip denermisiniz....

 

[ahmett46]

Teşekkürler hocam

 

[ahmett46]

Hocam ilk açtığımızda sonuç veriyor. Fakat textbox taki rakamı ikinci değiştirmeden sonra sonuç vermiyor. Örneğin a1 deki rakam 7500 ise makroyu çalıştırdığımızda labelde 2 görünüyor. textbox a 2 yazdığımızda yazı zemin rengine dönüşüyor. textbox a tekrardan 1 veya 3 yazdığımızda 2 rakamı yine görünmüyor. labeldeki yazı textbox a aralıktaki doğru sayıyı girdiğimizde zemin rengine dönüşsün yanlış sayı girdiğimizde tekrar rakam görünsün. teşekkürler

 

[karadami]

4. mesajdaki dosyayı güncelledim. kontrol edin lütfen ....

 

[ahmett46]

tEŞEKKÜRLER hOCAM

 

[ahmett46]

Bu kodları fazla kod içeren bir programa ekledim sonuç alamıyorum. A1 hücresindeki rakamı multipageden kaydet butonuyla değiştiriyorum textboxta eski rakam duruyor. anında değişmiyor. buna bağlı olarak labeldeki işlemde değişmiyor. diğer kodlardan etkilenmeyen textboxtaki rakam kaydet butonuyla değiştirdiğimiz an değişen bir kod arıyorum. Bilen arkadaşlar lütfen yardım

 

[hsayar]

eklediğiniz userformda label ve textbox adlarınız aynımıdrı önce bunu kontrol ediniz.

 

[ahmett46]

Aynı değil hocam

 

[hsayar]

Private Sub TextBox27_Change()
If TextBox27.Value = 2 Or TextBox27.Value = 3 Then Label43.Caption = ""
If TextBox27.Value = 2 Or TextBox27.Value = 3 Then Label43.BackColor = &HE0E0E0
End Sub

ozaman değiişince (textbox27) değişecek (label43) adlarını kodlarda düzenleyiniz

 

[ahmett46]

Slm
ekteki dosyada bir değişiklik yaptım. ama istediğim şey yine olmadı. UserFormu açtığımızda hepsi boşken textbox28 e 1 yazıyorum, box3 e 7500 den küçük bir sayı yazıp kaydet diyoruz. istediğim şey a2 ile textbox28 birbirine eşit ise label boş kalsın. eşit değilse a2 yi yazsın. bi türlü beceremedim. Yardımcı olacak arkadaşlara şimdiden teşekkürler. Dosya ektedir.

 

[meslan]

Merhaba. kodu Userforma uygulayınız. Kolay gelsin

Private Sub UserForm_Activate()
If Sheets("Sayfa1").[a2] = TextBox28 Then
Label1 = ""
Else
Label1 = Sheets("Sayfa1").[a2]
End If
End Sub

 

[ahmett46]

Teşekkürler hocam istediğim şekilde değil. UserFormu açtığımda textbox28 1 olarak farzedelim. box3 ile yeni kayıt girdiğimde örneğin 1000 girdim label boş kalacak, 8000 girdim labeldeki sayı 2 olarak değişmesi gerekiyor. textbox a 2 yazdığımda label silinecek. tekrar örneğin 9000 girdim label boş kalmalı teşekkürler

 

[meslan]

Sorunuzu anlamaya çalıştım. Anladığım. A1 Hücresindeki değere göre A2 değer alacak. doğrumu.

 

[ahmett46]

evet kaydet tuşuyla a1 i değiştirebiliyoruz. dolayısıyla formülle de a2 değişiyor. Label1.Caption = [a2] ile a2 deki veri labelde görünüyor. labeldeki veri ile yeni kaydettiğimiz veri eşit ise label boş kalacak. değilse a2 yi yazacak yani girdiğimiz veri öncekine eşit ise boş kacak. teşekkürler

 

[meslan]

Sn. Ahmett46 Dosyanız ekte umarım istediğiniz budur. Hayırlı geceler.