Son Sütunun toplamını almak

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

Son Sütunun toplamını almak

İleti#1)  luffy010109 » 17 Haz 2022 12:58

Son sütunun toplamini son satırına kadar alarak son satır ile son sütunun kesisimine yazdırmak istiyorum vba kodu ile nasıl yapabilirim
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Son Sütunun toplamını almak

İleti#2)  luffy010109 » 17 Haz 2022 13:01

luffy010109 yazdı:Son sütunun toplamini son satırına kadar alarak son satır ile son sütunun kesisimine yazdırmak istiyorum vba kodu ile nasıl yapabilirim

Son satır ve son sütundan sonra gelen ilk satır sütun kesisimi olacak yani boş hücreye toplam yazilacak
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Son Sütunun toplamını almak

İleti#3)  luffy010109 » 17 Haz 2022 15:33

Yardım edecek kimse yokmu acaba
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Son Sütunun toplamını almak

İleti#4)  luffy010109 » 20 Haz 2022 13:54

Dim SonSatir As Long
Dim Sutun As Long
Set s1 = Sheets("Sayfa1")
SonSatir = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row) + 1
Sutun = ActiveCell.SpecialCells(xlLastCell).Column
s1.Cells(SonSatir, Sutun).Value = ""
s1.Cells(SonSatir, Sutun - 1).Value = "TOPLAM"
s1.Cells(SonSatir, Sutun) = Application.WorksheetFunction.Sum(s1.Range("Z2:Z" & SonSatir))


Yukarıdaki makro ile Z sütunun toplamini en alta boş hucrpeye yazıyorum
Fakat benim sütunun bazen bir sonraki veya bir önceki şutunda bitebiliyor
Son sütun hangisi ise onun toplamını nasıl alabilirim
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

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

Cevap: Son Sütunun toplamını almak

İleti#5)  yusuf43 » 20 Haz 2022 14:36

SonSatir = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "A").End(3).Row) + 1
Bu kodda A yazan yeri Z olarak değiştir.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 723
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Son Sütunun toplamını almak

İleti#6)  luffy010109 » 20 Haz 2022 14:51

Ama ben Z sütununun toplamını değil listeyi her duzenledigimde değişen son sütunun toplamını almak istiyorum
Yani son sütun sürekli değişiyor bazen Z oluyor bazen Y sütunu oluyor
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Son Sütunun toplamını almak

İleti#7)  yusuf43 » 20 Haz 2022 15:25

Örnek bir çalışma ekler misin.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 723
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Son Sütunun toplamını almak

İleti#8)  luffy010109 » 20 Haz 2022 15:57

Örnek ve açıklama içinde Excel kodları ile basit ama ben vba kodu ile yapmak istiyorum
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Son Sütunun toplamını almak

İleti#9)  luffy010109 » 20 Haz 2022 15:59

Up
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Cevap: Son Sütunun toplamını almak

İleti#10)  luffy010109 » 20 Haz 2022 16:58

yusuf43 yazdı:Örnek bir çalışma ekler misin.


Örneği gönderdim bakabildinizmi
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Son Sütunun toplamını almak

İleti#11)  Uygaroz » 20 Haz 2022 17:40

Şu kodu deneyebilir misiniz.

Not: Kod bana ait değildir. Kendi dosyalarımda kullandığım, uyarlama bir koddur.

Kod: Tümünü seç
Option Explicit
Sub Sumcol()

    Dim lr As Long, lc As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(lr + 1, lc) = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc)))

End Sub
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 19:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 49
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Son Sütunun toplamını almak

İleti#12)  Uygaroz » 20 Haz 2022 17:52

Dosyayı eklemeyi atlamışım.
Dosyanız ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 19:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 49
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Cevap: Son Sütunun toplamını almak

İleti#13)  luffy010109 » 20 Haz 2022 20:20

Uygaroz yazdı:Dosyayı eklemeyi atlamışım.
Dosyanız ektedir.

teşekkür ederim çalışıyor

Cells(lr + 1, lc) = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc))) bu satırı bana açıklayabilirmisiniz

Cells(lr + 1, lc) = bu toplamı yazmak istediğim satır sütun kesisimi

sum topmama fonksiyonu
Range burda aralığı yazacıktık

Cells(2,lc)
Cells(lr, lc)
bunlarda
Cells("Z7:Z")
gibi aralıkmı belirtiyor?
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep

Cevap: Son Sütunun toplamını almak

İleti#14)  Uygaroz » 21 Haz 2022 10:37

Aşağıdaki kodu kopyasını oluşturduğun bir dosyaya ekleyip ve kod ekranında "F8" ile kodu satır satır çalıştırınca her kodun etki ettiği alanın rengi değişecek.
Bu şekilde daha kolay anlaşılır diye düşündüm.
Kod: Tümünü seç
Sub Sumcol()
    Dim lr As Long, lc As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column

Range("A" & Rows.Count).End(xlUp).Interior.ColorIndex = 3 ' Kırmızı
Cells(1, Columns.Count).End(xlToLeft).Interior.ColorIndex = 4 ' Yeşil
Cells(2, lc).Interior.ColorIndex = 5 ' Mavi
Cells(lr, lc).Interior.ColorIndex = 6 ' Sarı
Cells(lr + 1, lc).Interior.ColorIndex = 8 'Açık mavi

Cells(lr + 1, lc) = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc)))
End Sub
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 19:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 49
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Son Sütunun toplamını almak

İleti#15)  Uygaroz » 21 Haz 2022 10:49

lr = Last Row / Son Satır
lc = Last Column / Son sütun

lr = Range("A" & Rows.Count).End(xlUp).Row / A sütununda son satırı buluyor
lc = Cells(1, Columns.Count).End(xlToLeft).Column / 1 satırda son dolu sütunu buluyor

Cells(lr, lc), son satır ve son sütunun keşişimi.
Cells(lr + 1, lc)// son satıra "1" ekliyor. Bir alttaki hücreye geçmek için.

Kod yabancı bir kaynaktan alındığı için daha anlaşılır olması açısından yabancı dildeki açıklamalarını da ekledim.
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 19:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 49
İleti: 328
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Cevap: Son Sütunun toplamını almak

İleti#16)  luffy010109 » 21 Haz 2022 11:24

Uygaroz yazdı:lr = Last Row / Son Satır
lc = Last Column / Son sütun

lr = Range("A" & Rows.Count).End(xlUp).Row / A sütununda son satırı buluyor
lc = Cells(1, Columns.Count).End(xlToLeft).Column / 1 satırda son dolu sütunu buluyor

Cells(lr, lc), son satır ve son sütunun keşişimi.
Cells(lr + 1, lc)// son satıra "1" ekliyor. Bir alttaki hücreye geçmek için.

Kod yabancı bir kaynaktan alındığı için daha anlaşılır olması açısından yabancı dildeki açıklamalarını da ekledim.


Tamam çok teşekkür ederim
Kullanıcı avatarı
luffy010109
Yeni Başlamış
 
Kayıt: 07 Haz 2022 21:10
Meslek: esnaf
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antep


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 4 misafir

Bumerang - Yazarkafe