ORTALAMA HESPLAMA

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

ORTALAMA HESPLAMA

İleti#1)  raburabu » 04 Tem 2018 20:14

Merhabalar
Örnek içerisine de açıklama yazdım.
Çek toplamı kadar . B4 den aşağıya doğru toplam faturaları hesaplayıp
geriye kalan faturaları temizletebilirmiyiz. Örnek 3 adet çek alındı
bu çeklerin toplamı 110.000 tl. Sarı zeminli hücrelerin toplamı 115.429 tl geriye kalan
faturaları temizleyebilir miyiz. çek miktarı azda olabilir çok da olabilir. Gerçek ortalamayı alabilmemiz için gerekli.
Yardımcı olabilirseniz çok teşekkür ederim.
Şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
raburabu
 
Adı Soyadı:ramazan yıldırım
Kayıt: 21 Eyl 2011 02:02
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: ORTALAMA HESPLAMA

İleti#2)  feraz » 04 Tem 2018 23:18

Kod: Tümünü seç
Sub ortalama()

Dim a As Double, i As Integer, top As Double

Application.ScreenUpdating = False

With Sheets("Sayfa1")
    top = CDbl(Application.WorksheetFunction.Sum(.Range("I4:I" & Rows.Count)))
    For i = 4 To .Range("B" & Rows.Count).End(3).Row
        a = a + CDbl(.Cells(i, "B").Value)
        If a >= top Then Exit For
    Next
   
    If a < top Then GoTo son

       .Range("A" & i + 1 & ":B" & Rows.Count).Clear
End With

son:
Application.ScreenUpdating = True

a = Empty: i = Empty: top = Empty

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5051
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: ORTALAMA HESPLAMA

İleti#3)  raburabu » 05 Tem 2018 10:48

Merhaba Feraz bey

Çok teşekkür ederim. Süper olmuş. Hücreleri tamamen değilde içeriğini silebilir miyiz. Teşekkür ederim.
Kullanıcı avatarı
raburabu
 
Adı Soyadı:ramazan yıldırım
Kayıt: 21 Eyl 2011 02:02
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: ORTALAMA HESPLAMA

İleti#4)  feraz » 05 Tem 2018 11:12

Kod: Tümünü seç
.Range("A" & i + 1 & ":B" & Rows.Count).Clear


Merhaba üsteki kod yerine alttakini deneyebilirsiniz.

Kod: Tümünü seç
.Range("A" & i + 1 & ":B" & Rows.Count).Clearcontents


Yada

Kod: Tümünü seç
.Range("A" & i + 1 & ":B" & Rows.Count)=""
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5051
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ORTALAMA HESPLAMA

İleti#5)  raburabu » 05 Tem 2018 12:22

Elinize sağlık
Kullanıcı avatarı
raburabu
 
Adı Soyadı:ramazan yıldırım
Kayıt: 21 Eyl 2011 02:02
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: ORTALAMA HESPLAMA

İleti#6)  feraz » 05 Tem 2018 12:24

Rica ederim, kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5051
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, askmadige34, Bing[Bot] ve 7 misafir

Bumerang - Yazarkafe