Skip to main content

AccessTr.neT


Excel De Ado İle Filtreli Sıralı Hücreden Comboboxa Liste Almak

Excel De Ado İle Filtreli Sıralı Hücreden Comboboxa Liste Almak

Çözüldü #1
bir türlü yapamadım yardım edebilir misiniz
.rar ado_sor.rar (Dosya Boyutu: 131,17 KB | İndirme Sayısı: 7)
@benbendedeilem
Cevapla
#2
zat-ı alinizin kıymetli zamanınızı boşa harcamak istemezdim  biliyorum böyle saçma şeylere ayıracak zamanınız yok ama
1 - çalışma kitabınız açılırken tanımlayamadığı değişkenler nedeniyle hata veriyor?
2 - hangi form hangi buton hangi nesne?
3 - hangi sayfadaki hangi verileri hangi kriter ve sıralamaya göre hangi durumda hangi comboya alacağız?

2008den beri üyesiniz, 2.811 mesaj yazmış, 651 konu açmışsınız acemi değilsiniz siz sorunları ve yerini ne kadar açık ifade ederseniz biz o kadar çabuk sorunu bulur zamanımız buradaki gibi abidik gubidik şeyleri yazmaya harcamak yerine sorunu çözmeye harcarız.
Cevapla
#3
haklısınız anlaşılır zannetmiştim 
frmForm1 commandbutton ile liste sayfasından cmbAra içersine liste almaya çalışıyorum
Cevapla
#4
aşağıdaki kodu dener misiniz?
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection

SQL = "SELECT [tarih]  "
SQL = Sql & "FROM [liste$A:A" & "] where  not isnull([tarih]) order by [tarih]"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
'
'  Eğer Hiç Kayıt Yoksa

If ADO_RS.RecordCount = 0 Then
    ADO_RS.Close
    ADO_CN.Close
    Set ADO_RS = Nothing
    Set ADO_CN = Nothing
    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"
    Exit Sub
End If
ADO_RS.MoveLast
ADO_RS.MoveFirst

cmbAra.Clear
cmbAra.Column = ADO_RS.GetRows
' yada aşağıdaki hy arası da olur
'''hy additem yöntemi______________________________
'Do
'    cmbAra.AddItem Format(ADO_RS(0), "dd.mm.yyyy")
'ADO_RS.MoveNext
'Loop Until ADO_RS.EOF
'''hy additem yöntemi______________________________Bitti
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing

Cevapla
#5
Ellerinize sağlık sn.berduş çok güzel olmuş
Cevapla
#6
sizin gönderdiğinizde çok güzel çalışıyor asıl programa ekleyince resmini eklediğim hatayı veriyor neden olabilir
asıl programı ekleyemem çünkü kişisel bilgileri vs çıkınca önceki eklediğimin aynısı olacak 
acaba neden bu hatayı veriyordur


[Resim: do.php?img=9468]
[Resim: do.php?img=9469]
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task