VBA ile Hızlı Veri Aktarımı Yapma

  • Konuyu başlatan Konuyu başlatan barkin
  • Başlangıç tarihi Başlangıç tarihi

barkin

Kullanıcı
Katılım
30 Mar 2022
Mesajlar
125
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
İyi günler..
Ekteki dosyada aktarma yapmak için kullandığım kod aşağıda.. Fakat 2mb lık dosyamda çok yavaş çalışıyor.
Daha hızlı olması için nasıl bir kod olabilir..
.........
Sub Mesaiden_Cetvele_Aktar()
Dim i As Integer
Dim sat As Integer
Dim Say As Integer
sat = 7
son = Sheets("Mesai").Cells(Rows.Count, "B").End(3).Row 'son dolu satır

For i = 2 To son Step 1
If Sheets("Mesai").Cells(i, "B") <> "" Then
Sheets("MESAİ_CETVEL").Cells(sat, "B").Value = Sheets("Mesai").Cells(i, "B")
'Sheets("MESAİ_CETVEL").Cells(sat, "C").Value = Sheets("Mesai").Cells(i, "G")
Sheets("MESAİ_CETVEL").Cells(sat, "D").Value = Sheets("Mesai").Cells(i, "A")
Sheets("MESAİ_CETVEL").Cells(sat, "E").Value = "Fazla Çalışma"

sut = 9
For J = 3 To 36
If Sheets("MESAİ_CETVEL").Cells(6, J).Value <> "" Then
Sheets("MESAİ_CETVEL").Cells(sat, J).Value = Sheets("Mesai").Cells(i, J - 3)
End If
Next J
sat = sat + 2
Say = Say + 1
If Say = 10 Then
sat = sat + 2
Say = 0
End If
End If
Next i

End Sub
 
Tablodan Pdf Formatta Sipariş Fişi Oluşturma
Tablodan Pdf Formatta Sipariş Fişi Oluşturma
Excel Sayfalarını Excellere Ayırma
Tarihe göre sırala Oylamaya göre sırala
Merhaba Sn. @Barkın

Mevcut kodlarınızda sorun yoksa, AKTARMA kodlarının;
-- başına (Dim... satırlarının hemen altına) ilk satırı,
-- sonuna (End Sub satırının hemen üstüne) ikinci satırı ekleyin.
İşlem hızlanacaktır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Merhaba Sn. @Barkın

Mevcut kodlarınızda sorun yoksa, AKTARMA kodlarının;
-- başına (Dim... satırlarının hemen altına) ilk satırı,
-- sonuna (End Sub satırının hemen üstüne) ikinci satırı ekleyin.
İşlem hızlanacaktır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
Genişletmek için tıklayın ...
Teşekkür ederim..
Biraz daha hızlandı ama, buraya eklediğim dosyada çalıştırırsam hızlı çalışıyor, asıl kullandığım 2 mb.lık dosyada çalışması uzun sürüyor. Asıl dosyamda çok formül ve kod olduğundan olabilir belki...
 
Oyla 0 Olumsuz oyla
Çözüm dosyanız ekte Sn. @Barkın .

Gerçek belgenize bunu uygulayın.
Ekrana bilgilendirme mesajı geldikten sonra bekleme oluşuyorsa bunun nedeni belgenizde mevcut formüllerinizdir.

.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@Barkın, sorunuzunu sorup, gelen cevaba teşekkür ediyor ama "çözüldü" olarak işaretlemiyor sonra da "sorun yaşıyorum" diye mesajlar atıyorsunuz. Hatırlatayım dedim...
 
Oyla 0 Olumsuz oyla
Sorun ne ki anlayamadım, konu sayfasına da sorun içerikli yazılmış bir mesaj yok.
Verdiğim çözüm 10 satırda bir ara toplam dahil örnek belgeye göre tam olarak istenilen işlemi yapıyor durumda.

Sn. @Barkın eklediğim belgeyi denediniz mi, sorun nedir?

.
 
Oyla 0 Olumsuz oyla
Sorun şu ki; Sn. @Barkın eklediğim çözüm belgesini indirmiş değil.

Teşekkür mesajı öncesinde çözüm belgesini sadece bir VİP üyemiz ( kim olduğu belli ) indirmiş durumda.
VİP üyemizin, sitemizi geçtim en azından kendi hukuku bakımından bunu yapmaması gerekir.
Sn. @Admin gerekli işlemi yapmalıdır/yapacaktır.

HAK / KURAL nedir kimse bilmiyor mu?

Nasıl bir dünyada yaşıyoruz yahu. Birilerinin sırtına basmak şart mı yani, neden suistimal bu kadar yaygın.

.
 
Oyla 0 Olumsuz oyla
Vip üye oldum ve dosyayı indirdim. Akşama bilgisayarda bakacağım.
.......
Sorun şu ki, son günlerde soru mesajı yazmak istediğimde çözüm olarak işaretlenmemiş konuların var diye uyarı veriyor ve konu açamıyordum.. Halbuki baktığımda, konularda işaretlenmemiş hiç bir mesajımın olmadığını görüyorum. Bu sebepten dolayı istek bölümüne yazmak zorunda kalıyorum.
.......
İstemeden sebep olduğum bu durum için üzüldüm gerçekten...
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Çözüm dosyanız ekte Sn. @Barkın .

Gerçek belgenize bunu uygulayın.
Ekrana bilgilendirme mesajı geldikten sonra bekleme oluşuyorsa bunun nedeni belgenizde mevcut formüllerinizdir.

.
Genişletmek için tıklayın ...
Sayın Ömer BARAN bey, kod için teşekkür ederim, önceki koda göre çok hızlı çalışıyor.
...........
Ancak, Mesai sayfasında kaç kişi olursa olsun bir kişi eksik alıyor.
 
Oyla 0 Olumsuz oyla
@Barkın

Birkaç küçük değişiklik yaptım.
Mevcut kodu aşağıdakiyle değiştirin. Hız bakımından da fark oluşacaktır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(29 satır)
 
Oyla 0 Olumsuz oyla
Arkadaşlar merhaba.
Bu konuyu incelerken Sayın Ömer BARAN üstadımın 10 nolu mesajını tam anlayamadım.
Ömer BARAN' Alıntı:
Teşekkür mesajı öncesinde çözüm belgesini sadece bir VİP üyemiz ( kim olduğu belli ) indirmiş durumda.
VİP üyemizin, sitemizi geçtim en azından kendi hukuku bakımından bunu yapmaması gerekir.
Sn. Admin [I][/I] gerekli işlemi yapmalıdır/yapacaktır.

HAK / KURAL nedir kimse bilmiyor mu?

Nasıl bir dünyada yaşıyoruz yahu. Birilerinin sırtına basmak şart mı yani, neden suistimal bu kadar yaygın.
Genişletmek için tıklayın ...

Forum kurallarını tekrar okumama rağmen bir üyenin dosyayı indirip incelemesinin uygun olmamasını tam anlayamadım. Bu hataya düşmemek için aydınlatırsanız sevinirim. Saygılar sunuyorum.
 
Oyla 0 Olumsuz oyla
Sn. @Vurkan

Malum olduğu üzere; VİP üyeliği olmayan üyelerin forumumuzda dosya indirmesi mümkün değil.
VİP üyelerimiz kendi adlarına; merak ettikleri, görmek istedikleri tüm dosyaları indirebilirler ancak
başkası adına dosya indirildiği izlenimi oluşmamalıdır.

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt