• DİKKAT

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

Diğer sayfadan veri alımında hız sorunu

E

Erkan2003

Katılım
23 Temmuz 2012
Mesajlar
28
Excel Vers. ve Dili
2010
Merhaba Arkadaşlar,
Bir dosyamda sayfa 1 de girilmiş değerlere göre diğer sayfada formüller oluşturacağım fakat bilgilerin aktarımı yapılırken çok yavaşlıyor. Hızlanması için yapılabilecekler konusunda yardımcı olabilir misiniz?
Şimdiden çok teşekkürler
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
    Application.EnableEvents = False
Sheets("PANC").Range("I1") = Sheets("SİPARİŞLER").Range("E1") & "*" & Sheets("SİPARİŞLER").Range("F1") & "  " & Sheets("SİPARİŞLER").Range("J1")
Sheets("PANC").Range("AT1").Value = Sheets("SİPARİŞLER").Range("K1").Value
Sheets("PANC").Range("AT2").Value = Sheets("SİPARİŞLER").Range("U1").Value
Sheets("PANC").Range("I3").Value = Sheets("SİPARİŞLER").Range("D1").Value
Sheets("PANC").Range("X3").Value = Sheets("SİPARİŞLER").Range("B1") & "-" & Sheets("SİPARİŞLER").Range("c1")
Sheets("PANC").Range("H4").Value = Sheets("SİPARİŞLER").Range("E1").Value
Sheets("PANC").Range("K4").Value = Sheets("SİPARİŞLER").Range("F1").Value
Sheets("PANC").Range("H5").Value = Sheets("SİPARİŞLER").Range("O1").Value
Sheets("PANC").Range("H6").Value = Sheets("SİPARİŞLER").Range("M1").Value
Sheets("PANC").Range("H7").Value = Sheets("SİPARİŞLER").Range("Y1").Value
Sheets("PANC").Range("H8").Value = Sheets("SİPARİŞLER").Range("G1").Value
Sheets("PANC").Range("H13").Value = Sheets("SİPARİŞLER").Range("AB1").Value
Sheets("PANC").Range("H14").Value = Sheets("SİPARİŞLER").Range("AD1").Value
Sheets("PANC").Range("H15").Value = Sheets("SİPARİŞLER").Range("AD1").Value
Sheets("PANC").Range("H18").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("H19").Value = Sheets("SİPARİŞLER").Range("AV1").Value
Sheets("PANC").Range("H20").Value = Sheets("SİPARİŞLER").Range("AX1").Value
Sheets("PANC").Range("H21").Value = Sheets("SİPARİŞLER").Range("AZ1").Value
Sheets("PANC").Range("H22").Value = Sheets("SİPARİŞLER").Range("BB1").Value
Sheets("PANC").Range("H23").Value = Sheets("SİPARİŞLER").Range("BD1").Value
Sheets("PANC").Range("H24").Value = Sheets("SİPARİŞLER").Range("BF1").Value
Sheets("PANC").Range("H25").Value = Sheets("SİPARİŞLER").Range("AX1").Value
Sheets("PANC").Range("H26").Value = Sheets("SİPARİŞLER").Range("AV1").Value
Sheets("PANC").Range("H29").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("H30").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("H31").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("H32").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("H33").Value = Sheets("SİPARİŞLER").Range("BH1").Value
Sheets("PANC").Range("O13").Value = Sheets("SİPARİŞLER").Range("Z1").Value
Sheets("PANC").Range("O14").Value = Sheets("SİPARİŞLER").Range("Z1").Value
Sheets("PANC").Range("O15").Value = Sheets("SİPARİŞLER").Range("Z1") * 2
Sheets("PANC").Range("O18").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("O19").Value = Sheets("SİPARİŞLER").Range("AU1").Value
Sheets("PANC").Range("O20").Value = Sheets("SİPARİŞLER").Range("AW1").Value
Sheets("PANC").Range("O21").Value = Sheets("SİPARİŞLER").Range("AY1").Value
Sheets("PANC").Range("O22").Value = Sheets("SİPARİŞLER").Range("BA1").Value
Sheets("PANC").Range("O23").Value = Sheets("SİPARİŞLER").Range("BC1").Value
Sheets("PANC").Range("O24").Value = Sheets("SİPARİŞLER").Range("BE1").Value
Sheets("PANC").Range("O25").Value = Sheets("SİPARİŞLER").Range("AW1").Value
Sheets("PANC").Range("O26").Value = Sheets("SİPARİŞLER").Range("AU1").Value
Sheets("PANC").Range("O29").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("O30").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("O31").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("O32").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("O33").Value = Sheets("SİPARİŞLER").Range("BG1").Value
Sheets("PANC").Range("L18").Value = Sheets("SİPARİŞLER").Range("AF1").Value
Sheets("PANC").Range("L19").Value = Sheets("SİPARİŞLER").Range("AG1").Value
Sheets("PANC").Range("L20").Value = Sheets("SİPARİŞLER").Range("AH1").Value
Sheets("PANC").Range("L21").Value = Sheets("SİPARİŞLER").Range("AJ1").Value
Sheets("PANC").Range("L22").Value = Sheets("SİPARİŞLER").Range("AL1").Value
Sheets("PANC").Range("L23").Value = Sheets("SİPARİŞLER").Range("AN1").Value
Sheets("PANC").Range("L24").Value = Sheets("SİPARİŞLER").Range("AP1").Value
Sheets("PANC").Range("L25").Value = Sheets("SİPARİŞLER").Range("AR1").Value
Sheets("PANC").Range("L26").Value = Sheets("SİPARİŞLER").Range("AS1").Value
Sheets("PANC").Range("L27").Value = Sheets("SİPARİŞLER").Range("AT1").Value
Sheets("PANC").Range("L29").Value = Sheets("SİPARİŞLER").Range("AI1").Value
Sheets("PANC").Range("L30").Value = Sheets("SİPARİŞLER").Range("AK1").Value
Sheets("PANC").Range("L31").Value = Sheets("SİPARİŞLER").Range("AM1").Value
Sheets("PANC").Range("L32").Value = Sheets("SİPARİŞLER").Range("AO1").Value
Sheets("PANC").Range("L33").Value = Sheets("SİPARİŞLER").Range("AQ1").Value
Sheets("PANC").Range("Z18").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("Z19").Value = Sheets("SİPARİŞLER").Range("BJ1").Value
Sheets("PANC").Range("Z20").Value = Sheets("SİPARİŞLER").Range("BK1").Value
Sheets("PANC").Range("Z21").Value = Sheets("SİPARİŞLER").Range("BL1").Value
Sheets("PANC").Range("Z22").Value = Sheets("SİPARİŞLER").Range("BM1").Value
Sheets("PANC").Range("Z23").Value = Sheets("SİPARİŞLER").Range("BN1").Value
Sheets("PANC").Range("Z24").Value = Sheets("SİPARİŞLER").Range("BO1").Value
Sheets("PANC").Range("Z25").Value = Sheets("SİPARİŞLER").Range("BK1").Value
Sheets("PANC").Range("Z26").Value = Sheets("SİPARİŞLER").Range("BJ1").Value
Sheets("PANC").Range("Z29").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("Z30").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("Z31").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("Z32").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("Z33").Value = Sheets("SİPARİŞLER").Range("BI1").Value
Sheets("PANC").Range("S13").Value = Sheets("SİPARİŞLER").Range("AC1").Value
Sheets("PANC").Range("S14").Value = Sheets("SİPARİŞLER").Range("AE1").Value


Son:
    Application.EnableEvents = True
End Sub
 
ilkini üste
2ncisini en alta yazınız.:cool:
Kod: 
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
 
Aşağıdaki kodları sayfa 2in Worksheet bölümüne yazdığımda ve altına dahada formül yazmam gerekiyor bunların tümünü sayfa 1 de bir kopyalama işleminden sonra hızlı bir hesaplamayı nasıl yapabilirim?
Çok yavaş ve adım adım yapıyor hesaplamaları...

Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son 'Hata için
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual 'Hızlı çalışması için
    [S15] = [S14] - [S13]
If [AV4].Value = "" And [AV5].Value = "X" And [AV6].Value = "" Then [AI4].Value = [H6].Value * [H4].Value * [K4].Value * [AX5].Value / 10000
If [AV4].Value = "X" And [AV5].Value = "" And [AV6].Value = "X" Then [AI4].Value = [H6].Value * [H4].Value * [K4].Value * [AX4].Value * [AX6].Value / 10000
If [AV4].Value = "" And [AV5].Value = "X" And [AV6].Value = "X" Then [AI4].Value = [H6].Value * [H4].Value * [K4].Value * [AX5].Value * [AX6].Value / 10000
If [AV4].Value = "X" And [AV5].Value = "" And [AV6].Value = "" Then [AI4].Value = [H6].Value * [H4].Value * [K4].Value * [AX4].Value / 10000
If [AI4].Value = "HATA" Then [AH6].Value = "HATA" Else [AH6].Value = ([L13].Value - (([L18].Value + [L19].Value + [L20].Value + [L21].Value + [L22].Value + [L23].Value + [L24].Value + [L25].Value + [L26].Value + [L27].Value) / 100)) / ([L34].Value - ([L18].Value + [L19].Value + [L20].Value + [L21].Value + [L22].Value + [L23].Value + [L24].Value + [L25].Value + [L26].Value + [L27].Value)) * 5 * 100
If [AI4].Value = "HATA" Then [AH6].Value = "HATA" Else [AH7].Value = ((([L13].Value * 100) - ([L18].Value + [L19].Value + [L20].Value + [L21].Value + [L22].Value + [L23].Value + [L24].Value + [L25].Value + [L26].Value + [L27].Value)) / (([S29].Value + [S30].Value + [S31].Value + [S32].Value + [S33].Value) / 3)) * [AA7].Value








Application.Calculation = xlCalculationAutomatic 'Hızlı çalışması için
Son:
    Application.EnableEvents = True
End Sub
 
Dosya ekte hocam,
Panç sayfasına geçtiğinizde farklı bir sonuç siparişler sayfasına geçip tekrar panç sayfasına gelindiğinde başka bir sonuç oluyor
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst