• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kod çok yavaş çalışıyor

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
262
Çözümler
1
Aldığı beğeni
44
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba Arkadaşalar,
Yapmak istediğim; 2000-3000 satır aralığındaki Kurum bilgilerinin yer aldığı excel dosyasında bir sütunun eğitim_kademesi başlığı altnı, 6. sütundeki Kurum_Türü başlığı altındaki verilere göre dolduruyorum, fakat işlem dakikalarca sürüyor.
Bu işlemi daha hızlı yapabilir miyiz

Örnek dosya ekleyemedim. 3000 satırın tek tek kurum adları ve diğer bilgilerini değiştirmek gerekiyordu.

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

Kullandığım kod;

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
E
dizi tanımını CurrentRegion ile değil aşağıdaki gibi alın.
dizi = ws.Range("A2:H" & son).Value
Dosya olmayınca bazı çıkarımlar afaki kalabilir.
Fakat benim denemem olumlu sonuç verdi.
Kod tagındakı gibi dener misiniz.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Hocam çok teşekkür ederim. Elinize emeğinize sağlık.
Hızı çok iyi.
Hocam,
I. Kademe, II. Kademe, III. Kademe, bu ifadeler doğru algılamıyor.

I. Kademe için İlkokul
II. Kademe için Ortaokul
III. Kademe için Ortaöğretim
yazması gerekiyor


Özel Eğitim Uygulama Okulu III. KademeİLKOKUL
Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
Özkar Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
yazıyor.
Hocam bunu nasıl çözeriz
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Hocam çok teşekkür ederim. Elinize emeğinize sağlık.
Hızı çok iyi.
Hocam,
I. Kademe, II. Kademe, III. Kademe, bu ifadeler doğru algılamıyor.

I. Kademe için İlkokul
II. Kademe için Ortaokul
III. Kademe için Ortaöğretim
yazması gerekiyor


Özel Eğitim Uygulama Okulu III. KademeİLKOKUL
Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
Özkar Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
yazıyor.
Hocam bunu nasıl çözeriz
Genişletmek için tıkla...
Deneyiniz
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Gevher Nesibe Özel Eğitim Uygulama Okulu III. KademeİLKOKUL
Şehit Yiğitcan Çiga Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
Özkar Özel Eğitim Uygulama Okulu II. KademeİLKOKUL

birde formül hatası geliyor.
#YOK​

Hocam bu şekilde, hepsine İLKOKUL yazıyor.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
Gevher Nesibe Özel Eğitim Uygulama Okulu III. KademeİLKOKUL
Şehit Yiğitcan Çiga Özel Eğitim Uygulama Okulu II. KademeİLKOKUL
Özkar Özel Eğitim Uygulama Okulu II. KademeİLKOKUL

birde formül hatası geliyor.
#YOK​

Hocam bu şekilde, hepsine İLKOKUL yazıyor.
Genişletmek için tıkla...
dosyayı ekleme imkanınız var mı?
 
Olumlu oy 0 Negatif oyla
Hocam tüm kurum bilgilerini yeniden düzenlemem (Örneğini Yapmam gerekiyor.) gerekiyor. Çok uzun sürer.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Hocam Merhaba,
Hepsine yine İLKOKUL yazıyor.

If dizi(i, 6) Like "Özel Eğitim" Then
Özel Eğitim Anaokulu
Özel Eğitim Meslek Lisesi
Özel Eğitim Uygulama Okulu I. Kademe
Özel Eğitim Uygulama Okulu II. Kademe
Özel Eğitim Uygulama Okulu III. Kademe
Bu kurum adlarının hepsinde "Özel Eğitim" ibaresi geçiyor.
 
Olumlu oy 0 Negatif oyla
Hocam merhaba,

Sizin kodda ufak bir değişiklik yaptım. veriler doğru geliyor.
#YOK​
#YOK​
#YOK​
Hocam sadece en sona bu hatayı atıyor.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Hocam Teşekkür ederim.
Dışarıdayım.
Eve geçince denerim.
 
Olumlu oy 0 Negatif oyla
Hocam, denedim
Aynı şekilde en alt boş satıra #YOK yazıyor.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Hocam, sütunlarda boş yok.
En son boş 2 satıra bunları yazıyor.
kodu her çalıştırdığımda bir daha atatıyor
VERİ YOK
#YOK
 
Olumlu oy 0 Negatif oyla
dizi tanımını CurrentRegion ile değil aşağıdaki gibi alın.
dizi = ws.Range("A2:H" & son).Value
Dosya olmayınca bazı çıkarımlar afaki kalabilir.
Fakat benim denemem olumlu sonuç verdi.
Kod tagındakı gibi dener misiniz.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Hocam, Teşekkür ederim. Elinize emeğinize sağlık. Sorun çözülmüştar.
SNNAY hocamında çok emeği oldu. Kendisine çok teşekkür ederim.
Ayrıca yardımcı olma noktasında emeği olan herkese çok teşekkür ederim.

Şimdi, çözüm olarak işaretleme noktasında adaletsizlik olmasın isterim.

Sayın Moderatör, bu konuda yardmlarınızı bekliyorum.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst