Çözüldü Taşıma Hızlandırma

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?



HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

olmadı hocam. denemeData(denemeRow - 1, 1) = data(i, 1) satırında hata verdi.

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?



HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

daha önceki kodları da ben yazmıştım. aşağıdaki dosyayı deneyin kodlar değiştirildi.

mavisiyah01' Alıntı:

olmadı hocam. denemeData(denemeRow - 1, 1) = data(i, 1) satırında hata verdi.

Genişletmek için tıkla...

bu paylaşımındaki dosyana göre düzenledim. Üstte paylaştıklarımı unut. Direkt bu dosyayı kullan

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.

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?

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.
HTML:
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.
HTML:

Patron' Alıntı:

Alternatif.
HTML:

Kod: Kodları Kopyala

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

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.
HTML:

Kod: Kodları Kopyala

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

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.
HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

TEŞEKKÜR EDERİ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...

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.

HTML:

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.

HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

hocam çoook teşekkür ederim. çok sağolun.

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.

HTML:

Kod: Kodları Kopyala

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

Genişletmek için tıkla...

Yalnız deneme2'ye hepsini taşıyor

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ç

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

mavisiyah01' Alıntı:

Evet şimdi oldu, çok teşekkür edeirm

Genişletmek için tıkla...

bir kez daha netleştireyim.
arama yaptığınız sütunda arama değerleriniz varsa
deneme sayfasına alır.
Yoksa deneme2 sayfasına.
Kolay gelsin.

excelcan' Alıntı:

bir kez daha netleştireyim.
arama yaptığınız sütunda arama değerleriniz varsa
deneme sayfasına alır.
Yoksa deneme2 sayfasına.
Kolay gelsin.

Genişletmek için tıkla...

teşekkürler hocam.