Enter Sonrası Formül Sonucu Güncellemesi

W

walabi

Altın Üye
Katılım
22 Eylül 2012
Mesajlar
1,051
Excel Vers. ve Dili
excel 2010

excel 2013
Altın Üyelik Bitiş Tarihi
06-08-2025
Merhaba, İş bilgisayarımda daha önce karşılaşmadığım bir problemle karşılaştım. Herhangi bir formül sonucu direk yansımıyor. Save (kaydet) dedikten sonra yansımaya başladı. Aşağıdaki resimde göründüğü gibi B*C sütunlarının çarpımları satır bazında aynı değerleri göstermekte. Kaydet dedikten sonra hücreler güncelleniyor.

Bunun sebebi ne olabilir, aşağıda paylaştığım vba kodları olabilir mi??? Bu kodları döngüsel makrolarda işlemi hızlandırmak için kullanmaya çalışıyorum.


With Application
.Calculation = xlManual '-4135
.ScreenUpdating = False
.EnableEvents = False
End With


With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With


257626


Kod: 
With Application
  .Calculation = xlManual '-4135
  .ScreenUpdating = False
  .EnableEvents = False
End With

   '********* Logo Alış sayfa düzenlemesi****************
  
If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

    Exit Sub
Else

    sonsat = s2.Cells(Rows.Count, "A").End(3).Row
    
    s2.Range("G:H").Clear
    s2.Range("G1") = "Adet"
    s2.Range("H1") = "Fatura No"
    

    
    For i = 2 To sonsat
    s2.Cells(i, "G") = 1
    If s2.Cells(i, "C") <> "" Then
    s2.Cells(i, "H") = s2.Cells(i, "C")
    Else
    s2.Cells(i, "H") = s2.Cells(i, "B")
    End If
    Next
End If


With Application
  .Calculation = xlAutomatic
  .ScreenUpdating = True
  .EnableEvents = True
End With
 
V

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
681
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
walabi' Alıntı:
Merhaba, İş bilgisayarımda daha önce karşılaşmadığım bir problemle karşılaştım. Herhangi bir formül sonucu direk yansımıyor. Save (kaydet) dedikten sonra yansımaya başladı. Aşağıdaki resimde göründüğü gibi B*C sütunlarının çarpımları satır bazında aynı değerleri göstermekte. Kaydet dedikten sonra hücreler güncelleniyor.

Bunun sebebi ne olabilir, aşağıda paylaştığım vba kodları olabilir mi??? Bu kodları döngüsel makrolarda işlemi hızlandırmak için kullanmaya çalışıyorum.


With Application
.Calculation = xlManual '-4135
.ScreenUpdating = False
.EnableEvents = False
End With


With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With


Ekli dosyayı görüntüle 257626


Kod: 
With Application
  .Calculation = xlManual '-4135
  .ScreenUpdating = False
  .EnableEvents = False
End With

   '********* Logo Alış sayfa düzenlemesi****************

If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

    Exit Sub
Else

    sonsat = s2.Cells(Rows.Count, "A").End(3).Row
  
    s2.Range("G:H").Clear
    s2.Range("G1") = "Adet"
    s2.Range("H1") = "Fatura No"
  

  
    For i = 2 To sonsat
    s2.Cells(i, "G") = 1
    If s2.Cells(i, "C") <> "" Then
    s2.Cells(i, "H") = s2.Cells(i, "C")
    Else
    s2.Cells(i, "H") = s2.Cells(i, "B")
    End If
    Next
End If


With Application
  .Calculation = xlAutomatic
  .ScreenUpdating = True
  .EnableEvents = True
End With
Genişletmek için tıkla ...
If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

Exit Sub

hocam burada şart sağlanmadığı zaman koddan çıkıyor. Direkt Exit sub yaptığı için başta hızlanması için kapattığınız şeyleri tekrar açmadan koddan çıkmış oluyor. aşağıdaki satırlara uğramıyor kod. Bunun yerine Aşağıda yazdığım kodu yazın. Exit sub yerine gerekli şeyleri açacak satırın önüne gelmeye sağlayacak son: etiketi ekledim.

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With hiç uğramıyor kod

aşağıdaki kodu uygulayın.

Kod: 
With Application
  .Calculation = xlManual '-4135
  .ScreenUpdating = False
  .EnableEvents = False
End With

   '********* Logo Alış sayfa düzenlemesi****************
 
If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

    GoTo son

Else

    sonsat = s2.Cells(Rows.Count, "A").End(3).Row
    s2.Range("G:H").Clear
    s2.Range("G1") = "Adet"
    s2.Range("H1") = "Fatura No"

    For i = 2 To sonsat
            s2.Cells(i, "G") = 1
        If s2.Cells(i, "C") <> "" Then
        s2.Cells(i, "H") = s2.Cells(i, "C")
        Else
        s2.Cells(i, "H") = s2.Cells(i, "B")
        End If
    Next

End If

son:

With Application
  .Calculation = xlAutomatic
  .ScreenUpdating = True
  .EnableEvents = True
End With
[/CODE]
 
W

walabi

Altın Üye
Katılım
22 Eylül 2012
Mesajlar
1,051
Excel Vers. ve Dili
excel 2010

excel 2013
Altın Üyelik Bitiş Tarihi
06-08-2025
volki_112' Alıntı:
If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

Exit Sub

hocam burada şart sağlanmadığı zaman koddan çıkıyor. Direkt Exit sub yaptığı için başta hızlanması için kapattığınız şeyleri tekrar açmadan koddan çıkmış oluyor. aşağıdaki satırlara uğramıyor kod. Bunun yerine Aşağıda yazdığım kodu yazın. Exit sub yerine gerekli şeyleri açacak satırın önüne gelmeye sağlayacak son: etiketi ekledim.

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With hiç uğramıyor kod

aşağıdaki kodu uygulayın.

Kod: 
With Application
  .Calculation = xlManual '-4135
  .ScreenUpdating = False
  .EnableEvents = False
End With

   '********* Logo Alış sayfa düzenlemesi****************

If s2.Range("G1") = "Adet" And s2.Range("H1") = "Fatura No" Then

    GoTo son

Else

    sonsat = s2.Cells(Rows.Count, "A").End(3).Row
    s2.Range("G:H").Clear
    s2.Range("G1") = "Adet"
    s2.Range("H1") = "Fatura No"

    For i = 2 To sonsat
            s2.Cells(i, "G") = 1
        If s2.Cells(i, "C") <> "" Then
        s2.Cells(i, "H") = s2.Cells(i, "C")
        Else
        s2.Cells(i, "H") = s2.Cells(i, "B")
        End If
    Next

End If

son:

With Application
  .Calculation = xlAutomatic
  .ScreenUpdating = True
  .EnableEvents = True
End With
[/CODE]
Genişletmek için tıkla ...

Üstad haklısın, teşekkürler. Bu haliyle daha düzgün oldu.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst