ETOPLA formülünü makro ile girmek.

[Cengelkoylu]

Selam arkadaşlar.

ETOPLA formülünü for-next döngüsü ile kullanamadım.
Hep hata verdi.
Ekteki dosyada, LISTE sayfası sabit, VERI sayfasındaki satırlar değişken.

LISTE sayfasında KOD lar tek.
VERI sayfasında o kodlardan birden fazla var.

ETOPLA ile, LISTE sayfasındaki kodların yanına, VERI sayfasındaki satırlarda bulunan adetleri toplayıp getirmek istiyorum.

Elle yapabiliyorum ama, fonksiyon bilmeyen kişiler kullanacak.

Yardımcı olacaklara şimdiden teşekkür ederim.
Erdal Demir

 

[Ömer]

Merhaba,

Sub ETopla_Formulu_Gir()
 
Dim i As Long
 
Sheets("LISTE").Select
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(i, "C").Formula = "=SUMIF(VERI!A:A,A" & i & ",VERI!B:B)"
Next i
    
End Sub

Bu şekilde deneyiniz..

.

 

[Cengelkoylu]

Denedim, mükemmel. Çok teşekkür ediyorum. Biz acemiler, formülleri böyle zip'lemeyi başaramıyoruz.

 

[gedavet]

güzel bir örnek
liste sayfasında a3 e veri yazınca çalışsa kod bu şekilde bir örnek olabilirmi

 

[Korhan Ayhan]

LİSTE sayfasının kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then Exit Sub
    Target.Next.Formula = "=SUMIF(VERI!A:A," & Target.Address(0, 0) & ",VERI!B:B)"
End Sub

 

[turankr]

=ETOPLA($G$1:G1;"giren";I:I)-ETOPLA($G$1:G1;"çıkan";J:J)-ETOPLA($G$1:G1;"masraf";J:J)+ETOPLA($G$1:G1;"başka kasa giren";I:I)
Formülünü makro ile düzenleyebilir miyiz?

 

[memo'o]

LİSTE sayfasının kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then Exit Sub
    Target.Next.Formula = "=SUMIF(VERI!A:A," & Target.Address(0, 0) & ",VERI!B:B)"
End Sub

Hocam iyi günler üstteki kodlamanızı kendime uyarlamak istedim fakat başarılı olamadım. Yardımcı olabilir misiniz acaba ?

=ETOPLA(Defter!$AB$14:$AB$10000;Hurda!J8;Defter!$I$14:$I$10000)+ETOPLA(Defter!$AB$14:$AB$10000;Hurda!J8;Defter!$O$14:$O$10000)

 

[Korhan Ayhan]

Dosyanızı eklerseniz yardımcı olabilirim.

Ek olarak işlemi nasıl kullanmak istediğinizi de belirtiniz.

 

[memo'o]

http://s6.dosya.tc/server9/19c2ez/Deneme.rar.html


Yazacağım kalemler biraz çok hocam , İşlem olarak farklı sayfadaki benzer verileri toplamak istiyorum.. Klasik etopla , çoketopla işlemleri (hurda sayfasında )..