Çözüldü Yanlış sınıf adını aratınca kodlar bir daha çalışmıyor.

[Vurkan]

Arkadaşlar merhaba. Daha önce açmış olduğum dizi formüllerini koda çevirmek başlığındaki problemim Sayın Caylak üstadın yardımıyla çözüme kavuşmuştu. Ancak dosyayı kullanmaya başladığımda bir sorunla karşılaştım.
EZBER ve ÖDEV isimli sayfalarda B1 hücresine yazdığım sınıf adına göre listeleme yapıyor. Ama OKUL sayfasında olmayan bir sınıf girdim (5A diyelim) Tabii böyle bir sınıf olmadığından listeyi temizledi ve boş geldi. Ancak hemen ardından OKUL sayfasında olan sınıfları çağırdığımda da kod çalışmamaya başladı ve liste gelmedi. Bunun için yardımlarınızı bekliyorum. Saygılar.

 

[Vurkan]

Arkadaşlar merhaba; sorun yaşadığım kod:

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu kod B1 hücresine olmayan sınıfı yazdığınızda veya B1 hücresindeyken (birşey yazmadan) enter yapınca çalışmayı durduruyor. Artık olan sınıfları da listelemiyor. Saygılar.

 

[Vurkan]

Arkadaşlar tekrar merhaba;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu kod ile sorunu çözdüm.
Bu koda ilaveten Sayfa koduna bu kod çalışmadan önce
Sheets("EZBER").Range("A250").Value = ""
ekledim. aksi halde geçmiş verileri silmiyordu. Saygılar.

 

[murat_8181]

Arkadaşlar tekrar merhaba;

Sub VeriEşleştirme()

Dim aktifSayfa As Worksheet
Dim okulSayfa As Worksheet
Dim arananVeri As String
Dim sonuçSatır As Long
Dim i As Long
Set aktifSayfa = ActiveSheet
Set okulSayfa = Sheets("OKUL") ' OKUL sayfasının adını buraya yazın
arananVeri = aktifSayfa.Range("B1").Value
sonuçSatır = 3 ' Sonuçların başlangıç satırını buraya yazın

' OKUL sayfasında B sütununda dolaşma
For i = 1 To okulSayfa.Cells(okulSayfa.Rows.Count, "B").End(xlUp).Row
' Eşleşen veri bulunduğunda sonuçları yazma
If okulSayfa.Range("B" & i).Value = arananVeri Then
aktifSayfa.Range("B" & sonuçSatır).Value = sonuçSatır - 2 ' B sütununa sonuç numarasını yazma
aktifSayfa.Range("C" & sonuçSatır).Value = okulSayfa.Range("C" & i).Value
aktifSayfa.Range("D" & sonuçSatır).Value = okulSayfa.Range("D" & i).Value
sonuçSatır = sonuçSatır + 1 ' sonuçSatırı 1 artırma
End If
Next i
End Sub

Bu kod ile sorunu çözdüm.
Bu koda ilaveten Sayfa koduna bu kod çalışmadan önce
Sheets("EZBER").Range("A250").Value = ""
ekledim. aksi halde geçmiş verileri silmiyordu. Saygılar.

Sadece bu makroyu kullanarak denermisin "EZBER""sayfası için geçerli

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

ss = Sayfa.Range("C" & Rows.Count).End(xlUp).Row

Bunun altına alttaki kodu ekleyin sadece.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Vurkan]

Sayın murat_8181 verdiğiniz kodu sayfanın koduna ekledim. O da gayet güzel çalıştı. Teşekkür ederim.

 

[Refaz]

Sorgu = "select F3,F4 from [Excel 12.0 Xml;HDR=NO;Database=" & ThisWorkbook.FullName & "].[OKUL$] where F2 = '" & Sayfa.Range("B1").Text & "' order by F3"

Ayrıca yukardaki yerine alttaki gibi yazmak daha iyi olur.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Vurkan]

Sayın Refaz izin öneriniz de sorunu çözmüştür. İkinci önerinizi de uyguladım.Teşekkürler.

 

[Refaz]

Rica ederim,kolay gelsin.

 

[Refaz]

Sonolarak şunuda yazayım kodunuzun hızlı çalışması için alttaki gibi deneyin.
Application.ScreenUpdating = False ve Application.ScreenUpdating = True bunuda ekledim.
Normalde döngüsüzde aktarılırdı ama yapan üstad öyle yapmış.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.