İki Hücrenin İçindeki Verileri ve İki Açılır Listedeki Verileri Birbiriyle Aynı Yapma

[_wizard_]

B3 veya D3 Hücrelerinden hangisine veri girişi yapılırsa diğer hücre de aynı bilginin gözükmesini nasıl sağlayabilirim. Yani B3 Hücresine bir değer girildiğinde D3 Hücresinde gözükecek , D3 Hücresine veri girişi yapıldığında B3 hücresinde aynı veri gözükecek.
Aynı Şekilde açılır listelerin hangisinden bilgi seçilirse seçilsin, öteki açılır listede aynı bilgi gözükmesi için nasıl bir formül kullanılabilinir.

 

[Haluk]

Teknik olarak istedikleriniz mümkün değil.

Ne amaçladığınızı anlayabilsek, başka çözümler geliştirilebilir.

.

 

[antonio]

B3 veya D3 Hücrelerinden hangisine veri girişi yapılırsa diğer hücre de aynı bilginin gözükmesini nasıl sağlayabilirim. Yani B3 Hücresine bir değer girildiğinde D3 Hücresinde gözükecek , D3 Hücresine veri girişi yapıldığında B3 hücresinde aynı veri gözükecek.
Aynı Şekilde açılır listelerin hangisinden bilgi seçilirse seçilsin, öteki açılır listede aynı bilgi gözükmesi için nasıl bir formül kullanılabilinir.

Merhaba
Ekteki dosyayı inceler misiniz?

 

[_wizard_]

Teknik olarak istedikleriniz mümkün değil.

Ne amaçladığınızı anlayabilsek, başka çözümler geliştirilebilir.

.

Formüllerle yaptığın bir tabloda açılır listedeki veri ve bir hücreye yazdığım bilgilerle başka sayfalardan birçok veriyi aynı sayfada gösteriyor. oluşturduğum sayfa yatay olarak çok uzun olduğundan tek sayfaya sığmıyor onun için açılır listeyi en sola ve en sağdaki bir yere yerleştirmeye çalıştım.

 

[antonio]

Sayın wizard,
Dosyayı incelemeniz için link:
http://www.dosya.tc/server10/x4dl52/acilir_veri_dogrulamayi_esitlemek-antonio.rar.html

 

[systran]

ekli dosyayı inceleyiniz. SARI renkli hücrelere dikkat edin.
hücrelerin üzerine textboxlar eklenerek sanki hücreye bilgi yazıyormuş gibi görünür.
textbox içine yazılanlar hücrelere de yazılır. makroları etkinleştirmeyi unutmayın.

Private Sub TextBox1_Change()
TextBox3.Text = TextBox1.Text
Sayfa1.Range("B4") = TextBox1.Text
Sayfa1.Range("D4") = TextBox1.Text
End Sub

Private Sub TextBox3_Change()
TextBox1.Text = TextBox3.Text
Sayfa1.Range("B4") = TextBox3.Text
Sayfa1.Range("D4") = TextBox3.Text
End Sub

 

[_wizard_]

Sayın wizard,
Eklediğim dosyayı incelediniz mi?

Ekli dosyayı üyeliğimizden dolayı inceleyemiyoruz



Resimdeki Birleşik Kutu (Form Denetimi) ile sorunu çözdüm.

 

[antonio]

Ekli dosyayı üyeliğimizden dolayı inceleyemiyoruz

5.No'lu Mesajıma Dosyanın Linkini ekledim