ALT TOPLAM ve BAĞ_DEĞ_DOLU_SAY

[sensizsoldum]

Merhaba,
Aşağıdaki toplam makrosunu ALTTOPLAM ve BAĞ_DEĞ_DOLU_SAY olarak çevirebilir miyiz?
Yani bana böyle kısa ALTTOPLAM ve BAĞ_DEĞ_DOLU_SAY makroları lazım. Yardımcı olabilir misiniz?

Range("E2") = WorksheetFunction.Sum(Range("E3:E65536"))

 

[Orion1]

Buyurun.

MsgBox "Bağdeğdolusay :" & WorksheetFunction.CountA(Range("E3:E65536"))
MsgBox "Alttoplam :" & WorksheetFunction.Subtotal(9, Range("E3:E65536"))

 

[sensizsoldum]

Merhaba Evren Bey,
Çok teşekkür ederim ilginiz için, Çok sağ olun. Aşağıda yazılı kısa formülde A2 hücresinde B2 Hücresini çıkarmak istiyorum. Bununda böyle kısa bir yolu olabilir mi?

=+A2-B2

 

[Orion1]

Merhaba Evren Bey,
Çok teşekkür ederim ilginiz için, Çok sağ olun. Aşağıda yazılı kısa formülde A2 hücresinde B2 Hücresini çıkarmak istiyorum. Bununda böyle kısa bir yolu olabilir mi?

=+A2-B2

çalışma sayfası fonksiyonu ile istediğiniz için.

MsgBox WorksheetFunction.Sum(Range("A2").Value, -Range("B2").Value)

 

[sensizsoldum]

Merhaba Evren Bey,
İlginiz için çok teşekkür ediyorum. Sayenizde Formülleri bu şekilde makro haline dönüştürüp formül olayını kapatıyorum.
Yine bu şekilde bir hücreye formül olarak şunu yazmak istiyorum. Bunu az önceki formül gibi düşünüp bu yazı ile sonuçlar geliyor. Ama bu yazının görünmesini istemiyorum. Gelen sonucu görmek istiyorum. Bunu da düzenleyebilir miyiz? Sanırım buda son olacak
Tekrardan teşekkür ediyorum.
İyi çalışmalar dilerim.

=Atılanlar()

 

[Orion1]

Merhaba Evren Bey,
İlginiz için çok teşekkür ediyorum. Sayenizde Formülleri bu şekilde makro haline dönüştürüp formül olayını kapatıyorum.
Yine bu şekilde bir hücreye formül olarak şunu yazmak istiyorum. Bunu az önceki formül gibi düşünüp bu yazı ile sonuçlar geliyor. Ama bu yazının görünmesini istemiyorum. Gelen sonucu görmek istiyorum. Bunu da düzenleyebilir miyiz? Sanırım buda son olacak
Tekrardan teşekkür ediyorum.
İyi çalışmalar dilerim.

=Atılanlar()

Bu sanırım bir KTF(Kullanıcı Tanımlı Fonksiyon).
kft kodlamasında neler yazılmış görmek lazım.

 

[sensizsoldum]

Merhaba Evren Bey,
Sanırım sizinde dediğiniz gibi Ktf olmalı. Dolgu rengine göre toplama yapıyor. Ben hücrede bu formülün görünmesini istemiyorum. O bakımdan Makro olarak bu formülün yazılmasını ve yazılan hücrede formülün görünmesini değilde sonucun görünmesini istiyorum.

Function Atilanlar()
Application.Volatile True
Dim hucre As Variant
son = Cells(Rows.Count, "b").End(xlUp).Row
Set Dizi = Range("b3:b" & son)
For Each hucre In Dizi
If hucre <> "" Then
ad = hucre.Address
If Range(ad).FormatConditions.Parent.AllowEdit = True Then
If hucre.Offset(0, 1) = "WARNİNG" Then
toplam = toplam + 1

End If: End If:  End If
Next
Atilanlar = toplam

End Function

 

[uzmanamele]

Merhaba Evren Bey,
Sanırım sizinde dediğiniz gibi Ktf olmalı. Dolgu rengine göre toplama yapıyor. Ben hücrede bu formülün görünmesini istemiyorum. O bakımdan Makro olarak bu formülün yazılmasını ve yazılan hücrede formülün görünmesini değilde sonucun görünmesini istiyorum.

Function Atilanlar()
Application.Volatile True
Dim hucre As Variant
son = Cells(Rows.Count, "b").End(xlUp).Row
Set Dizi = Range("b3:b" & son)
For Each hucre In Dizi
If hucre <> "" Then
ad = hucre.Address
If Range(ad).FormatConditions.Parent.AllowEdit = True Then
If hucre.Offset(0, 1) = "WARNİNG" Then
toplam = toplam + 1

End If: End If:  End If
Next
Atilanlar = toplam

End Function

Merhaba
Bu ktf'yi yazanın anlından öpmek lazım.
Kod içerisinde mümkün olduğunca Türkçe karakter kullanmamaya çalışmış ancak WARNİNG kelimesinin İngilizce'de bu şekilde yazılmadığının birileri tarafından uyarılması lazım.

 

[uzmanamele]

Benimki de dert mi şimdi?!
Türkçeyi doğru kullandık yetmedi, İngilizcede hata düzeltmeye çalışıyoruz...

 

[sensizsoldum]

Merhaba, Uzman Hocam,
Soruya cevap verebilir misiniz. Toplamı alacağım hücre b2 hücresine uyguluyorum.

İyi akşamlar dilerim.

 

[Orion1]

C1 hücresine yazar.
Şöyle deneyin.

Range("C1").value=atilanlar()

 

[sensizsoldum]

Hocam Çok teşekkür Elinize Bilginize Sağlık
İyi çalışmalar dilerim.

 

[sensizsoldum]

Merhaba Evren Bey,
Şuana kadar her şey çok güzel ilerliyor, minik bir sorunla karşı karşıyayım. Aslında sorunda denileceğini zannetmiyorum. Aşağıdaki koda ait toplamları çektiğim yer işlem yapılmazken boş duruyor. Bu boşluğu 0 olarak durdura bilir miyiz yani toplanacak veri yok ise boşluk yerine 0 rakamı olsun istiyorum. Kod Aşağıdaki gibidir.

Function RenkSayk()
Application.Volatile True
Dim hucre As Variant
son = Cells(Rows.Count, "b").End(xlUp).Row
Set Dizi = Range("b3:b" & son)
For Each hucre In Dizi
If hucre <> "" Then
ad = hucre.Address
If Range(ad).FormatConditions.Parent.AllowEdit = True Then
If hucre.Offset(0, 1) = "WARNİNG" Then
toplam = toplam + 1

End If: End If:  End If
Next
RenkSayk = toplam

End Function

 

[Korhan Ayhan]

Fonksiyon başlığını aşağıdaki gibi değiştirip deneyin.

Function RenkSayk() As Long

 

[sensizsoldum]

Eyvallah Hocam. Çok teşekkür ediyorum.
İyi çalışmalar dilerim.