Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 04 Ekim 2010, 10:42:19

Başlık: Hesaplama
Gönderen: yesilyurtlu - 04 Ekim 2010, 10:42:19

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.]

Başlık: Ynt: Hesaplama
Gönderen: Orion1 - 04 Ekim 2010, 11:05:53

Böylemi.
Ekli dosyayı inceleyiniz. :cooll


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

Başlık: Ynt: Hesaplama
Gönderen: yesilyurtlu - 04 Ekim 2010, 19:39:10

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

Başlık: Ynt: Hesaplama
Gönderen: Orion1 - 04 Ekim 2010, 22:10:26

Alıntı yapılan: yesilyurtlu - 04 Ekim 2010, 19:39:10

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

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

Başlık: Ynt: Hesaplama
Gönderen: yesilyurtlu - 05 Ekim 2010, 07:04:00

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?

Başlık: Ynt: Hesaplama
Gönderen: Orion1 - 06 Ekim 2010, 20:56:37

Dosyanız ektedir. :cooll

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

Alıntı yapılan: yesilyurtlu - 05 Ekim 2010, 07:04:00

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.]

Başlık: Ynt: Hesaplama
Gönderen: yesilyurtlu - 07 Ekim 2010, 08:17:13

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

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

Başlık: Ynt: Hesaplama
Gönderen: Orion1 - 07 Ekim 2010, 10:04:31

Rica ederim.
İyi çalışmalar. :cooll

Alıntı yapılan: yesilyurtlu - 07 Ekim 2010, 08:17:13

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

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