• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kodların işlemi tamamlaması çok uzun sürüyor?

F

Failimechul

Katılım
14 Mart 2008
Mesajlar
119
Excel Vers. ve Dili
XP TR
Merhabalar

Arkadaşlar ben bir depo çıkış sistemi geliştirdim.

Sheets("SEVKİYAT").Select
Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Sheets("DEPO ÇIKIŞI").Range("h5").Value
ActiveCell.Offset(0, 1) = Sheets("DEPO ÇIKIŞI").Range("b10").Value
ActiveCell.Offset(0, 2) = Sheets("DEPO ÇIKIŞI").Range("b9").Value
ActiveCell.Offset(0, 3) = Sheets("DEPO ÇIKIŞI").Range("b13").Value



ActiveCell.Offset(1, 0) = Sheets("DEPO ÇIKIŞI").Range("ı14").Value
ActiveCell.Offset(1, 1) = Sheets("DEPO ÇIKIŞI").Range("j14").Value
ActiveCell.Offset(1, 2) = Sheets("DEPO ÇIKIŞI").Range("k14").Value
ActiveCell.Offset(1, 3) = Sheets("DEPO ÇIKIŞI").Range("b14").Value


ActiveCell.Offset(2, 0) = Sheets("DEPO ÇIKIŞI").Range("ı15").Value
ActiveCell.Offset(2, 1) = Sheets("DEPO ÇIKIŞI").Range("j15").Value
ActiveCell.Offset(2, 2) = Sheets("DEPO ÇIKIŞI").Range("k15").Value
ActiveCell.Offset(2, 3) = Sheets("DEPO ÇIKIŞI").Range("b15").Value



ActiveCell.Offset(3, 0) = Sheets("DEPO ÇIKIŞI").Range("ı16").Value
ActiveCell.Offset(3, 1) = Sheets("DEPO ÇIKIŞI").Range("j16").Value
ActiveCell.Offset(3, 2) = Sheets("DEPO ÇIKIŞI").Range("k16").Value
ActiveCell.Offset(3, 3) = Sheets("DEPO ÇIKIŞI").Range("b16").Value



ActiveCell.Offset(4, 0) = Sheets("DEPO ÇIKIŞI").Range("ı17").Value
ActiveCell.Offset(4, 2) = Sheets("DEPO ÇIKIŞI").Range("k17").Value
ActiveCell.Offset(4, 1) = Sheets("DEPO ÇIKIŞI").Range("j17").Value
ActiveCell.Offset(4, 3) = Sheets("DEPO ÇIKIŞI").Range("b17").Value



ActiveCell.Offset(5, 0) = Sheets("DEPO ÇIKIŞI").Range("ı18").Value
ActiveCell.Offset(5, 2) = Sheets("DEPO ÇIKIŞI").Range("k18").Value
ActiveCell.Offset(5, 1) = Sheets("DEPO ÇIKIŞI").Range("j18").Value
ActiveCell.Offset(5, 3) = Sheets("DEPO ÇIKIŞI").Range("b18").Value



ActiveCell.Offset(6, 0) = Sheets("DEPO ÇIKIŞI").Range("ı19").Value
ActiveCell.Offset(6, 2) = Sheets("DEPO ÇIKIŞI").Range("k19").Value
ActiveCell.Offset(6, 1) = Sheets("DEPO ÇIKIŞI").Range("j19").Value
ActiveCell.Offset(6, 3) = Sheets("DEPO ÇIKIŞI").Range("b19").Value



ActiveCell.Offset(7, 0) = Sheets("DEPO ÇIKIŞI").Range("ı20").Value
ActiveCell.Offset(7, 2) = Sheets("DEPO ÇIKIŞI").Range("k20").Value
ActiveCell.Offset(7, 1) = Sheets("DEPO ÇIKIŞI").Range("j20").Value
ActiveCell.Offset(7, 3) = Sheets("DEPO ÇIKIŞI").Range("b20").Value



ActiveCell.Offset(8, 0) = Sheets("DEPO ÇIKIŞI").Range("ı21").Value
ActiveCell.Offset(8, 2) = Sheets("DEPO ÇIKIŞI").Range("k21").Value
ActiveCell.Offset(8, 1) = Sheets("DEPO ÇIKIŞI").Range("j21").Value
ActiveCell.Offset(8, 3) = Sheets("DEPO ÇIKIŞI").Range("b21").Value



ActiveCell.Offset(9, 0) = Sheets("DEPO ÇIKIŞI").Range("ı22").Value
ActiveCell.Offset(9, 2) = Sheets("DEPO ÇIKIŞI").Range("k22").Value
ActiveCell.Offset(9, 1) = Sheets("DEPO ÇIKIŞI").Range("j22").Value
ActiveCell.Offset(9, 3) = Sheets("DEPO ÇIKIŞI").Range("b22").Value



ActiveCell.Offset(10, 0) = Sheets("DEPO ÇIKIŞI").Range("ı23").Value
ActiveCell.Offset(10, 2) = Sheets("DEPO ÇIKIŞI").Range("k23").Value
ActiveCell.Offset(10, 1) = Sheets("DEPO ÇIKIŞI").Range("j23").Value
ActiveCell.Offset(10, 3) = Sheets("DEPO ÇIKIŞI").Range("b23").Value



ActiveCell.Offset(11, 0) = Sheets("DEPO ÇIKIŞI").Range("ı24").Value
ActiveCell.Offset(11, 2) = Sheets("DEPO ÇIKIŞI").Range("k24").Value
ActiveCell.Offset(11, 1) = Sheets("DEPO ÇIKIŞI").Range("j24").Value
ActiveCell.Offset(11, 3) = Sheets("DEPO ÇIKIŞI").Range("b24").Value



ActiveCell.Offset(12, 0) = Sheets("DEPO ÇIKIŞI").Range("ı70").Value
ActiveCell.Offset(12, 2) = Sheets("DEPO ÇIKIŞI").Range("k70").Value
ActiveCell.Offset(12, 1) = Sheets("DEPO ÇIKIŞI").Range("j70").Value
ActiveCell.Offset(12, 3) = Sheets("DEPO ÇIKIŞI").Range("b70").Value



ActiveCell.Offset(13, 0) = Sheets("DEPO ÇIKIŞI").Range("ı71").Value
ActiveCell.Offset(13, 2) = Sheets("DEPO ÇIKIŞI").Range("k71").Value
ActiveCell.Offset(13, 1) = Sheets("DEPO ÇIKIŞI").Range("j71").Value
ActiveCell.Offset(13, 3) = Sheets("DEPO ÇIKIŞI").Range("b71").Value



ActiveCell.Offset(14, 0) = Sheets("DEPO ÇIKIŞI").Range("ı72").Value
ActiveCell.Offset(14, 2) = Sheets("DEPO ÇIKIŞI").Range("k72").Value
ActiveCell.Offset(14, 1) = Sheets("DEPO ÇIKIŞI").Range("j72").Value
ActiveCell.Offset(14, 3) = Sheets("DEPO ÇIKIŞI").Range("b72").Value



ActiveCell.Offset(15, 0) = Sheets("DEPO ÇIKIŞI").Range("ı73").Value
ActiveCell.Offset(15, 2) = Sheets("DEPO ÇIKIŞI").Range("k73").Value
ActiveCell.Offset(15, 1) = Sheets("DEPO ÇIKIŞI").Range("j73").Value
ActiveCell.Offset(15, 3) = Sheets("DEPO ÇIKIŞI").Range("b73").Value



ActiveCell.Offset(16, 0) = Sheets("DEPO ÇIKIŞI").Range("ı74").Value
ActiveCell.Offset(16, 2) = Sheets("DEPO ÇIKIŞI").Range("k74").Value
ActiveCell.Offset(16, 1) = Sheets("DEPO ÇIKIŞI").Range("j74").Value
ActiveCell.Offset(16, 3) = Sheets("DEPO ÇIKIŞI").Range("b74").Value



ActiveCell.Offset(17, 0) = Sheets("DEPO ÇIKIŞI").Range("ı75").Value
ActiveCell.Offset(17, 2) = Sheets("DEPO ÇIKIŞI").Range("k75").Value
ActiveCell.Offset(17, 1) = Sheets("DEPO ÇIKIŞI").Range("j75").Value
ActiveCell.Offset(17, 3) = Sheets("DEPO ÇIKIŞI").Range("b75").Value



ActiveCell.Offset(18, 0) = Sheets("DEPO ÇIKIŞI").Range("ı76").Value
ActiveCell.Offset(18, 2) = Sheets("DEPO ÇIKIŞI").Range("k76").Value
ActiveCell.Offset(18, 1) = Sheets("DEPO ÇIKIŞI").Range("j76").Value
ActiveCell.Offset(18, 3) = Sheets("DEPO ÇIKIŞI").Range("b76").Value



ActiveCell.Offset(19, 0) = Sheets("DEPO ÇIKIŞI").Range("ı77").Value
ActiveCell.Offset(19, 2) = Sheets("DEPO ÇIKIŞI").Range("k77").Value
ActiveCell.Offset(19, 1) = Sheets("DEPO ÇIKIŞI").Range("j77").Value
ActiveCell.Offset(19, 3) = Sheets("DEPO ÇIKIŞI").Range("b77").Value



