Excel Sayfası hücrelerinde bulunan bir önceki rakamların otomatik temizlenmesi

[aliadanur]

Üstatlarım merhaba. Ekte gönderdiğim dosyada, programı her açtığımda; Excel Sayfa3'te E14-E24 arasındaki hücrelerde bulunan rakamları otomatik olarak temizleyecek bir formül için yardımlarınızı talep etmekteyim. Bunu istemedeki amaç E14-E24 arasındaki rakamları E25 te topluyorum. Ancak E19 daki rakamı sıfır değer aldığımda bir önce girilen rakamla topladığı için sonuç yanlış oluyor. Yardımlarınız için şimdiden teşekkürler.

 

[a_self_lion]

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

buradan dosyayı paylaşırsanız bakabilirim. indiremiyorum çünkü.

 

[aliadanur]

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

buradan dosyayı paylaşırsanız bakabilirim. indiremiyorum çünkü.

Yükledim üstadım ilginiz için teşekkürler

 

[omerybalarisi]

Yükledim üstadım ilginiz için teşekkürler

Yüklediğiniz dosyanın linkini de koyar mısınız gözden kaçmış sanırım

 

[antonio]

Merhaba,
Aşağıdaki kodu deneyiniz:

Private Sub Workbook_Open()
Sayfa3.Range("E14:E24").ClearContents
End Sub

 

[aliadanur]

Merhaba,
Aşağıdaki kodu deneyiniz:

Private Sub Workbook_Open()
Sayfa3.Range("E14:E24").ClearContents
End Sub

Üstadım sonuç alamadım, hata yapmış da olabilirim. Aslında Sayfa3 E14-E24 arasındaki rakamları E25 te topluyorum. Ancak E25 teki toplam tutar hep hatalı oluyor. Burada doğru toplam alabilsek sorun çözülecek gibi duruyor. Kodlar aşağıdaki şekilde. Burada bir yanlış olabilir mi?


Private Sub btn_Kaydet_Click()
Dim ws As Worksheet: Dim ws3 As Worksheet

Set ws3 = ThisWorkbook.Sheets("Sayfa3")

If Me.TextBox45.Value <> "" Then

ws3.Range("E5").Value = CDbl(Me.TextBox45.Value)
' ws3.Range("E7").Value = CDbl(Me.TextBox45.Value)
ws3.Range("E9").Value = CDbl(Me.TextBox45.Value) - CDbl(Me.TextBox51.Value)
ws3.Range("E7").Value = ws3.Range("E5").Value - ws3.Range("E6").Value
ws3.Range("E10").Value = ws3.Range("E7").Value - ws3.Range("E9").Value
ws3.Range("E11").Value = ws3.Range("E10").Value * 0.2
ws3.Range("E12").Value = ws3.Range("E10").Value + ws3.Range("E11").Value
ws3.Range("E15").Value = ws3.Range("E10").Value * 0.00948
ws3.Range("E16").Value = ws3.Range("E11").Value * 5 / 10
ws3.Range("E25").Value = ws3.Range("E14").Value + ws3.Range("E15").Value + ws3.Range("E16").Value + ws3.Range("E17").Value + ws3.Range("E18").Value + ws3.Range("E19").Value + ws3.Range("E20").Value + ws3.Range("E21").Value + ws3.Range("E22").Value + ws3.Range("E23").Value + ws3.Range("E24").Value
ws3.Range("E26").Value = ws3.Range("E12").Value - ws3.Range("E25").Value
' ws3.Range("E10").Value = ws3.Range("E9").Value - ws3.Range("E7").Value
' ws3.Range("E11").Value = ws3.Range("E10").Value * 0.2
' ws3.Range("E15").Value = ws3.Range("E10").Value * 0.948
Else
MsgBox "Önce hesaplamayı yaptırın", vbInformation, Application.UserName
Exit Sub
End If
Sheets("Sayfa3").Activate

Sheets("Sayfa2").Activate

 

[a_self_lion]

Yükledim üstadım ilginiz için teşekkürler

Ali Bey yüklediğiniz dosyanın likini buraya koyarsanız bide indirelim.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

şu yukarıda ki verdiğim Dosya.co sitesine yükleyiniz ve indirme linkini buradan paylaşınız lütfen.

 

[a_self_lion]

Üstadım sonuç alamadım, hata yapmış da olabilirim. Aslında Sayfa3 E14-E24 arasındaki rakamları E25 te topluyorum. Ancak E25 teki toplam tutar hep hatalı oluyor. Burada doğru toplam alabilsek sorun çözülecek gibi duruyor. Kodlar aşağıdaki şekilde. Burada bir yanlış olabilir mi?


Private Sub btn_Kaydet_Click()
Dim ws As Worksheet: Dim ws3 As Worksheet

Set ws3 = ThisWorkbook.Sheets("Sayfa3")

If Me.TextBox45.Value <> "" Then

ws3.Range("E5").Value = CDbl(Me.TextBox45.Value)
' ws3.Range("E7").Value = CDbl(Me.TextBox45.Value)
ws3.Range("E9").Value = CDbl(Me.TextBox45.Value) - CDbl(Me.TextBox51.Value)
ws3.Range("E7").Value = ws3.Range("E5").Value - ws3.Range("E6").Value
ws3.Range("E10").Value = ws3.Range("E7").Value - ws3.Range("E9").Value
ws3.Range("E11").Value = ws3.Range("E10").Value * 0.2
ws3.Range("E12").Value = ws3.Range("E10").Value + ws3.Range("E11").Value
ws3.Range("E15").Value = ws3.Range("E10").Value * 0.00948
ws3.Range("E16").Value = ws3.Range("E11").Value * 5 / 10
ws3.Range("E25").Value = ws3.Range("E14").Value + ws3.Range("E15").Value + ws3.Range("E16").Value + ws3.Range("E17").Value + ws3.Range("E18").Value + ws3.Range("E19").Value + ws3.Range("E20").Value + ws3.Range("E21").Value + ws3.Range("E22").Value + ws3.Range("E23").Value + ws3.Range("E24").Value
ws3.Range("E26").Value = ws3.Range("E12").Value - ws3.Range("E25").Value
' ws3.Range("E10").Value = ws3.Range("E9").Value - ws3.Range("E7").Value
' ws3.Range("E11").Value = ws3.Range("E10").Value * 0.2
' ws3.Range("E15").Value = ws3.Range("E10").Value * 0.948
Else
MsgBox "Önce hesaplamayı yaptırın", vbInformation, Application.UserName
Exit Sub
End If
Sheets("Sayfa3").Activate

Sheets("Sayfa2").Activate

Burada verdiğiniz kodlara göre baktığımızda


ws3.Range("E25").Value = _
ws3.Range("E14").Value + ws3.Range("E15").Value + ws3.Range("E16").Value + _
ws3.Range("E17").Value + ws3.Range("E18").Value + ws3.Range("E19").Value + _
ws3.Range("E20").Value + ws3.Range("E21").Value + ws3.Range("E22").Value + _
ws3.Range("E23").Value + ws3.Range("E24").Value

bu formül, E14 ile E24 arasındaki hücreleri tek tek toplayarak E25 hücresine yazıyor.
ğer E14:E24 aralığında boş hücre, boşluk ("") ya da metin varsa, bunlar toplama dahil olurken hatalı sonuçlara neden olabilir.

VBA'da "" + 5 = "5" olur, yani sayı gibi görünür ama metin olur.
Sonuç: Toplam hatalı ya da string döner.

Hücreleri toplamadan önce sayıya çeviriniz. aşağıdaki kodlarla.

Dim toplam As Double
Dim i As Integer

toplam = 0

For i = 14 To 24
    If IsNumeric(ws3.Range("E" & i).Value) Then
        toplam = toplam + CDbl(ws3.Range("E" & i).Value)
    End If
Next i

ws3.Range("E25").Value = toplam

Bu şekilde, sadece sayı olan hücreleri toplarsınız, metin veya boşluklar hataya neden olmaz.

 

[a_self_lion]

daha iyi bakabilmemiz için öncellikle dosyanızı yukarı da belirttiğim gibi ekleyin.

Aşağıdakileri de bir deneyin.

Private Sub btn_Kaydet_Click()
    Dim ws As Worksheet
    Dim ws3 As Worksheet
    Set ws3 = ActiveSheet

    If Me.TextBox45.Value <> "" Then
        ws3.Range("E5").Value = CDbl(Me.TextBox45.Value)
        ws3.Range("E9").Value = CDbl(Me.TextBox45.Value) - CDbl(Me.TextBox51.Value)
        ws3.Range("E7").Value = ws3.Range("E5").Value - ws3.Range("E6").Value
        ws3.Range("E10").Value = ws3.Range("E7").Value - ws3.Range("E9").Value
        ws3.Range("E11").Value = ws3.Range("E10").Value * 0.2
        ws3.Range("E12").Value = ws3.Range("E10").Value + ws3.Range("E11").Value
        ws3.Range("E15").Value = ws3.Range("E10").Value * 0.00948
        ws3.Range("E16").Value = ws3.Range("E11").Value * 0.5

        ' E25 toplamını hesapla
        ws3.Range("E25").Value = _
            Nz(ws3.Range("E14").Value) + Nz(ws3.Range("E15").Value) + Nz(ws3.Range("E16").Value) + _
            Nz(ws3.Range("E17").Value) + Nz(ws3.Range("E18").Value) + Nz(ws3.Range("E19").Value) + _
            Nz(ws3.Range("E20").Value) + Nz(ws3.Range("E21").Value) + Nz(ws3.Range("E22").Value) + _
            Nz(ws3.Range("E23").Value) + Nz(ws3.Range("E24").Value)

        ws3.Range("E26").Value = ws3.Range("E12").Value - ws3.Range("E25").Value
    Else
        MsgBox "Önce hesaplamayı yaptırın", vbInformation, Application.UserName
        Exit Sub
    End If
End Sub

Ekstra: Nz Fonksiyonu (Null'lara Karşı Koruma) koyarsak

Excel'de boş hücrelerde + işlemi yaptığınızda hata almamak için Nz adında bir yardımcı fonksiyon tanımlayabilirsiniz. Bu, boş hücreleri 0 olarak kabul eder:

Private Function Nz(value As Variant) As Double
If IsEmpty(value) Or IsNull(value) Or value = "" Then
Nz = 0
Else
Nz = CDbl(value)
End If
End Function

Bu fonksiyonu modülünüzün en altına ekleyebilirsiniz.