Çözüldü Vba da hızlı veri nasıl getirilir.

[yapıcı]

Arkadaşlar Merhaba
Göndermiş olduğum dosyada verileri aldım fakat çok yavaş çalışıyor bunu nasıl
hızlı bir şekilde yapabilirim yardımcı olabilir misiniz.
İstediğim sayfa açılınca çalışan kodda
Kodlar ThisWorkbook da

 

[Özcan ÖZBEK]

Arkadaşlar Merhaba
Göndermiş olduğum dosyada verileri aldım fakat çok yavaş çalışıyor bunu nasıl
hızlı bir şekilde yapabilirim yardımcı olabilir misiniz.
İstediğim sayfa açılınca çalışan kodda
Kodlar ThisWorkbook da

Application.ScreenUpdating = False


'For i = 2 To 1000000 ' bu ve bunun gibi döngüleri alttaki satır gibi yap.

For i = 2 To Sheets("CekleriDüzenle").Range("A1048576").End(xlUp).Row

 

[Özcan ÖZBEK]

Application.ScreenUpdating = False


'For i = 2 To 1000000 ' bu ve bunun gibi döngüleri alttaki satır gibi yap.

For i = 2 To Sheets("CekleriDüzenle").Range("A1048576").End(xlUp).Row

Application.ScreenUpdating = False 'makro başlangıcında
Application.ScreenUpdating =true' end sub dan önce

Döngülerini
'For i = 2 To 1000000 ' bu ve bunun gibi döngüleri alttaki satır gibi yap.

For i = 2 To Sheets("CekleriDüzenle").Range("A" & Rows.Count).End(xlUp).Row
"CekleriDüzenle" hangi sayfada döngü yapacaksan sayfanın adı.
Bu şekilde dene.

 

[yapıcı]

Özcan Bey
Bu şekilde mi yapmam gerekiyor

 

[Özcan ÖZBEK]

Özcan Bey
Bu şekilde mi yapmam gerekiyor

Application.ScreenUpdating = False başta olsun arada
Application.ScreenUpdating = true sonda m=4 ün üstündeki ve altındakileri sil aralara koymana gerek yok

 

[Özcan ÖZBEK]

Application.ScreenUpdating = False başta olsun arada
Application.ScreenUpdating = true sonda m=4 ün üstündeki ve altındakileri sil aralara koymana gerek yok

HTML:

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

 

[Refaz]

İlave olarak redim ile dizi ile daha hızlı olur.

 

[Refaz]

Hız olayı için dizileri öğrenmenizi tavsiye ederim.Tek tek tek hücrelere döngü ile veri almak yavaş çalışır.

HTML:

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

 

[yapıcı]

Özcan bey
Dizi olunca daha hızlı oldu teşekkür ederim emeğinize sağlık.

'For i = 2 To 1000000 ' bunun ile alttaki satırın farkı nedir.

For i = 2 To Sheets("CekleriDüzenle").Range("A1048576").End(xlUp).Row

Evet dizileri öğrenmek istiyorum ama mantığını kavrayamadım. Neyi nereye nasıl formüle edeceğimi anlayamadım

 

[Özcan ÖZBEK]

Özcan bey
Dizi olunca daha hızlı oldu teşekkür ederim emeğinize sağlık.

'For i = 2 To 1000000 ' bunun ile alttaki satırın farkı nedir.

For i = 2 To Sheets("CekleriDüzenle").Range("A1048576").End(xlUp).Row

Evet dizileri öğrenmek istiyorum ama mantığını kavrayamadım. Neyi nereye nasıl formüle edeceğimi anlayamadım

Dizi ile yapmayı bilmediğim için ben de for next kullanıyordum. Refaz Bey sayesinde dizilere merak saldım. Diziler benim de çok işime yarayacak. Refaz Beye de ayrıca teşekkür edeyim bu arada. Refaz Beyin zamanını almayacaksa 8. mesajdaki diziler ile ilgili kodları açıklamasını rica edeceğim.

 

