Sütunda Sıralı Formülü Kodla Nasıl Yazabiliriz,

[sabri şirin]

Merhaba,
EK'de vermiş olduğum örnek de Görüldüğü gibi,(H-I-Q-R-S)Sütunlarında Formüller mevcut. Kaydedilecek kişi sayısı Yüzlerce olunca formüller de buna bağlı olarak Aşşağı doğru iniyor.
Buda Programın yavaşlamasına neden oluyor.
Kod ile halletmek mümkünmüdür.

Saygılarımla...

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Mesaj ekinde dosya yok. Kontrol ediniz.

. . .

 

[sabri şirin]

. . .

Merhaba.
Mesaj ekinde dosya yok. Kontrol ediniz.

. . .

Kusura Bakmayın...

 

[Murat OSMA]

Merhaba Sabri Bey,

Hüseyin Bey'in müsadesiyle, şu kodları bir dener misiniz ?

Sub Emre()
    Dim i As Integer
        For i = 19 To Range("A65536").End(3).Row
            Cells(i, "H") = Cells(i, "F") * Cells(i, "G") / 1000
            Cells(i, "I") = (Cells(i, "F") * Cells(i, "G")) * Cells(i, "J") / 1000
                If Cells(i, "O") > 0 Then
                    Cells(i, "Q") = Cells(i, "O") / Cells(i, "J") + Cells(i, "P")
                        Else
                    Cells(i, "Q") = Cells(i, "P")
                End If
                If Cells(i, "G") > 0 Then
                    Cells(i, "R") = Cells(i, "Q") / Cells(i, "G") * 1000
                        Else
                    Cells(i, "R") = ""
                End If
                If Cells(i, "F") > 0 Then
                    Cells(i, "S") = Cells(i, "F") - Cells(i, "R")
                        Else
                    Cells(i, "S") = ""
                End If
        Next i
    i = Empty
End Sub

 

[sabri şirin]

Murat Bey Merhaba,

Merhaba Sabri Bey,

Hüseyin Bey'in müsadesiyle, şu kodları bir dener misiniz ?

Kodlar gayet güzel çalışıyor..Yalnız her işlemden sonra tuşa dokunmak zorunda kalıyorum. Bunun otomatik olması lazım.Bunun için ThisWorkboota kopyaladım fakat olmadı..
Selamlar...

 

[Murat OSMA]

En son veri girdiğiniz hücre hangi sütunda ise, oraya veri girdiğinizde, sayfanın kod kısmına, selection_change ya da change olayına call Emre yazarak makroyu çalıştırabilirsiniz...

 

[sabri şirin]

En son veri girdiğiniz hücre hangi sütunda ise, oraya veri girdiğinizde, sayfanın kod kısmına, selection_change ya da change olayına call Emre yazarak makroyu çalıştırabilirsiniz...

Murat Bey Merhaba,

En son girilen Sütun belli olmuyor.Bazen O,P Sütunları farklılık gösterebiliyor. Ayrıca Call komutunu aşağıdaki şekilde ThisWorkboota yazdım ama olmadı.

Private Sub Change()
Call Emre
End Sub

Selamlar...

 

[Murat OSMA]

Şu kodu Sayfa50(Ödeme sayfası)nın kod bölümüne yazıp bir deneyiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 7 Or Target.Column = 14 Or Target.Column = 15 Then
        Call Emre
    End If
End Sub

G - O ya da P sütunlarına gelindiğinde Emre makrosu çalışır...

 

[sabri şirin]

Murat Bey,
Teşekkür ederim,Gayet güzel çalışıyor.:bravo:
Selamlar...

 

[Murat OSMA]

Rica ederim Sabri Bey, iyi günler.