Hesaplama

[yesilyurtlu]

Evren Abi ;
Dün akşam bu konuda başka bir excel platformunda yardım istedim ama hesaplama yanlış çıkıyor.
Olması gereken formülü metin olarak yazdım abi . Bu konuda yardımcı olabilir misin Abi .

Private Sub ile başlayan ve her metinde belirtilen her sütun adında bir değişiklik olduğunda otomatik olarak hesaplama ve güncelleme yapsın.

Evren abi müsait olduğunda bir bak abi.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Böylemi.
Ekli dosyayı inceleyiniz.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Evren abi;
İşlemi vba olarak düzenlemenizi istirham etsem zahmet vermiş olur muyum

[Orion1]

Evren abi;
İşlemi vba olarak düzenlemenizi istirham etsem zahmet vermiş olur muyum

Bu olmadımı.
Yanlışmı oldu.

[yesilyurtlu]

Evren Abi Hayırlı Sabahlar.
Formül de bir sorun yok. İşlem Tamam

VBA talebimiz sadece abimden artı bir rica. Uygun görmezseniz eğer bu ricayı soruyu "ÇÖZÜLDÜ" olarak görebilir siniz?

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Sub hesap_59()
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
Range("T6:T65536").Clear
sat = Cells(65536, "B").End(xlUp).Row
If sat < 6 Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For i = 6 To sat
    Cells(i, "T").Value = IIf(Cells(i, "M").Value <= 10, Cells(i, "K").Value + _
    (Cells(i, "M").Value * Cells(i, "Q").Value * Cells(i, "P").Value * _
    Cells(i, "O").Value), (Cells(i, "K").Value + (10 * Cells(i, "Q").Value * _
    Cells(i, "P").Value * Cells(i, "O").Value) + (Cells(i, "M").Value - 10)) * _
    Cells(i, "Q").Value * Cells(i, "G").Value * Cells(i, "O").Value * 0.5)
Next i
Cells(i, "T").NumberFormat = "#,##0.00"
Application.ScreenUpdating = True
MsgBox "İşlem Tamadır", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

Evren Abi Hayırlı Sabahlar.
Formül de bir sorun yok. İşlem Tamam

VBA talebimiz sadece abimden artı bir rica. Uygun görmezseniz eğer bu ricayı soruyu "ÇÖZÜLDÜ" olarak görebilir siniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Evren Abi ;
Bizi kırmayıp yardımlarınızı esirgemediğiniz için teşekkür Ederim.

Sağolasın Abi "ÇÖZÜLDÜ"

[Orion1]

Rica ederim.
İyi çalışmalar.

Evren Abi ;
Bizi kırmayıp yardımlarınızı esirgemediğiniz için teşekkür Ederim.

Sağolasın Abi "ÇÖZÜLDÜ"