[yapıcı]

Dizi ile yapmayı bilmediğim için ben de for next kullanıyordum. Refaz Bey sayesinde dizilere merak saldım. Diziler benim de çok işime yarayacak. Refaz Beye de ayrıca teşekkür edeyim bu arada. Refaz Beyin zamanını almayacaksa 8. mesajdaki diziler ile ilgili kodları açıklamasını rica edeceğim

 

[Refaz]

8. mesajdaki diziler ile ilgili kodları açıklamasını rica edeceğim

Rica ederim.Örneğin alttakini 10 satır 1 sütunluk excel sayfa gibi düşünebilirsiniz.En sondaki 5 olsaydı 5 sütunluk gibi olurdu.
Bu dizi döngü ile dolunca resize yada benzeri kodla toptan aktarma yapılır.
Ayrıca birde redim preserve olayı var o da tersi.Bununlailgili bir video vatdı bulursam eklerim.

ReDim arr_cek(1 To 10, 1 To 1)

 

[yapıcı]

Son mesajı Refaz Üstad atmış ona dikkat etmemişim kusura bakmayın
Refaz Üstad size de çok teşekkür ederim
Özcan Beye katılıyorum 8. mesajdaki diziler ile ilgili kodları açıklaya bilirseniz bir yandan dizilerin mantığını çözmeye çalışalım
Yaptığım programda birçok yer var bu şekilde yavaş çalışan

 

[Refaz]

Refaz Üstad size de çok teşekkür ederim

Rica ederim,önceki konunuza yazdığım için konuya dahil olmuştum yardımcı oluruz diye

 

[Refaz]

Sabırla sonuna kadar izlerseniz anlarsınız sanıyorumki ben bu adamdan çözmüştüm tabii yabancı dil ama anlaşılıyor.Adım adım anlatıyor videoda herşeyi.

 

[yapıcı]

Yani size nasıl teşekkür etsem az Refaz Üstad for next döngülerini anca anca kavradım
programı ilerlettim ama bu şekilde hızlı çalıştıramıyorum diziler çok karışık gibi duruyor
program seri çalıştı mı işlerde seri ilerliyor

 

[Özcan ÖZBEK]

Rica ederim.Örneğin alttakini 10 satır 1 sütunluk excel sayfa gibi düşünebilirsiniz.En sondaki 5 olsaydı 5 sütunluk gibi olurdu.
Bu dizi döngü ile dolunca resize yada benzeri kodla toptan aktarma yapılır.
Ayrıca birde redim preserve olayı var o da tersi.Bununlailgili bir video vatdı bulursam eklerim.

ReDim arr_cek(1 To 10, 1 To 1)

Teşekkürler.

 

[Refaz]

Yani size nasıl teşekkür etsem az Refaz Üstad for next döngülerini anca anca kavradım
programı ilerlettim ama bu şekilde hızlı çalıştıramıyorum diziler çok karışık gibi duruyor
program seri çalıştı mı işlerde seri ilerliyor

Rica ederim abey,aslında zor değil pratik yaparsanız tam çözersiniz.Öncedende dediğim gibi excel sayfası gibi düşünülür ve satır ve sütunu doldurulur ve offsetyada resize gibi kodlarlada toptan aktarılır.Tabii bazı durumlarda transpose ve preserve işin içine girebilir videoda tümü var.

 

[Refaz]

Teşekkürler.

Rica ederim.

 

[Refaz]

ReDim arr_cek(1 To 10, 1 To 1)

Resize olayınıda açıklayayım tabii bunun yerine offset te kullanılır.
Yanlışta yazabilirim tabii bende bazen karıştırıyorum bunu.
Diyelimki yukardaki gibi 10 satır bir sütunluk doldurduk.A2 den itibaren tüm aktarmak için Range("a2").resize(10,1) gibi yazılacaktı.
Eğer redim içindeki en sondaki 1 yerine 5 olsaydı 5 sütunluk dizi olacağı için range("a2").resize(10,5) yazılacaktı.