Çözüldü Makro Çok Yavaş Çalışıyor (ADO İle Excelden Veri Çekme)

Merhaba

ADO konusuna hakim değilim ama kodda şu değişikliği yapıp kontrol eder misiniz?

Döngünün başına ve sonuna ekleme yaptım.



HTML:

Ahmet Bey,
Teşekkür ederim. Biraz Hızlanıdı.
Acaba bu kodun başına ve sonuna eklenebilir mi, birde bu eklenen kodlar hesaplamada sorun çıkarır mı

Application.ScreenUpdating = Kapatırsak ekran sabitmiş gibi kalıyor, yapılan işlemleri o an göremiyoruz. False komutu ile durdurup işlemler bittiğinde True komutu ile son halini görebiliyoruz.

Application.Calculation = Eğer bir formül varsa hesaplama işlemini anında yapıyor. xlCalculationManual komutu hesaplama işlemini bizim daha sonra kendi çalıştıracağımızı bildirir. Eğer kapatırsanız, yaptığınız formüllerin sonuçlarının değişmediğini göreceksiniz. Yani 2 ile 2 yi topladığınızda sonuç 4 vermesi gerekir normalde ama biz bu işlemi manuel yapacağımızı bildirdiğimiz için siz sayılara ne yazarsanız yazın sonuç hep 4 olacaktır. mesela 2 ile 3 topladığımızda 5 olması gerekirsen sistemde halen 4 gözükecektir. xlCalculationAutomatic komutu ise Excel'e her veri girişinde formül olsun olmasın hücreleri hesaplamaya çalışır. Varsayılanı da bu şekildedir.

Özetlersek:
Siz Excel'e her seferinde bir şeyler yazdığınızda Excel arkaplanda bir sürü işlem yapıyor. Programımız bize sonuç dönene kadar bu işlemleri geçici olarak kapatıp açıyoruz.

Do-Loop aralığını aşağıdaki gibi değiştirip dener misiniz.
HTML:

Çok teşekkür ederim.

Erdal Bey merhaba En üstteki sql kou ile neyi çekmek istediniz. Eğer kurum koduna göre öğretmen sayılarının toplamı ise cinsiyet ="E" or... a ne gerek var. Tam olarak türkçe ifade (kod ile değil) ile ne yapmak istiyorsunuz. İstenilen nedir açıkça belirtebilirbilir misiniz

Hakan Bey;
Teşekkür ederim. Kusura bakmayın, şu an bilgisayar başında olmadığım için deniyemiyor.
Hayırlı akşamlar.

Hocam Merhaba,

Yapmak istediğim; Branş Ögretmen Sayilari(R+Ö) tablosundaki öğretmen sayılarını ( "Erkek" ve "Kadın" ) bazında 1-Ana Tablo (Öğretmen) adlı çalışma kitabına Kurum Kodu kriterine göre getirmek istiyorum.

Daha önceki kod yavaş çalıştığı için böyle bir yardımda bulunmuştum. Dün gönderdiğiniz kodun eklenmiş hali ile dosyaları da ekledim.

Yardımlarınız için şimdiden teşekkür ederim.