İki kıstasa göre bilgi alma (Uçuş)

[nane]

Merhabalar,

Sayfa3 de uçak uçuş bilgileri var. Kalkış ve varış yerine göre Sayfa4 e nasıl getirebiliriz. Şu an kafam durdu nasıl yapacağımı bir türlü bulamadım düşeyara kullansam bilemedim. Kod makro ile de olabilir.

Yardımlarınız için şimdiden teşekkürler

Yb

 

[serqet]

Merhabalar,

Sayfa3 de uçak uçuş bilgileri var. Kalkış ve varış yerine göre Sayfa4 e nasıl getirebiliriz. Şu an kafam durdu nasıl yapacağımı bir türlü bulamadım düşeyara kullansam bilemedim. Kod makro ile de olabilir.

Yardımlarınız için şimdiden teşekkürler

Yb

ben uçuş numarasını gireyim diğer bilgiler otomatikmi gelsin istiyorsunuz?

 

[Merhum İdris SERDAR]

Merhabalar,

Sayfa3 de uçak uçuş bilgileri var. Kalkış ve varış yerine göre Sayfa4 e nasıl getirebiliriz. Şu an kafam durdu nasıl yapacağımı bir türlü bulamadım düşeyara kullansam bilemedim. Kod makro ile de olabilir.

Yardımlarınız için şimdiden teşekkürler

Yb

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html


.

 

[nane]

ben uçuş numarasını gireyim diğer bilgiler otomatikmi gelsin istiyorsunuz?

Kalkış şehrini ve iniş şehrini (Hava limanı) seçtiğimde bütün uçuşlar listelensin daha sonra fiyat aralığına göre sıralayalım.

Yardımlarınız için teşekkürler

 

[serqet]

Kalkış şehrini ve iniş şehrini (Hava limanı) seçtiğimde bütün uçuşlar listelensin daha sonra fiyat aralığına göre sıralayalım.

Yardımlarınız için teşekkürler

İstediğiniz işlemi formüle gerek kalmadan sayfa3 ten direk süzerek yapabilirsiniz?

 

[nane]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html


.

Gerçekten örnekler çok güzel ve faydalı ellerinize sağlık teşekkürler.

Fakat ben kendim hangi formüle göre yapacağımı hala kestiremedim.

 

[nane]

İstediğiniz işlemi formüle gerek kalmadan sayfa3 ten direk süzerek yapabilirsiniz?

Süzgeç aynı sayfa üzerinde olduğundan veri silinmesine neden olabileceğinden dolayı istemiyorum.

Sonuçların başka sayfada çıkmasını istiyorum.

 

[Murat OSMA]

■ Module Kodları;

Public con As Object, rs As Object

Sub Emre()
    UserForm1.Show
End Sub

Sub Evn()
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""
End Sub

■ UserForm Kodları;

Private Sub CommandButton1_Click()
    Dim sorgu As String
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Then Exit Sub
    Sayfa2.Range("E7:O500").ClearContents
    Sayfa2.Range("E7:O500").Borders.LineStyle = 0
    sorgu = "Select [Uçuş], [Kalkış], [Varış], [Süre], [Havayolu], [Promosyon], [Esnek], [Business], '', [Bilet], [Check-In] from [Sayfa3$] where [Kalkış]='" & ComboBox1.Value & "' and [Varış]='" & ComboBox2.Value & "'"
    rs.Open sorgu, con, 1, 1
    Sheets("Sayfa4").Range("E7").CopyFromRecordset rs
    Sayfa2.Range("E7").CurrentRegion.Borders.LineStyle = 1
    rs.Close
End Sub

Private Sub UserForm_Activate()
    Call Evn
    ComboBox1.Column = con.Execute("select distinct [Kalkış] from [Sayfa3$] where not isnull([Kalkış])").getrows
    ComboBox2.Column = con.Execute("select distinct [Varış] from [Sayfa3$] where not isnull([Varış])").getrows
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set rs = Nothing
    Set con = Nothing
End Sub

Ek'teki dosyayı bir deneyiniz...

 

[nane]

Aşağıdaki hatayı veriyor.

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""

 

[Murat OSMA]

Lütfen mesajınızdaki gereksiz alıntıyı silin...

Dosya üzerinde çalışırken xls (2003) formatında kaydetmiştim.

Belirttiğiniz satırı şu satırlar değiştirin;

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""

 

[Murat OSMA]

Bu arada, siz benim gönderdiğim dosyayı kullanmıyor musunuz ?
Onda hata vermemesi gerekir...

Eğer kodları kendi dosyanıza ekleyecekseniz, yine hata verecektir...

 

[baydeniro]

Sayın Murat Osma, çok teşekkürler.

 

[Murat OSMA]

Rica ederim Serdar Bey..

İyi akşamlar.

 

[nane]

Murat bey sizin gönderdiğiniz dosyada hata veriyor zaten onu kullanıyorum.
2003 olan dosyaları 2007 de kullanabiliyoruz diye biliyorum.

Sanırım ben yapamadım. Uzer form üzerine açmaya çalışıyor. Yani user formdan şehir seçemiyorum.

 

[Murat OSMA]

Bende herhangi bir hata vermiyor... :dusun:

Buyrun. videoyu izleyin...
[FLASH]http://s14.directupload.net/images/120525/agvoxycr.swf width=791 height=370[/FLASH]

Bilgilendirmedir: 2003 dosyaları 2007'de kullanamıyorsunuz demedim, demek te istemedim.
2003 dosyalarını 2007'de açmak başka, verdiğim kodla (ADO ile) bağlanmak başka şeylerdir.
Kodların hata vermemesi için, 2007 ve üzeri dosyalarda son verdiğim kod ile bağlantı oluşturulur. 2003'te ise ilk verdiğim ve sizin hata verdiğini belirttiğiniz şekilde bağlantı sağlanır.

Sonuç: Dosyada herhangi bir sorun yok...

Siz direkt olarak verdiğim dosyayı denediniz değil mi ? Herhangi bir kod ilave etmediniz ?

 

[assenucler]

Sayın Murat Osma;

iyi akşamlar.

Emek ve katkılarınız için teşekkürler. Arşivime ekledim.

Sevgi ve saygılar.

 

[Murat OSMA]

Rica ederim Ahmet Bey,

Herhangi bir hata ile karşılaştınız mı acaba ? :dusun:

 

[assenucler]

Hayır, çok güzel çalışıyor...

 

[Murat OSMA]

Teşekkür ederim Ahmet Bey, içim rahatladı...

İyi akşamlar...

 

[nane]

Murat OSMA öncelikle ellerinize sağlık.
Fakat ben bir türlü çözemedim. ADO konusunda hiçbir şey bilmiyorum.

Hata mesajını gönderiyorum.
Userform kullanılamıyor ve üzerine Run-time error '3706': Sağlayıcı bulunamıyor. Düzgün yüklenmemiş olabilir. mesajı çıkıyor

İlginiz için teşekkürler