Enter Sonrası Formül Sonucu Güncellemesi

[walabi]

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

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

 

[volki_112]

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

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

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.

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]

 

[walabi]

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.

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]

Üstad haklısın, teşekkürler. Bu haliyle daha düzgün oldu.