Soru Label Text Değeri Değişirse İşlem Gerçekleştir..

[stirra_ej]

Private Sub Worksheet_Change(ByVal Target As Range)

If ( Label Text değerinde değişiklik olursa ) Buraya yazılabilecek kod varmıdır acaba..
CheckBox23.Value = False
CheckBox23.Value = True
End If

 

[YUSUF44]

Bunun yerine Label text'ini değiştiren durumda bu istediğiniz yapılsa daha pratik olmaz mı? Yani bu kodları label text'ini değiştiren kodların altına yazarsanız işinizi görmez mi?

 

[stirra_ej]

Hocam zaten bu kodlar combobox ta combobox farklı bir sayfadan liste alıyor.. O listeyi ben elle dolduruyorum Elle her veri girdiğimde otomatik olarak combobox çalışıyor listrow yüzünden bu kod da çalışıyor.. Çıkmaza girdim...

o zaman ben çomboboxun veri aldığı yere elle veri girdiğimde combobox çalışmaması lazım.. ne yapabilirim

 

[YUSUF44]

Örnek dosya olmadan ne yapmak istediğinizi anlamam zor maalesef.

 

[stirra_ej]

Değerli arkadaşlar sorunu çözdüm biliyormusunuz.. Kurum Sayfasına

Private Sub Worksheet_Activate()
Sheets("Ana Sayfa").ComboBox23.ListFillRange = ""
End Sub

Kodu uyguladım ... Elle veri girdiğimde sorunu ortadan kaldırdım...

Ana sayfaya geçtiğimde de

ComboBox23.ListFillRange = "Kurum!B3:B50"

dedim....

Çok teşekkür ederim ilgilendiğiniz için