• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile Etopla

E

evren_01

Katılım
6 Temmuz 2004
Mesajlar
157
Excel Vers. ve Dili
Microsoft® Office 2019 TR
Arkadaşlar herkese merhaba

Benim sorum sayın kadir beyin sorusunun hemen hemen aynısı
http://www.excel.web.tr/viewtopic.php?t=5407&highlight=veri

Sorumu şöyle anlatayım

=ETOPLA('[Kitap1.xls]sayfa1'!$B$3:$B$252;B3&"";'[Kitap1.xls]sayfa1'!$I$3:$I$252)

Bu formülün makrosu nasıldır.

Kod: 
Sub hesapla()
Set s1 = Kitap1
[I3] = WorksheetFunction.SumProduct(s1.[b3:b59839] = [b3], s1.[I3:I59839]
End Sub
 
bir deneyin.

[vb:1:b593020bd4]
Sub dene()
Cells(1, 1) = Application.WorksheetFunction.SumIf(Sayfa1.[b3:b252], [b3], Sayfa1.[I3:I252])
End Sub[/vb:1:b593020bd4]
 
Sn Danersin RUN TİME ERORR hatası verdi

hata [b3]
komutunda olabilir mi
 
Kodda sayfa isimlerini kendi çalışmanıza göre değiştirmelisiniz.
Aşağıdaki şekilde yapıp "sd" yazan yerde tırnak içini olması gereken sayfa isimlerini yazın. [b3] aktif sayfada diye kabul ettim.

Sub dene()
Cells(1, 1) = Application.WorksheetFunction.SumIf(Sheets("sd").[b3:b252], [b3], Sheets("sd").[I3:I252])
End Sub
 
Sn danersin

işin içinden cıkamadım .
=ETOPLA('[Kitap1.xls]sayfa1'!$B$3:$B$252;B3&"";'[Kitap1.xls]sayfa1'!$I$3:$I$252)

bu formuldeki b3&"" durumda hataya sebeb oluyoor zannedersem

Cells(1, 1) = Application.WorksheetFunction.SumIf(Workbooks ("Kitap1.xls") Sheets ("sayfa1").[b3:b252], [b3], Workbooks ("Kitap1.xls") Sheets ("sayfa1").[I3:I252])

olması gerekmiyor mu

bu arada bu makroyu verileri okunacak yere mi yoksa verileri yazılacak yere mi yazmalıyım.
Ben ETOPLA mantığındaki gibi hareket ediyorum..
 
Makroyu aşağıdaki gibi düzenleyin ve kitap1 in bir sayfasında bir butona bağlayarak çalıştırın.

[vb:1:be9a67f781]Sub topla()
Windows("Kitap2").Activate
toplam =WorksheetFunction.SumIf(Sheets("sayfa1").[b3:b252],[b3], sheets("sayfa1").[i3:i252])
Windows("Kitap1").Activate
[a1] = toplam
End Sub
[/vb:1:be9a67f781]
 
Sub Anlasilir()
Workbooks("Kitap2").Activate
Workbooks("Kitap1").Sheets(1).[A1] = WorksheetFunction.SumIf(Workbooks("Kitap2").Sheets(1).[B3:B252], _
[B3], Sheets(1).[I3:I252])
Workbooks("Kitap1").Activate
End Sub

Kendi ETopla'nızı oluşturmanızda mümkündür.
 
Sn Levent Bey


Ellerinize sağlık cook güzel oldu

Teşekkür ederim ... :bravo: :bravo:

:icelim:
 
Sn Levent bey bir kücük sorum olacaktı

[a1] = toplam

kısmındaki makro da şöyle yapabilmek için nasıl bir yol izlemek gerek

[a1] , [b1] , [c1] = toplam
 
=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)
Bu formülü makro ile düzenleyebilir miyiz?
 
Formulünüz tutarsız. Lütfen örnek dosya üzerinde yapmak istediğinizi belirtiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst