• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

A

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
50
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

  • Kitap15.xlsx
    12.8 KB · Görüntüleme: 4
ozkansabanci

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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

  • Yinelenenleri Bul-SQL.xlsm
    27.8 KB · Görüntüleme: 3
A

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
50
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

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
 
ozkansabanci

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Sorun görünmüyor. Dosyanızı paylaşabilir misiniz?
 
A

Aydemir

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

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

Ekli dosyalar

  • Excelturkeyyardım.xlsx
    252.8 KB · Görüntüleme: 3
ozkansabanci

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Formattan kaynaklı çalışmıyor. Nihai çalışma bu mudur?
Eğer buna uygulanacak ise çözümü değiştirmek gerekecek.
 
A

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
50
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

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Aydemir' Alıntı:
yani dosyanın temel bilgileri bu. bunu kullanabiliriz. kusura bakmayın çok uğraştırdım sizi
Genişletmek için tıkla ...

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

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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

  • Excelturkeyyardım.xlsm
    283.1 KB · Görüntüleme: 8
A

Aydemir

Yeni Üye
Katılım
21 Nis 2020
Mesajlar
9
En iyi yanıt
0
Puanları
1
Yaş
50
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

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
39
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Aydemir' Alıntı:
Ö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
Genişletmek için tıkla ...

Rica ederim. Dediğim gibi veri bozuklukları nedeniyle söyledikleriniz oluşuyor.

İyi Çalışmalar dilerim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst Alt