ActiveCell.Offset(20, 0) = Sheets("DEPO ÇIKIŞI").Range("ı78").Value
ActiveCell.Offset(20, 2) = Sheets("DEPO ÇIKIŞI").Range("k78").Value
ActiveCell.Offset(20, 1) = Sheets("DEPO ÇIKIŞI").Range("j78").Value
ActiveCell.Offset(20, 3) = Sheets("DEPO ÇIKIŞI").Range("b78").Value



ActiveCell.Offset(21, 0) = Sheets("DEPO ÇIKIŞI").Range("ı79").Value
ActiveCell.Offset(21, 2) = Sheets("DEPO ÇIKIŞI").Range("k79").Value
ActiveCell.Offset(21, 1) = Sheets("DEPO ÇIKIŞI").Range("j79").Value
ActiveCell.Offset(21, 3) = Sheets("DEPO ÇIKIŞI").Range("b79").Value



ActiveCell.Offset(22, 0) = Sheets("DEPO ÇIKIŞI").Range("ı80").Value
ActiveCell.Offset(22, 2) = Sheets("DEPO ÇIKIŞI").Range("k80").Value
ActiveCell.Offset(22, 1) = Sheets("DEPO ÇIKIŞI").Range("j80").Value
ActiveCell.Offset(22, 3) = Sheets("DEPO ÇIKIŞI").Range("b80").Value



ActiveCell.Offset(23, 0) = Sheets("DEPO ÇIKIŞI").Range("ı81").Value
ActiveCell.Offset(23, 2) = Sheets("DEPO ÇIKIŞI").Range("k81").Value
ActiveCell.Offset(23, 1) = Sheets("DEPO ÇIKIŞI").Range("j81").Value
ActiveCell.Offset(23, 3) = Sheets("DEPO ÇIKIŞI").Range("b81").Value




Columns("B:C").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop


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

Şeklinde bir kod yazılı durumda. Fakat tahmin edeceğiniz gibi tüm işlemleri sırayla yaptığı için bir depo çıkışı almam yaklaşık 30sn sürüyor. Ben istiyorum ki kaç kalem mal çıkacaksa kodun o bölümü çalışsın. Yani 2 kalem ürün çıkacaksa kodun sadece aşağıdaki bölümü çalışsın.

ActiveCell = Sheets("DEPO ÇIKIŞI").Range("h5").Value
ActiveCell.Offset(0, 1) = Sheets("DEPO ÇIKIŞI").Range("b10").Value
ActiveCell.Offset(0, 2) = Sheets("DEPO ÇIKIŞI").Range("b9").Value
ActiveCell.Offset(0, 3) = Sheets("DEPO ÇIKIŞI").Range("b13").Value



ActiveCell.Offset(1, 0) = Sheets("DEPO ÇIKIŞI").Range("ı14").Value
ActiveCell.Offset(1, 1) = Sheets("DEPO ÇIKIŞI").Range("j14").Value
ActiveCell.Offset(1, 2) = Sheets("DEPO ÇIKIŞI").Range("k14").Value
ActiveCell.Offset(1, 3) = Sheets("DEPO ÇIKIŞI").Range("b14").Value
Genişletmek için tıkla ...
Ya da bu kodların yaptığı işi yapabilecek nasıl bir kod yazabilirim?

Yardımcı olursanız çok sevinirim
 
Selamlar,

Mal çıkış işleminde kontrol edebileceğimiz bir alan varmı? Varsa bu alanın boş olup olmadığı sorgulanarak işlem hızlandırılabilir. Yada kesin çözüm için örnek dosya eklerseniz daha faydalı olacaktır.
 
ActiveCell = Sheets("DEPO ÇIKIŞI").Range("h5").Value
ActiveCell.Offset(0, 1) = Sheets("DEPO ÇIKIŞI").Range("b10").Value
ActiveCell.Offset(0, 2) = Sheets("DEPO ÇIKIŞI").Range("b9").Value
ActiveCell.Offset(0, 3) = Sheets("DEPO ÇIKIŞI").Range("b13").Value

if range("ı4").value="" then end
end if

ActiveCell.Offset(1, 0) = Sheets("DEPO ÇIKIŞI").Range("ı14").Value
ActiveCell.Offset(1, 1) = Sheets("DEPO ÇIKIŞI").Range("j14").Value
ActiveCell.Offset(1, 2) = Sheets("DEPO ÇIKIŞI").Range("k14").Value
ActiveCell.Offset(1, 3) = Sheets("DEPO ÇIKIŞI").Range("b14").Value
Genişletmek için tıkla ...

şeklinde değiştirince sorun çözüldü

Teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst