• DİKKAT !

    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 Dosya Yükleme 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

Gold Üye
Katılım
3 Nis 2021
Mesajlar
293
Çözümler
1
Aldığı beğeni
51
Excel V
Office 2013 TR
Gold Bitiş
21 Mart 2027
Konu Sahibi
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;

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çö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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
Konu Sahibi
Hocam tüm kurum bilgilerini yeniden düzenlemem (Örneğini Yapmam gerekiyor.) gerekiyor. Çok uzun sürer.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
Konu Sahibi
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Verilerinizin yedeğini alarak kodu dener misiniz;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam Teşekkür ederim.
Dışarıdayım.
Eve geçince denerim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam, denedim
Aynı şekilde en alt boş satıra #YOK yazıyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
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