• Merhaba Ziyaretçi,
    Bayrama Özel VIP Paket %50 İndirim Fırsatından yararlanın. (bir kere öde, ömür boyu kullan)

  • Sn. Ziyaretçi,
    PEAKUP E-Book & Makale & Videoları yayınlandı.

Yardım Düşeyara & Çokeğer ve formül sorunum hk

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
45
Konum
İstanbul
Ad Soyad
ahmet aydemir
Merhaba,

Eklediğim tabloda görebileceğiniz üzere; bir kişinin aynı gün aynı saatte verdiği birbirinden farklı 3 ders adı var ki bu bir hata.
benim yapmak istediğim başka bir tabloda; aynı gün aynı saate denk gelen ders adlarının bir listesini yapmak.

(ekli dosyamda da izah ettim)

Yardımcı olabilirseniz çok sevinirim
Teşekkürler
 

Ekli dosyalar

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Merhaba,

Liste ve Sonuç adında iki sayfa ekledim ve ilgili tespiti ADO ve SQL sorgusu kullanarak ekteki gibi çözdüm.
Hem performanslı hem de kullanışlı olduğunu düşünüyorum.

Ektedir.
Kolay gelsin. ;)


Kod:
Sub aydemir()
'Range("A2:E10000").ClearContents
    Set Con = VBA.CreateObject("adodb.Connection")
    Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

Sorgu = "SELECT [OgretimElemanlari],[BaslangicSaati], [BitisSaati], [Basladigiilktarih],[Dersadi] FROM [Liste$]" _
& "WHERE ((([BaslangicSaati]) In (SELECT [BaslangicSaati] FROM [Liste$] As Tmp GROUP BY [BaslangicSaati],[BitisSaati],[Basladigiilktarih] HAVING Count(*)>1  And [BitisSaati] = [BitisSaati] And [Basladigiilktarih] = [Basladigiilktarih])))" _
& "ORDER BY [BaslangicSaati],[BitisSaati],[Basladigiilktarih]"
    
Set rs = Con.Execute(Sorgu)
    Sayfa3.Range("A2").CopyFromRecordset rs
    Sayfa3.Range("B:C").NumberFormat = "[$-x-systime]h:mm:ss AM/PM"
    Sayfa3.Range("D2:D10000").NumberFormat = "m/d/yyyy"

MsgBox "İşlem tamamlandı.", vbInformation, "Özkan Sabancı"

    Sayfa3.Select
End Sub
 

Ekli dosyalar

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
45
Konum
İstanbul
Ad Soyad
ahmet aydemir
Merhaba,

gönderdiğiniz dosyayı açtım 2045 satır olan datamı values olarak ve olması gereken tarih sayı vb formatta yapıştırdım. çalıştırduğımda aşağıdaki hatayı alıyorum

1589962470916.png

Set rs = Con.Execute(Sorgu) bu satırda hata veriyor.
Sayfa3.Range("A2").CopyFromRecordset rs
Sayfa3.Range("B:C").NumberFormat = "[$-x-systime]h:mm:ss AM/PM"
Sayfa3.Range("D2:D10000").NumberFormat = "m/d/yyyy"
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Merhaba,

Excel VBA referansları eksik görünüyor. Kod ekranında Tools->References kısmının görüntüsünü atar mısınız?


1589963091900.png
 

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
45
Konum
İstanbul
Ad Soyad
ahmet aydemir
Merhaba,

data olarak kullandığım dosya ektedir. Gerekli olan kolon adlarını sarı ile boyadım.
 

Ekli dosyalar

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Formattan kaynaklı çalışmıyor. Nihai çalışma bu mudur?
Eğer buna uygulanacak ise çözümü değiştirmek gerekecek.
 

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
45
Konum
İstanbul
Ad Soyad
ahmet aydemir
yani dosyanın temel bilgileri bu. bunu kullanabiliriz. kusura bakmayın çok uğraştırdım sizi
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
yani dosyanın temel bilgileri bu. bunu kullanabiliriz. kusura bakmayın çok uğraştırdım sizi
Uğraşmak sorun değil de veriler düzensiz. Ayrıca Başlıklardaki Türkçe karakter ADO ve SQL için sıkıntı oluşturacaktır.
Müsait zamanda bakmaya çalışacağım.
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Merhaba,

ADO kullanmadan ekteki gibi çözüm getirdim. Şablonunuza göre ayarladım.
Butonu tıkladıktan sonra SONUÇ sayfasında görebilirsiniz.

İyi Çalışmalar.
 

Ekli dosyalar

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
45
Konum
İstanbul
Ad Soyad
ahmet aydemir
Özkan Bey merhaba,

dosyayı kontrol ettiğimde 20 tane eksik çıkıyor ve anladığım kadarıyla bu hataların/eksiklerin sebepleri;
- Öğretim elemanı sütunu boş olan 4 satır
- Tarih kolonu 0.01.1900 formatında olan 11 satır
- Saat formatı 00:00:00 şeklinde olan 2 satır
- ve neden eksik olduğunu çözmediğim 2 satır var. ( sizin makro ile ilgili değil o satırlardaki bir hatadan kaynaklanıyor ama sebebini bulamadım.)

emekleriniz için teşekkürler tekrar son durum bu şekilde
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
103
En iyi yanıt
3
Puanları
28
Yaş
34
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Özkan Bey merhaba,

dosyayı kontrol ettiğimde 20 tane eksik çıkıyor ve anladığım kadarıyla bu hataların/eksiklerin sebepleri;
- Öğretim elemanı sütunu boş olan 4 satır
- Tarih kolonu 0.01.1900 formatında olan 11 satır
- Saat formatı 00:00:00 şeklinde olan 2 satır
- ve neden eksik olduğunu çözmediğim 2 satır var. ( sizin makro ile ilgili değil o satırlardaki bir hatadan kaynaklanıyor ama sebebini bulamadım.)

emekleriniz için teşekkürler tekrar son durum bu şekilde
Rica ederim. Dediğim gibi veri bozuklukları nedeniyle söyledikleriniz oluşuyor.

İyi Çalışmalar dilerim.
 
Üst Alt