veri doğrulama

[metinavci23]

merhaba arkadaşlar.ekte sunduğum dosyadan da göreceğiniz gibi A sütununda be B sütununda değerler var.ben bu değerleri veri doğrulaması ile ayni anda (2 sütunu birden)görmek istiyorum.yardımınızı bekliyorum.şimdiden teşekür ederim

 

[hamitcan]

Ya verilerinizi birleştirerek veri doğrulama fonksiyonunu kullanın ya da aşağıdaki kodu kullanarak bir Combo nesnesi içine verilerinizi yükleyin.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ColumnCount = 2
    ComboBox1.ColumnWidths = 30
    ComboBox1.ListFillRange = "a1:b6"
End Sub

 

[entropy_tr]

3. bir sütunda BİRLEŞTİR fonksiyonuyla bu iki sütun verilerini birleştirmek ve doğrulama kaynağı olarak bu sütunu göstermek işinizi görebilir.

 

[metinavci23]

Sn.Hamitcan

Sn.Hamitcan bu Combo olayını bana bir örnek dosya oluşturarak gönderbilecekmisiniz.Ben burada gördüğüm örnek ile bu iyi yapamadım.özür dilerim size zahmet olacak ama benim durumum cok acil.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Auto_Open()
Sheets("Sayfa1").ComboBox1.ColumnCount = 2
Sheets("Sayfa1").ComboBox1.ListFillRange = "Sayfa1!A1:B" & Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sayfa1").ComboBox1.ListCount > 0 Then
    Sheets("Sayfa1").ComboBox1.ListIndex = 0
End If
End Sub

 

[metinavci23]

Sn.Orion.merhaba
Ornek dosyanıza baktım.güzel olmuş ancak ben A sütunundaki ve B sütunundaki verileri alt alta görmek istiyorum.Birde şunu söyleyeyim size B sütunundaki rakamlar Sayfa2'den alınacak.çorluya selamlar.Dün Oradaydım

 

[Orion1]

Sn.Orion.merhaba
Ornek dosyanıza baktım.güzel olmuş ancak ben A sütunundaki ve B sütunundaki verileri alt alta görmek istiyorum.Birde şunu söyleyeyim size B sütunundaki rakamlar Sayfa2'den alınacak.çorluya selamlar.Dün Oradaydım

Şimdi alt alta listeleniyor.
Ekli dosyayı inceleyiniz.

Sub Auto_Open()
Sheets("Sayfa1").ComboBox1.Clear
For i = 1 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
    For k = 1 To 2
        Sheets("Sayfa1").ComboBox1.AddItem Sheets("Sayfa2").Cells(i, k).Value
    Next k
Next i
If Sheets("Sayfa1").ComboBox1.ListCount > 0 Then
    Sheets("Sayfa1").ComboBox1.ListIndex = 0
End If
End Sub

 

[metinavci23]

Sn.Orion

iki sorum daha olacak
1.Bu Combonun yerini nasıl ayarlayabilirim.(Mesela a1 Hücresinde olmasını istiyorum)
2.Sizin Verdiğiniz ornek dosyaya göre, eğer G2 10 değeri var ise H2 ye nasıl combodaki rakam ile g2'deki rakamların nasıl çarpımını alabilirim.Kusura bakmayın biraz fazla soru soruyorum ama....

 

[Orion1]

Ekli dosyayı inceleyiniz.