• 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ü Taşıma Hızlandırma

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.
M

mavisiyah01

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
13 Eki 2024
Mesajlar
74
Çözümler
1
Aldığı beğeni
6
Excel V
Office 2016 TR
Konuyu Başlatan
Merhaba arkadaşlar. Kodum oldukça basit. Data isimli sayfada K sütununu kontrol ediyor. İçerisinde MA0001, MA0002, MA0003, MA0004, MA0005, MA0006 MA0007, MA0008 olan satırları deneme, olmayanları deneme2 sayfasına kopyalıyor. Kodda herhangi bir hata yok. İşlemi doğru yapıyor. Problem ise 100 200 satır veri olduğunda hızlıyken örnekdosyadaki gibi 5000 satır civarında 1,5 dk kadar bekletiyor. Hızlandırmanın yolu var mıdır?



Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • OrnekDosya.xlsx
    363.7 KB · Gösterim: 6
Tarihe göre sırala Oylara göre sırala
mavisiyah01' Alıntı:
Merhaba arkadaşlar. Kodum oldukça basit. Data isimli sayfada K sütununu kontrol ediyor. İçerisinde MA0001, MA0002, MA0003, MA0004, MA0005, MA0006 MA0007, MA0008 olan satırları deneme, olmayanları deneme2 sayfasına kopyalıyor. Kodda herhangi bir hata yok. İşlemi doğru yapıyor. Problem ise 100 200 satır veri olduğunda hızlıyken örnekdosyadaki gibi 5000 satır civarında 1,5 dk kadar bekletiyor. Hızlandırmanın yolu var mıdır?



Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
olmadı hocam. denemeData(denemeRow - 1, 1) = data(i, 1) satırında hata verdi.
 
Olumlu oy 0 Negatif oyla
mavisiyah01' Alıntı:
Merhaba arkadaşlar. Kodum oldukça basit. Data isimli sayfada K sütununu kontrol ediyor. İçerisinde MA0001, MA0002, MA0003, MA0004, MA0005, MA0006 MA0007, MA0008 olan satırları deneme, olmayanları deneme2 sayfasına kopyalıyor. Kodda herhangi bir hata yok. İşlemi doğru yapıyor. Problem ise 100 200 satır veri olduğunda hızlıyken örnekdosyadaki gibi 5000 satır civarında 1,5 dk kadar bekletiyor. Hızlandırmanın yolu var mıdır?



Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
daha önceki kodları da ben yazmıştım. aşağıdaki dosyayı deneyin kodlar değiştirildi.
 

Ekli dosyalar

  • VK Örnek Dosya.xlsm
    26.3 KB · Gösterim: 0
Olumlu oy 0 Negatif oyla

Ekli dosyalar

  • VK Son.xlsm
    694 KB · Gösterim: 9
Olumlu oy 0 Negatif oyla
volki_112' Alıntı:
bu paylaşımındaki dosyana göre düzenledim. Üstte paylaştıklarımı unut. Direkt bu dosyayı kullan
Genişletmek için tıkla...
hocam harika olmuş. ellerinize sağlık. ben bu kodu farklı dosyalarda kullanacağım farklı sütunlar ve farklı sayfa isimleriyle falan. kod yine çalışır değil mi yani sadece bu dosyaya özel değil.
 
Olumlu oy 0 Negatif oyla
volki_112' Alıntı:
bu paylaşımındaki dosyana göre düzenledim. Üstte paylaştıklarımı unut. Direkt bu dosyayı kullan
Genişletmek için tıkla...
deneme1 deneme2 aynen kalsın. Sadece diyelimki k sütunu değil de C sütununun içerisinde abc cba geçen satırları taşımak istiyorum. bu kodunuzda hangi yerleri değiştirirsem kod bozulmadan çalışır yine?
 
Olumlu oy 0 Negatif oyla
Alternatif.
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
mavisiyah01' Alıntı:
deneme1 deneme2 aynen kalsın. Sadece diyelimki k sütunu değil de C sütununun içerisinde abc cba geçen satırları taşımak istiyorum. bu kodunuzda hangi yerleri değiştirirsem kod bozulmadan çalışır yine?
Genişletmek için tıkla...
hocam k sütünu değil de istediğin sütunu alttaki kodları değiştirerek ayarlayabilirsin

alttaki satırda K yerine hangi sütuna bakılacaksa o sütun harfini yaz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

alttaki kod blogunda da value = dataArray(i, 11) ' K sütunu (11. sütun) - Filtreleme sütununda değişiklik yok bu ifadede 11 yerine hangi sütun için istiyorsan o sütun numarasını yaz. Örneğin C sütunu için 11 yerine 3 yazılacak.

Case "MA0001", "MA0002", "MA0003", "MA0004", "MA0005", "MA0006", "MA0007", "MA0008"
bu kısımda da tırnak işaretleri arasına hangi verilerin sayfaya yazılmasını istiyorsan onu yaz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Patron' Alıntı:
Alternatif.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
TEŞEKKÜR EDERİM
volki_112' Alıntı:
hocam k sütünu değil de istediğin sütunu alttaki kodları değiştirerek ayarlayabilirsin

alttaki satırda K yerine hangi sütuna bakılacaksa o sütun harfini yaz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

alttaki kod blogunda da value = dataArray(i, 11) ' K sütunu (11. sütun) - Filtreleme sütununda değişiklik yok bu ifadede 11 yerine hangi sütun için istiyorsan o sütun numarasını yaz. Örneğin C sütunu için 11 yerine 3 yazılacak.

Case "MA0001", "MA0002", "MA0003", "MA0004", "MA0005", "MA0006", "MA0007", "MA0008"
bu kısımda da tırnak işaretleri arasına hangi verilerin sayfaya yazılmasını istiyorsan onu yaz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
TEŞEKKÜR EDERİM
 
Olumlu oy 0 Negatif oyla
mavisiyah01' Alıntı:
deneme1 deneme2 aynen kalsın. Sadece diyelimki k sütunu değil de C sütununun içerisinde abc cba geçen satırları taşımak istiyorum. bu kodunuzda hangi yerleri değiştirirsem kod bozulmadan çalışır yine?
Genişletmek için tıkla...
Soru çözülmüş görünüyor ama yaptım bir kere.

Sayın mavisiyah01
Peşpeşe 2 İnputBox karşınıza çıkar.

İlk InputBox arama yapmak istediğiniz sütundur.
Karşınıza varsayılan olarak K sütunu çıkar.
Farklı bir sütunda arama yapmak istiyorsanız
varsayılan sütunu silin yerine A ise A yazın. X ise X yazın.

İkinci InputBox arama değerlerinizdir.
Karşınıza varsayılan olarak "MA0001,MA0002,MA0003,MA0004,MA0005,MA0006,MA0007,MA0008" değerleri çıkar.
Farklı değerleri aramak istiyorsanız aralarında boşluk kalmayacak şekilde
virgül(,) ile ayırarak arama değerleriniz girin.
Arama yapmak istediğiniz sütunda bu değerler varsa
deneme sayfasına yoksa deneme2 sayfasına yazar.
Ben deneme amaçlı Data sayfasında A1 hücresine
MAVİSİYAH01 yazdım.

İlk InputBoxa A ikinci Inputbox a MAVİSİYAH01 yazdım.
Dosyada göreceğiniz üzre deneme sayfasında 1 satır kalanı deneme2 sayfasında.
Kolay gelsin.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • OrnekDosya_mavisiyah01_mkR.xlsm
    702.4 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
excelcan' Alıntı:
Soru çözülmüş görünüyor ama yaptım bir kere.

Sayın mavisiyah01
Peşpeşe 2 İnputBox karşınıza çıkar.

İlk InputBox arama yapmak istediğiniz sütundur.
Karşınıza varsayılan olarak K sütunu çıkar.
Farklı bir sütunda arama yapmak istiyorsanız
varsayılan sütunu silin yerine A ise A yazın. X ise X yazın.

İkinci InputBox arama değerlerinizdir.
Karşınıza varsayılan olarak "MA0001,MA0002,MA0003,MA0004,MA0005,MA0006,MA0007,MA0008" değerleri çıkar.
Farklı değerleri aramak istiyorsanız aralarında boşluk kalmayacak şekilde
virgül(,) ile ayırarak arama değerleriniz girin.
Arama yapmak istediğiniz sütunda bu değerler varsa
deneme sayfasına yoksa deneme2 sayfasına yazar.
Ben deneme amaçlı Data sayfasında A1 hücresine
MAVİSİYAH01 yazdım.

İlk InputBoxa A ikinci Inputbox a MAVİSİYAH01 yazdım.
Dosyada göreceğiniz üzre deneme sayfasında 1 satır kalanı deneme2 sayfasında.
Kolay gelsin.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
hocam çoook teşekkür ederim. çok sağolun.
 
Olumlu oy 0 Negatif oyla
excelcan' Alıntı:
Soru çözülmüş görünüyor ama yaptım bir kere.

Sayın mavisiyah01
Peşpeşe 2 İnputBox karşınıza çıkar.

İlk InputBox arama yapmak istediğiniz sütundur.
Karşınıza varsayılan olarak K sütunu çıkar.
Farklı bir sütunda arama yapmak istiyorsanız
varsayılan sütunu silin yerine A ise A yazın. X ise X yazın.

İkinci InputBox arama değerlerinizdir.
Karşınıza varsayılan olarak "MA0001,MA0002,MA0003,MA0004,MA0005,MA0006,MA0007,MA0008" değerleri çıkar.
Farklı değerleri aramak istiyorsanız aralarında boşluk kalmayacak şekilde
virgül(,) ile ayırarak arama değerleriniz girin.
Arama yapmak istediğiniz sütunda bu değerler varsa
deneme sayfasına yoksa deneme2 sayfasına yazar.
Ben deneme amaçlı Data sayfasında A1 hücresine
MAVİSİYAH01 yazdım.

İlk InputBoxa A ikinci Inputbox a MAVİSİYAH01 yazdım.
Dosyada göreceğiniz üzre deneme sayfasında 1 satır kalanı deneme2 sayfasında.
Kolay gelsin.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Yalnız deneme2'ye hepsini taşıyor
 
Olumlu oy 0 Negatif oyla
mavisiyah01' Alıntı:
Yalnız deneme2'ye hepsini taşıyor
Genişletmek için tıkla...
sanırım birşeyleri yanlış yapmışsınız.
şimdi yine denedim . sıkıntı göremedim.
deneme2 filtre kurun. A sütununda MAVİSİYAH01 yoksa doğru sonuç.
Varsa yanlış sonuç.
Deneme1 filtre kurun. A sütununda MAVİSİYAH01 varsa doğru sonuç.
Yoksa yanlış sonuç
 
Olumlu oy 0 Negatif oyla
excelcan' Alıntı:
sanırım birşeyleri yanlış yapmışsınız.
şimdi yine denedim . sıkıntı göremedim.
deneme2 filtre kurun. A sütununda MAVİSİYAH01 yoksa doğru sonuç.
Varsa yanlış sonuç.
Deneme1 filtre kurun. A sütununda MAVİSİYAH01 varsa doğru sonuç.
Yoksa yanlış sonuç
Genişletmek için tıkla...
Evet şimdi oldu, çok teşekkür edeirm
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst