combobox dan veri doğrulama yapmak

[inowjoin]

merhabalar
ben bir liste oluşturdum ve buna bir ad verdim düşeyara formülü için veri doğrulama ile listeledim fakat listeye görsel olarak müdahele edilemediğinden bunu açılır pencere olarak yaptım fakat bu sefer düşey ara formülü çalışmadı atıyorum a1 hücresinden değeri alıyordu şimdi orda combobox var
bunu nasıl yapabilirim
teşekkürler

 

[Orion1]

Merhaba.
Tasarım moduna geçiniz.Ve çalışma sayfasındaki combobox'ın üzerine 2 kere tıklayınız.Ve açılan kod sayfasına aşağıdaki kodu yapıştırınız.
Combobox'a her tıkladığınızda combobox'ın içindeki değer A1 hücresine yazılacaktır.
Kolay gelsin.

Private Sub ComboBox1_Click()
Range("A1").Value = ComboBox1.Value
End Sub

 

[inowjoin]

teşekkürler

Merhaba.
Tasarım moduna geçiniz.Ve çalışma sayfasındaki combobox'ın üzerine 2 kere tıklayınız.Ve açılan kod sayfasına aşağıdaki kodu yapıştırınız.
Combobox'a her tıkladığınızda combobox'ın içindeki değer A1 hücresine yazılacaktır.
Kolay gelsin.

Private Sub ComboBox1_Click()
Range("A1").Value = ComboBox1.Value
End Sub

işime yaradı fakat şimdi şöyle bir problem çıktı ben kodları bozmasınlar diye sayfaya koruma koydum çalışılan tüm hücreler ve karma kutunun kilidini kapattım seçim yaptığım zaman sonuç çıkmadan önce değiştirmeye çalıştığınızı hücre veya grafik parola korumalıdır . diyor ama işlemide yapıyor başka nerden açmam lazım korumaları

 

[Orion1]

Merhaba.
A1 hücresinin ve karma kutunun kilidini kaldırınız.

 

[inowjoin]

tüm bu işlemleri yaptım hatta seçim sonucu düşey aramaya göre veri yazılan hücrelerin korumalarını da açtım sonuç aynı

Sorunu çözdüm linkedCell Hücresi olarak atadığım hücredeki kilidi kaldırmayı unutmuşum

 

[Orion1]

Merhaba.
Kodu şu şekilde değiştirerek deneyiniz.

Private Sub ComboBox1_Click()
ActiveSheet.Unprotect
Range("A1").Value = ComboBox1.Value
ActiveSheet.Protect
End Sub