[Yardım]  birikimli satır satır aktarma

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

birikimli satır satır aktarma

İleti#1)  malatyali » 21 Kas 2021 17:07

Hayırlı Günler,

Userform Ödeme Sayfasında
Listbox1, Listbox2, Listbox3 ve Listbox4 deki değerlere göre Arşiv sayfasında A : X aralığında ki verileri yine Arşiv Sayfasında AA : AW aralığına Kişi Aktar butonu ile seçip aktarıyor.
Arşiv Sayfasındaki AA : AW aralığında ki verileri Yapılan işler Listesi sayfasına birikimli (kümülatifli) aktarmayı yapamadım.

Mümkün ise sizlerden talebim:
Kişi Aktar butonu ile Yapılan İşler Listesi sayfasında istenilen verileri Arşiv sayfasında ki AA : AW aralığında birikimli olarak aktarmak.
Yapılan İşler Listesi Sayfasında Arşiv sayfasında hangi sütundan alınacağı yazıldı. Rica etsem yardımcı olabilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#2)  okutkan » 21 Kas 2021 18:03

-Yapılan işler sayfasına, arşiv sayfasından hangi kritere göre veri çekilecek? Tüm satırlar mı çekilecek?
-Yapılan işler sayfasındaki J9 hücresindeki 'hakediş no' arşiv sayfasındaki AX sütununun toplamı mı?
-Yapılan işler sayfasındaki D sütununda yazan "Gün" birimi standart mı?
-Yapılan işler sayfasındaki J8 hücresindeki 'Sayfa No' Nereden çekiliyor? AD sütunu demişsiniz ama AD sütununda herhangi bir sayfa numarası yok.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#3)  malatyali » 21 Kas 2021 19:27

Yapılan işler sayfasına, arşiv sayfasından hangi kritere göre veri çekilecek? Tüm satırlar mı çekilecek?
Ödeme Sayfasında Listbox seçimlerine göre AA:AW sütununa aktarıyor.
AA:AW sütunlarından Yapılan İşler Listesi Sayfasına
1 - Arşiv sayfasından AD, AE birleşimi Yapılan İşler Listesi sayfasında C12 den itibaren ödeme satırı kadar
2 - Yapılan İşler Listesi sayfasında D12 den itibaren ödeme satırı kadar "Gün" Yazılacak
3 - Arşiv sayfasından AF sütunu Yapılan İşler Listesi sayfasında E12 den itibaren ödeme satırı kadar
4 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında F12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
5 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında G12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
6 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında H12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
7 - Arşiv sayfasından AJ sütunu Yapılan İşler Listesi sayfasında G12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
8 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında J12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
9 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında K12 den itibaren ödeme satırı kadar kümülatifli aktarılacak

Yapılan işler sayfasındaki J9 hücresindeki 'hakediş no' arşiv sayfasındaki AX sütununun toplamı mı?
Evet
Yapılan işler sayfasındaki D sütununda yazan "Gün" birimi standart mı?
Evet
Yapılan işler sayfasındaki J8 hücresindeki 'Sayfa No' Nereden çekiliyor?
Arşiv sayfasındaki AX sütununun toplamı

Ali İhsan Bey
Yardımcı olduğunuz için teşekkür ederim.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#4)  malatyali » 21 Kas 2021 19:30

Ali İhsan Bey
Sizin kodları örnek alarak ekleyeceğim diğer sayfalara da uygulamaya çalışacağım inşallah. Sizden ricam ekleyeceğiniz kodu aceminin anlayacağı şekilde yaparsanız memnun olurum
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

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

Cevap: birikimli satır satır aktarma

İleti#5)  okutkan » 21 Kas 2021 23:01

4 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında F12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
5 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında G12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
6 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında H12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
8 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında J12 den itibaren ödeme satırı kadar kümülatifli aktarılacak
9 - Arşiv sayfasından AI sütunu Yapılan İşler Listesi sayfasında K12 den itibaren ödeme satırı kadar kümülatifli aktarılacak


