hücre combobox

[DeathMoment]

Arkadaşlar Kitap5 dosyasındaki TC No (A5) hücresine koyacağımız bir combobox ile Kitap3 dosyasındaki TC Nolarını sıralama şansımız var mı?

 

[irgensevket]

veri doğrulama ile yapabilirsiniz.

veri doğrulama için liste değerini seçerken başka bir sayfayı seçemiyoruz.

ya manüel yazarsınız yada kopyalayıp yapıştırırsınız aralık listesini

=[Kitap3.xls]DATA!$B$2:$B$800....

örnek dosyalarınızı kullanmaya müsaade ediyor musunuz bu arada

 

[DeathMoment]

diğer sayfadan listelemem lazım gerekiyor işte onu nasıl halledebilmemizin bir yolu yok mu?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu "Kitap5" isimli kitabınızın "ThisWorkbook" bölümüne uygulayın.

Private Sub Workbook_Open()
    Dim objExcel, objWorkBook, veri, dizi, eleman
        
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    Set objWorkBook = objExcel.Workbooks.Open(ThisWorkbook.Path & "\kitap3.xls")
    Set dizi = New Collection
    
    On Error Resume Next
    For Each veri In objWorkBook.Sheets("DATA").Range("b2:b" & objWorkBook.Sheets("DATA").Cells(objWorkBook.Sheets("DATA").Rows.Count, 2).End(3).Row)
        dizi.Add veri, CStr(veri)
    Next
    On Error GoTo 0
    
    Sheets("Sayfa1").ComboBox1.Clear
    
    For Each eleman In dizi
        Sheets("Sayfa1").ComboBox1.AddItem eleman
    Next
    
    objWorkBook.Close False
    objExcel.Quit
    
    Set objWorkBook = Nothing
    Set objExcel = Nothing
End Sub

Yine aynı kitabın "Sayfa1" isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub ComboBox1_Change()
    On Error Resume Next
    Range("A5") = ComboBox1
End Sub

 

[DeathMoment]

Sorun halloldu teşekkür ederim

 

[DeathMoment]

Veri doğrulama ile hallettim fakat dosya kapalı iken sıralamıyor dosya kapalı iken sıralamasını nasıl sağlayabiliriz?