Merhaba arkadaşlar,
Yazdığım fonksiyon çok uzun bir sürede copy pase oluyor.
Sütünbazlı kopyalama yaptığımda ise bilgisayar kitleniyor.
fonksiyon metni;
Birde bu dosyayı açarken makroları etkinleştir dediğimde dosya kitlenip açılmıyor.
tarama yaptığı veri aralığı 1600
başvuru aralığı'da 1600 satırdan oluşuyor.
dolayısıyla yoğun bir taramayapıyor bu kod.
bunun daha donanım dostu bir yolu yok mudur?
Yazdığım fonksiyon çok uzun bir sürede copy pase oluyor.
Sütünbazlı kopyalama yaptığımda ise bilgisayar kitleniyor.
fonksiyon metni;
Kod:
Sub AyToplaAciklama()
Application.MacroOptions Macro:="AyTopla", Description:="Alan: Tarihlerin bulunduğu sütün seçilmeli" & Chr(10) & "HangiTarih1,2: Hangi Tarih aralığında istiyorsunuz" & Chr(10) & "Tarihi (tırnak) içinde yazınız veya tarihi içeren hücreyi seçiniz"
End Sub
' AyTopla Makro
' Makro Papyrux tarafından 21.07.2008 tarihinde kaydedildi.
Function AyTopla(Alan As Range, HangiTarih1 As Date, HangiTarih2 As Date, HangiStokKodu As String) As Currency
Dim rng As Range
For Each rng In Alan
If rng >= HangiTarih1 And rng <= HangiTarih2 And rng.Offset(0, 1) = HangiStokKodu Then
AyTopla = AyTopla + rng.Offset(0, 4)
End If
Next rng
End Functiontarama yaptığı veri aralığı 1600
başvuru aralığı'da 1600 satırdan oluşuyor.
dolayısıyla yoğun bir taramayapıyor bu kod.
bunun daha donanım dostu bir yolu yok mudur?