Bu işlemlerin hepsi aynı değil mi? Yani "AI" sütununda 240 ile 264 arasında 4 satır sayı var, bunları başka bir sayfadaki beş sütuna aktarma işlemini kamülatif dediğiniz şekilde nasıl aktarılacak? Kamülatif dediğiniz bir sayıyı üst satırdaki sayı ile toplamak mı?

Kısaca "AI" Sütunu altındaki 252, 240, 252, 264 sayılarından aşağıdaki sütunlarda bulunan sayı bolluğu nasıl oluşuyor :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#6)  malatyali » 21 Kas 2021 23:38

Ali İhsan Abim
Yapılan İşler Listesi Sayfası H Sütunu :
Her ödemenin gün sayısı bu sütuna yazılıyor. Bu sütuna göre

Yapılan İşler Listesi Sayfası G Sütunu :
H sütunu ilk ödeme öncesi olmadığından "0"
H sütunu ikinci ödeme gün sayısı 20 gün olduğundan G sütununa (bir önceki ödeme gün sayısı) 21
H sütunu Üçüncü ödeme 21 gün olduğundan G sütununa bir önceki ödemeler (Birinci ve İkinci Ödeme Gün sayısı toplamı) 41
H sütunu Dördüncü ödeme 22 gün olduğundan G sütununa bir önceki ödemeler (Birinci, ikinci ve üçüncü Ödeme Gün sayısı toplamı) 62


Aslında 10. satırda formül açıklaması yazılmış
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: birikimli satır satır aktarma

İleti#7)  okutkan » 22 Kas 2021 00:36

Yaptığınız iş muhasebeyle alakalı olduğu için kümülatifli toplam almayı bilmek gerekiyor:)

Aşağıdaki kodlamaya açıklamalarını yazdım. Biraz karışık oldu :) Sayfaya buton ekleyerek kodu kullanabilirsiniz.
Kod: Tümünü seç
Private Sub CommandButton21_Click()
Dim yapilan As Worksheet
Dim arsiv As Worksheet
Set arsiv = Sheets("Arşiv")
Set yapilan = Sheets("Yapılan İşler Listesi")
yapilanSon = yapilan.Cells(Rows.Count, "B").End(3).Row 'yap. işler sayfası son satır sayısı
ArsivSon = arsiv.Cells(Rows.Count, "B").End(3).Row 'arsiv sayfası son satır sayısı

yapilan.Range("B12:K50").ClearContents
a = 12 ' yapılan işler sayfası başlangıç satırı
hakedis = 0 'hakedis e başta 0
oncekiihzaratmiktar = 0
toplamihrazatmiktar = 0 'yap. iş F sütunu için
oncekihakedistutar = 0 'yap. iş. J sütunu için
toplamihrazattutar = 0 ' yap iş, I sütunu için
For i = 2 To ArsivSon ' arsiv sayfasındaki satır sayısı kadar döngü

If i = 2 Then 'Arşiv sayfasındaki ilk satır ise 0 sayısını verir
yapilan.Cells(a, "G") = 0
yapilan.Cells(a, "J") = 0
Else ' ilk satır değil ise aşağıdaki işlemleri yapar
oncekiihrazatmiktar = oncekiihrazatmiktar + arsiv.Cells(i - 1, "I").Value 'yap iş G sütunu için toplam al
oncekihakedis = oncekihakedistutar + arsiv.Cells(i - 1, "J").Value 'yap iş J sütunu için toplam al

yapilan.Cells(a, "G") = oncekiihrazatmiktar ' yap. iş sayfası kom. G sütununa yaz
yapilan.Cells(a, "J") = oncekihakedistutar ' yap. iş sayfası kom. J sütununa yaz
End If


toplamihrazatmiktar = toplamihrazatmiktar + arsiv.Cells(i, "I").Value 'yap iş F sütunu için toplam al
toplamihrazattutar = toplamihrazattutar + arsiv.Cells(i, "J").Value 'yap iş I sütunu için toplam alma
yapilan.Cells(a, "B") = i - 1 ' Her satıra Sıra no verme işlemi
yapilan.Cells(a, "C") = arsiv.Cells(i, "AD") & "/" & arsiv.Cells(i, "AE")
yapilan.Cells(a, "D") = "Gün"
yapilan.Cells(a, "E") = arsiv.Cells(i, "AF")
yapilan.Cells(a, "F") = toplamihrazatmiktar
yapilan.Cells(a, "K") = arsiv.Cells(i, "J")
yapilan.Cells(a, "H") = arsiv.Cells(i, "I")
yapilan.Cells(a, "I") = toplamihrazattutar
hakedis = hakedis + arsiv.Cells(i, "AX").Value 'hakedis i her satırda topluyor
a = a + 1 'her döngüde bir alt satıra yazması için +1 ekliyoruz
Next i

yapilan.Range("B8") = arsiv.Range("AD2") ' Taxıma Merkez okul
yapilan.Range("B9") = arsiv.Range("AE2") 'Taşınan Mahalle adı
yapilan.Range("J8") = "Sayfa No : XXX " ' buraya ne yazdıracaksanız aşağıdaki gibi bir uygulama yapabilirsiniz
yapilan.Range("J9") = "Hakkediş No : " & hakedis 'hakediş toplamını J9 a yazdırıyoruz
End Sub
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#8)  okutkan » 22 Kas 2021 00:38

Direkt aşağıdaki dosyada da kodu deneyebilirsiniz. Sayfa üzerinde buton bulunuyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#9)  malatyali » 22 Kas 2021 01:14

Ali İhsan Bey
Bana Sabır gösterdiğiniz için, yardımınızı esirgemediğiniz için size teşekkür ederim. Allah sizden razı olsun
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#10)  okutkan » 22 Kas 2021 01:16

Rica ederim. Eksik gördüğünüz yerler olursa konu altında yazarsanız tekrar yardımcı olurum.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#11)  malatyali » 22 Kas 2021 01:28

Ali İhsan Bey
Yapılan İşler Listesi sayfasında G ve J sütununda hata var


Arşiv sayfası AA : AW aralığındaki satırı iki, üç, dört, beş .... yaptığın zaman Yapılan işler Listesi sayfasında ki G ve J sütunlarına bilgi gelmiyor. Bakabilir misiniz?
G sütunu Arşiv sayfasında AH sütunundan
H sütunu Arşiv sayfasından AI sütunundan veri alacak
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#12)  okutkan » 22 Kas 2021 11:25

-H sütunu Arşiv sayfasından AI sütunundan veri alacak


Orjinal dosyanızda yapılan işler sayfasında 'H' sütununda 21,20,21,22 rakamları yazıyor, sizin bahsettiğiniz Arşiv sayfası 'AI' sütununda 252, 240, 252, 264 sayıları var?

-Arşiv sayfası AA : AW aralığındaki satırı iki, üç, dört, beş .... yaptığın zaman Yapılan işler Listesi sayfasında ki G ve J sütunlarına bilgi gelmiyor.
-G sütunu Arşiv sayfasında AH sütunundan

Bu konuları düzenledim kontrol edin.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#13)  okutkan » 22 Kas 2021 11:26

Kodları paylaşmayı unutmuşum.

Kod: Tümünü seç
Private Sub CommandButton21_Click()
Dim yapilan As Worksheet
Dim arsiv As Worksheet
Set arsiv = Sheets("Arşiv")
Set yapilan = Sheets("Yapılan İşler Listesi")
yapilanSon = yapilan.Cells(Rows.Count, "B").End(3).Row 'yap. işler sayfası son satır sayısı
ArsivSon = arsiv.Cells(Rows.Count, "B").End(3).Row 'arsiv sayfası son satır sayısı

yapilan.Range("B12:K50").ClearContents
a = 12 ' yapılan işler sayfası başlangıç satırı
hakedis = 0 'hakedis e başta 0
oncekiihzaratmiktar = 0
toplamihrazatmiktar = 0 'yap. iş F sütunu için
oncekihakedistutar = 0 'yap. iş. J sütunu için
toplamihrazattutar = 0 ' yap iş, I sütunu için
For i = 2 To ArsivSon ' arsiv sayfasındaki satır sayısı kadar döngü

If i = 2 Then 'Arşiv sayfasındaki ilk satır ise 0 sayısını verir
yapilan.Cells(a, "G") = 0
yapilan.Cells(a, "J") = 0
Else ' ilk satır değil ise aşağıdaki işlemleri yapar
oncekiihrazatmiktar = oncekiihrazatmiktar + arsiv.Cells(i - 1, "AH").Value 'yap iş G sütunu için toplam al
oncekihakedistutar = oncekihakedistutar + arsiv.Cells(i - 1, "J").Value 'yap iş J sütunu için toplam al

yapilan.Cells(a, "G") = oncekiihrazatmiktar ' yap. iş sayfası kom. G sütununa yaz
yapilan.Cells(a, "J") = oncekihakedistutar ' yap. iş sayfası kom. J sütununa yaz
End If


toplamihrazatmiktar = toplamihrazatmiktar + arsiv.Cells(i, "I").Value 'yap iş F sütunu için toplam al
toplamihrazattutar = toplamihrazattutar + arsiv.Cells(i, "J").Value 'yap iş I sütunu için toplam alma
yapilan.Cells(a, "B") = i - 1 ' Her satıra Sıra no verme işlemi
yapilan.Cells(a, "C") = arsiv.Cells(i, "AD") & "/" & arsiv.Cells(i, "AE")
yapilan.Cells(a, "D") = "Gün"
yapilan.Cells(a, "E") = arsiv.Cells(i, "AF")
yapilan.Cells(a, "F") = toplamihrazatmiktar
yapilan.Cells(a, "K") = arsiv.Cells(i, "J")
yapilan.Cells(a, "H") = arsiv.Cells(i, "I")
yapilan.Cells(a, "I") = toplamihrazattutar
hakedis = hakedis + arsiv.Cells(i, "AX").Value 'hakedis i her satırda topluyor
a = a + 1 'her döngüde bir alt satıra yazması için +1 ekliyoruz
Next i

yapilan.Range("B8") = arsiv.Range("AD2") ' Taxıma Merkez okul
yapilan.Range("B9") = arsiv.Range("AE2") 'Taşınan Mahalle adı
yapilan.Range("J8") = "Sayfa No : XXX " ' buraya ne yazdıracaksanız aşağıdaki gibi bir uygulama yapabilirsiniz
yapilan.Range("J9") = "Hakkediş No : " & hakedis 'hakediş toplamını J9 a yazdırıyoruz
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#14)  malatyali » 22 Kas 2021 15:24

Allah (Sübhanehu Teala) her iki cihanda yar ve yardımcın olsun inşallah
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#15)  okutkan » 22 Kas 2021 19:22

Sağolun ecmain. H Sütunu ile ilgili sıkıntı var mı ?
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: birikimli satır satır aktarma

İleti#16)  malatyali » 22 Kas 2021 21:09

Ali İhsan Bey

Hiçbir sıkıntım yok. Hatta ilk ödememi de gerçekleştirdim. Tekrar teşekkür ederim. şkşk
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 12:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 47
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: birikimli satır satır aktarma

İleti#17)  okutkan » 22 Kas 2021 21:12

Hayırlı olsun :) iyi çalışmalar.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 11 misafir

Bumerang - Yazarkafe