comboboxta seçtiğim değer sonucunda textboxun içindeki formulün çalışması

[ismail22554466]

merhabalar,
2 tane comboboxum var bunların içinde illerimiz var.
ben istiyorum ki kullanıcı bu şehirleri seçtiği zaman textboxta bu iller arasındaki mesafeyi göstersin.

 

[ÖmerFaruk]

Bazı açık olmayan hususları aşağıdaki gibi varsayarak

• İllerin isimleri ve arasındaki mesafeler 81x81 ebatlarında bir matristir
• Bu matris Sayfa1 dedir
• İller Sütunda A2:A82 ve Satırda B2:"82.sütunun etiketi"2 aralığında
• Matrisin içi de satır ve sütunların kesiştiği iller arası mesafeleri yazıyordur

TextBox1=Worksheets("Sayfa1").Cells(ComboBox1.ListIndex+2,ComboBox2.ListIndex+2)

 

[ÖmerFaruk]

Öncelikle teşekkür ederim. varsayımlarınız aynen doğru , bu şekilde userformu çalıştırdığımda 2 farklı ili seçiyorum ancak bana aralarındaki mesafeyi getirmiyor yanlışım ne acaba ?

Öncelikle özelden yazmanıza gerek yok. Forum herkes için.

Excel sayfanızda ne yaptığınızı ve Combolarına nasıl veri aldığınızı görmeden bir şey diyemem.
Çalışma dosyanızı paylaşırsanız yardımcı olayım.

 

[ismail22554466]

Teşekkür ederim öncelikle forumda yeniyim dosya paylaş butonunu bulamıyorum.
Distances sheetinde il verilerim var bunları userformda oluşturduğum "FROM" VE "TO" captionlu 2 comboboxların içine atadım.şu şekilde;

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "'Distances'!B3:B83"
ComboBox2.RowSource = "'Distances'!B3:B83"

End Sub

yani B3 den B83 'e kadar dikey olarak 81 ilimiz var.
ve C2 den CE82 ye kadarda yatay olarak il isimlerimiz var. ben iki comboboxun verilerinide B sütunundan seçtim ( Acaba bu ilk yanlışım olabilir mi?)
bunların içindede mesafeler var.


sonrada Userfomda comboboxların altınada textbox oluşturdum ve bu da kullanıcı 2 comboboxtan illeri seçtiği anda bana ikisi arasındaki mesafeyi getirmesini istediğim bölüm. Ancak sonucu bir türlü getiremiyorum.

 

[ÖmerFaruk]

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B3:B5"
ComboBox2.RowSource = "Sayfa1!B3:B5"
End Sub
Private Sub ComboBox1_Change()
    Call MesafeGöster
End Sub
Private Sub ComboBox2_Change()
    Call MesafeGöster
End Sub
Sub MesafeGöster()
    If ComboBox1.ListIndex = -1 Then Exit Sub
    If ComboBox2.ListIndex = -1 Then Exit Sub
    Satır = ComboBox1.ListIndex + 3 ' ilk kesişen hücre C3
    Sütun = ComboBox2.ListIndex + 3 ' ilk kesişen hücre C3
    TextBox1 = Worksheets("Sayfa1").Cells(Satır, Sütun)
End Sub

Ben bu kodları yazdım. Sizin dediğiniz aralıkların başlangıcını baz aldım ancak sadece 3 il yazdım. Kod çalıştı. Bunu kendinize uyarlayabilirsiniz.

 

[ismail22554466]

Yardımlarınız için Çok teşekkür ederim.Halloldu.