Makro ile alt toplam

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

Makro ile alt toplam

İleti#1)  Koboy66 » 06 Arl 2018 10:11

Merhaba stok sayfam var birde rapor sayfam.
Stok sayfasındaki verileri rapor sayasına toplam alarak yazdırıyorum.
Söyle bir durum oldu veriler çok olduğu için 2 sayfada neredeyse aynı verileri getiriyorum excel çok geç açılıyor.
Rapor sayfasındaki işlemi stok sayfası içinde nasıl yapabilirim.
Teşekkür ederim.
Dosya ektedi.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Makro ile alt toplam

İleti#2)  Ozan İLGÜN » 06 Arl 2018 10:48

Bana rapor sayfasında ne yapmaya çalıştığınızı ve aktar topla butonunun işlevini söyleyebilir misiniz?
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Makro ile alt toplam

İleti#3)  Koboy66 » 06 Arl 2018 11:00

Tabi stok_takibi sayfasını daki RAF YERİ yerini rapor sayfana RAF YERİ olarak ayırıyor ve alttoplam yapıyor.
Benim istediğim bu işlemi RAF YERİ ne göre aynı sayfa içinde yapsın butona tıkladığımda RAF YERİ ne göre
isimleri ayırsın alt topma versin rapor sayfası yerine
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Makro ile alt toplam

İleti#4)  Koboy66 » 06 Arl 2018 11:10

rapor_sayfası.png


stok_sayfası.png


resim yükledim abi
rapor sayfasıdaki işlemi aslında stok_takip sayfasında yapması
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

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

Cevap: Makro ile alt toplam

İleti#5)  Ozan İLGÜN » 10 Arl 2018 10:16

alttoplam.PNG
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Makro ile alt toplam

İleti#6)  Ozan İLGÜN » 10 Arl 2018 11:10

Bu da makro ile yapılmış hali.Bir butona bu kodu atayıp deneyebilirsiniz.
Kod: Tümünü seç
Sub aratoplam()
Dim liste As New Scripting.Dictionary
' Microsoft Scripting Runtime referansı eklenmeli

Dim i As Integer
Dim last As Integer
Dim toplam As Long

last = Range("B" & Sayfa1.Rows.Count).End(3).Row
Range("A3:L" & last).Sort key1:=Range("F3"), _
      order1:=xlAscending, Header:=xlNo
For i = 3 To last
Range("M3").Value = last
If Range("F" & i).Value = Range("F" & (i + 1)).Value Then
toplam = toplam + Range("I" & i).Value

Else


toplam = toplam + Range("I" & i).Value

liste.Add i, toplam
toplam = 0

End If
Next i


Dim ii As Long
For ii = liste.Count - 1 To 0 Step -1
Rows(liste.Keys(ii) + 1).Insert
Range("H" & (liste.Keys(ii) + 1)).Value = "TOPLAM"
Range("I" & (liste.Keys(ii) + 1)).Value = liste.Items(ii)
Next ii
End Sub
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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 ve 6 misafir

cron
Bumerang - Yazarkafe