B

Çözüldü Daha Hızlı Aktarma İçin Kodda Değişiklik

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

barkin

Normal Üye
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
 
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: 
Görüntülemek 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: 
Görüntülemek 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
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
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.
Üst