Degisik satir aralarini toplama

[laroche23]

Merhabalar,

Sizlerden bir ricam olacak idi. Ekli dosyada sari ile highlight edilmis "I" kolonundaki satirlari toplamak istiyorum.

Acaba bunun pratik/hizli bir yontemi var midir?

Tesekkurler,

 

[Vedat Özer]

Selamlar,

Ekdeki Dosyayı İnceleyin,
Kodlar alıntıdır.Necdet Hocamız..

 

[Merhum İdris SERDAR]

Merhabalar,

Sizlerden bir ricam olacak idi. Ekli dosyada sari ile highlight edilmis "I" kolonundaki satirlari toplamak istiyorum.

Acaba bunun pratik/hizli bir yontemi var midir?

Tesekkurler,

.

Dosyanız ekte.

.

 

[laroche23]

Merhabalar,

Cevap gonderen arkadaslarima/hocama tesekkurler.

Yanliz uygulanan formulde her iki calisma sayfasinda da #AD cikiyor. Sanki toplama islemini gerceklestirmiyor. Nedendir acaba?

 

[Vedat Özer]

Selamlar,

Makroları Etkinmi ?

 

[laroche23]

Merhaba,

Pek emin degilim ama sanmiyorum.

Nasil etkin hale getirebilirim?

 

[Vedat Özer]

Selamlar,

Araçlar/Makro/Güvenlik/Orta Seçeneğini İşaretleyin.
Tamam Diyin...Dosyyaı Kapatıp tekrardan açıp makroları etkinlleştir diyip açın...

 

[laroche23]

Merhabalar,

Maalesef toplam islemini gene gerceklestirmiyor.

Acaba onceki mesajimda gonderdigim ekli dosyayi tekrar inceler toplama islemini gerceklestirmeyi deniyebilir misiniz?

Yardim icin cok tesekkur ederim.

 

[Merhum İdris SERDAR]

Merhabalar,

Maalesef toplam islemini gene gerceklestirmiyor.

Acaba onceki mesajimda gonderdigim ekli dosyayi tekrar inceler toplama islemini gerceklestirmeyi deniyebilir misiniz?

Yardim icin cok tesekkur ederim.

.

Benim eklediğim dosya, sizin dosyanız. Onu açın. Bakın.

.

 

[Vedat Özer]

Selamlar,

Sayın, Yurttas'ın verdiği dosyyaı kulanının

 

[laroche23]

Yurttas Bey,

Evet simdiki calismanizda toplama islemi gerceklesmis.

Son sorum olarak bu formulu nerden bulabiliriz excel'de? Yani formuller kisminda yok sanirim? Manuel olrak mi yazilmasi lazim?

Saygilar

 

[Vedat Özer]

Selamlar,

Bu Kullanıdıgınız Formül Olarak tanımlanmış vd kodudur bu kodları başka çalışma sayfasına kodu yapıştırarak kulanabilirsiniz...

İyi Çalışmalar Dilerim.

 

[laroche23]

Bu konu uzerinde bi hayli fazla durdum sanirim ama Yurttas bey'in formulunu baska bir dosya'da denedigim zaman gene toplam islemini gerceklestirmiyor?

Hangi asamada Makrolari etkin hale getirmem lazim?

Basinizi agrittim. Vaktiniz icin tesekkur ederim

 

[Vedat Özer]

Selamlar,

Bu Kodları Hangi çalışma sayfanını kod bölümene yapıştırırsanız ...
dosya açıldıgında makroları etkin diyip
formul olarak yazıp sonucları öğrenebilirsiniz.

İyi Çalışmalar Dilerim

 

[Merhum İdris SERDAR]

Yurttas Bey,

Evet simdiki calismanizda toplama islemi gerceklesmis.

Son sorum olarak bu formulu nerden bulabiliriz excel'de? Yani formuller kisminda yok sanirim? Manuel olrak mi yazilmasi lazim?

Saygilar

İşin içine renkler girdi mi, bunun için makro yazmak gerekir. Yani anlayacağınız renklerle ilgili işlem yapacak yerleşik fonksıyon yok. Bunun için kullanıcı tanımlı fonksiyon yazmak gerekir.

Dosyada iki tanımlı fınksiyon kullandım. Bunlardan birisi:

Function renk(InRange As Range, Optional _
    OfText As Boolean = False) As Integer
Application.Volatile True
If OfText = True Then
    renk = InRange(1, 1).Font.ColorIndex
Else
    renk = InRange(1, 1).Interior.ColorIndex
End If

End Function

Bununla kullandığınız highlight'ın rengini buluyoruz.

Diğeri:

Function Renklitopla(alan As Range, renk As Integer, _
    Optional metin As Boolean = False) As Double

Dim aln As Range
Dim OK As Boolean

Application.Volatile True
For Each aln In alan.Cells
    If metin = True Then
        OK = (aln.Font.ColorIndex = renk)
    Else
        OK = (aln.Interior.ColorIndex = renk)
    End If
    If OK And IsNumeric(aln.Value) Then
        Renklitopla = Renklitopla + aln.Value
    End If
Next aln

End Function

Bununla da renk kodu belli olan hücreleri topluyoruz.


Bu iki fonksiyonu içiçe yazınca, dosyanıza göre;

=Renklitopla(I4:I19;renk(A6);0)

şeklini alır.

.

 

[laroche23]

Her iki arkadasima da cok tesekkur ederim.
Elinize saglik.

 

[laroche23]

Bu konu uzerinde yardimci olan arkadaslar;

Farkli bir excel sayfasi uzerinde gene farkli satir aralarini toplamaya calisiyorum fakat gene toplama islemi gerceklesmiyor. Gondermis oldugunuz calisma sayfalarindan copy/paste seklinde de denedim, makrolari orta duzeye de getirdim ama nafile, bir turlu toplama islemi gerceklesmiyor.

Eger alternatif olarak baska bir cozum yok ise bu konu uzerinde daha fazla durmayacagim.

Yardimlariniz icin tekrar tesekkur ederim.

 

[Vedat Özer]

Selamlar,

Dosyayı ekleyebilirmisiniz ?

 

[laroche23]

Rapor isimli dosya ektedir.

Sari renkli satirlari toplamak istiyorum. Bu liste'de 200 uzeri musteri oldugu zaman ve belli satir aralarini toplamak ihtiyaci oldugu zaman, is biraz karisiyor.

Yardiminiz icin tesekkurler,

Saygilar

 

[Vedat Özer]

Selamlar,

Ekdeki dosyyı inceleyin.