hücreye girilecek değere göre makro çalışması

[bamteli_27]

öncelikle merhabalar

ı sütunundaki boşta olan son hücreye veri girildiği zaman makronun çalışarak j sütunundaki aynı satıra eğer formülünün yazılması gerekmekte,
evet işlem formül ile basit bir şekilde yapılmakta ancak kayıtların yıllık 30-35 bin civarında olduğundan dolayı dosyayı ağırlaştırmaktadır.

soruyu ekli dosya içerisinde de yazdım
şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)

son = [C65536].End(3).Row
If Intersect(Target, Range("I2:I" & son)) Is Nothing Then Exit Sub

i = Target.Row

If Cells(i, "I") = "" Then
Cells(i, "J") = ""
Exit Sub
End If

If Cells(i, "G") = "GÜNLÜ" Then
Cells(i, "J") = Cells(i, "H")
Else
    If Cells(i, "D") = "" Then
    Cells(i, "J") = Cells(i, "ı") + 10
    Else
    Cells(i, "J") = "DÜŞÜMÜ YAPILDI"
    End If
End If

End Sub

. . .

 

[bamteli_27]

hüseyin bey çok teşekkür ederim ellerinize sağlık

kusura bakmayın internetim gitmişti yeni bakabildim.