Soru Ado İmex=1 sorun

[FERAZ]

Merhaba.
Resimdeki gibi harfler comboda çıkmıyor ımex olayı kodda olsa bile.
Sütun biçimini Metin yaparsam sorun yok.
ilk 8 satırda harf varsada sorun yok.
Acama biçim Metin yada ilk 8 satıra harf girilmeden sorun nasıl giderilir?

https://dosya.co/0vbmfxzjzg5o/Ado_Hata.rar.html

 

[muygun]

Merhaba;
UserForm_Initialize kodlarını;


Private Sub UserForm_Initialize()

Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no;imex=1"""
Call Me.Listbox
Call Me.Combo("")

Dim sh As Worksheet
Set sh = Sheets("xxx")
For x = 2 To sh.Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(sh.Range("b2:b" & x), sh.Cells(x, 2)) = 1 Then
ComboBox1.AddItem sh.Cells(x, 2).Value
End If
Next
End Sub

Şeklinde değiştirerek deneyin.
İyi çalışmalar.

 

[FERAZ]

Merhaba.

Döngü ile olmayacak.
Sağolunuz

 

[FERAZ]

Kodları alttaki gibi yapınca veriler geliyor.Galiba başkada bir çözüm yok.

Private Sub UserForm_Terminate()
    xxx.Range("B:B").NumberFormat = "General"

Private Sub UserForm_Initialize()
    xxx.Range("B:B").NumberFormat = "@"

 

[FERAZ]

If .ComboBox1.Text <> "" Then sql = sql & " and f1'" & .ComboBox1.Value & "'"

Ayrıyeten yukarıdaki kodda like eklemeyi unutmuşum.Deneyen olurda hata alırsa bilreyim istedim.

If .ComboBox1.Text <> "" Then sql = sql & " and f1 like '" & .ComboBox1.Value & "'"

 

[ÖmerBey]

Merhaba,
İstediğiniz çözüm değil belki ama sütun formatını komple metne çevirmenize gerek yok. Sizin de ifade ettiğiniz gibi ilk sekiz satırda bir tane metin olması yeterli. Yani tek bir hücrenin formatını metne çevirmenizin yeterli olması gerek.

 

[FERAZ]

Merhaba.
Tek bir hücrenin formatını metin yapmadanda çözüm yokmudur?
MaxScanRows=0 vs... her türlüsünü denedim olmadı.
Sağolunuz.