hücrelere tek tek formül girmek istemiyorum

[bulentc76]

Herkese iyi akşamlar. Arkadaşlar şu formüllere vba da kod yazmak için uğraştım ama yapamadım. Bu konuda yardımcı olursanız sevinirim. Zira sorunumu özet tablolarla hallediyorum ama her hücreye altalta binlerce formül girmek dosyayı şişiriyor ve zaman alıyor.Aşağıdaki formülü vba diline çevirebilirseniz çok sevinirim. Bu arada bu formül P sütununda her hücrede yazılı ama ben sürekli sayfa korumasını kaldırıp formül sürükleyip çoğaltmak istemiyorum

formül :
=EĞER(D121="SATIŞ İŞLEMLERİ";K121*N121-O121;EĞER(E121="TEDİYE MAKBUZU";N121;0))

başka formüllerde var ama onları ben yaparım. Siz sadece bu formülle başlamama yardım edin yeter. Şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub test()
Dim sat As Integer
For sat = 1 To 100
Cells(sat, "p") = 0
If Cells(sat, "d") = "SATIŞ İŞLEMLERİ" Then
Cells(sat, "p") = Val(Cells(sat, "k")) * Val(Cells(sat, "n")) - Val(Cells(sat, "o"))
End If
If Cells(sat, "e") = "TEDİYE MAKBUZU" Then
Cells(sat, "p") = Cells(sat, "n")
End If: Next
End Sub

 

[accilisse]

formül yazılacak alan p2 den p200'e kadar olduğunu varsayarsak,

Sub deneme()
For i = 2 To 200
If Cells(i, 4) = "SATIŞ İŞLEMLERİ" Then
Cells(i, 16) = (Cells(i, 11) * Cells(i, 14)) - Cells(i, 15)
Else
If Cells(i, 5) = "TEDİYE MAKBUZU" Then
Cells(i, 16) = Cells(i, 14)
End If
End If
Next i
End Sub

 

[bulentc76]

ilginize çok tşk

 

[bulentc76]

çalıştı ama sanırım bir butona ihtiyaç duyuyor.çalışma kitabı açıldığı anda aktif olması için ne yapabilirim.Yani kullanıcı kitabı açıp veriyi girdiğinde hemen hesaplayıp formülü uygulamalı.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yazılacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call hesapla
End Sub