[Yardım]  Değişken Sutunda AltToplam

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

Değişken Sutunda AltToplam

İleti#1)  bpeker » 25 Haz 2020 20:43

Herkese Merhaba ,

Aşağıdaki G Sutununda bulunan data için alttoplam yazmak istiyorum. Aşağıdaki Kodu yazdım ama hata veriyor.
Yardımlarınızı rica ederim.

saygılarımla.

G
3.250,00
525,00
337.000,00
625.006,25
2.050,00
510,00
759.496,25


Kod: Tümünü seç

Dim LR As Range
               
    Set LR = Range("G" & Range("G1048").End(xlUp).Row)
   
    Range("B2").Select
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[" & LR.Address & "]C)"

Kullanıcı avatarı
bpeker
Yeni Başlamış
 
Kayıt: 13 Mar 2019 10:17
Meslek: muhasebe
Yaş: 51
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Değişken Sutunda AltToplam

İleti#2)  bpeker » 25 Haz 2020 20:44

bpeker yazdı:Herkese Merhaba ,

Aşağıdaki G Sutununda bulunan data için alttoplam yazmak istiyorum. Aşağıdaki Kodu yazdım ama hata veriyor.
Yardımlarınızı rica ederim.

saygılarımla.

G
3.250,00
525,00
337.000,00
625.006,25
2.050,00
510,00
759.496,25


Kod: Tümünü seç

Dim LR As Range
               
    Set LR = Range("G" & Range("G1048").End(xlUp).Row)
   
    Range("B2").Select
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[" & LR.Address & "]C)"




Dataya veri geldikçe bir altta toplamasını istiyorum.
Kullanıcı avatarı
bpeker
Yeni Başlamış
 
Kayıt: 13 Mar 2019 10:17
Meslek: muhasebe
Yaş: 51
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Değişken Sutunda AltToplam

İleti#3)  bpeker » 25 Haz 2020 21:09

Buldum Kod aşağıdaki gibidir.

Kod: Tümünü seç

Dim LR As Integer
         
       
    LR = Range(Range("G4"), Range("G4").End(xlDown)).Rows.Count
     
   
    Range("G250").End(xlUp).Offset(0, 0).FormulaR1C1 = "=SUM(R[-" & LR & "]C:R[-1]C)"


Kullanıcı avatarı
bpeker
Yeni Başlamış
 
Kayıt: 13 Mar 2019 10:17
Meslek: muhasebe
Yaş: 51
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe