Vba ile toplama

[scorpix]

Arkadaşlar işyerimde kullanmak üzere bir sipariş listesi hazırlıyorum.
ürünler seçildikten sonra ürünlerin tutarlarını çalışma sayfasındaki topla butonuna basarak toplam almak istiyorum.
dosya ekte
yardımlarınızı bekliyorum.

 

[zafer]

Merhaba

Toplamı hangi hücreye tutarların bitiminemi yoksa özel bir teklif mektununuz var onun toplam yazan kısmınamı.Hücre belirtebilirmisiniz.

 

[Seyit Tiken]

Başlığa bakarak örnek niteliğinde VBA kodunu yazdık. Kendinize uyarlamaya çalışın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = WorksheetFunction.Sum([B1:B20])
End Sub

 

[scorpix]

Merhaba

Toplamı hangi hücreye tutarların bitiminemi yoksa özel bir teklif mektununuz var onun toplam yazan kısmınamı.Hücre belirtebilirmisiniz.

tutarların bitimine almak istiyorum toplamı. Örnek dosya için J26 hücresine ama bu değişebilir olmalı J sutununda eklenen ürün sayısına göre değişecek

 

[zafer]

Merhaba

aşağıdaki kodları bir butona bağlayınız
Yalnız butona basmadan öce toplam hücresini silmelisiniz.

Sub topla()
    Set s1 = Sheets("teklif")
    s1.Range("J23").Select
    adres = Selection.End(xlDown).Address
    s1.Range(adres).Offset(1, 0) = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres))
 
 
End Sub

Eğer I sütununa toplam yazan yerin solundaki hücre boş olacaksa aşağıdaki kodları kullanın.
Her butona bastığınızda eski toplamı siler sonra tekrar yeni verilere göre ekler.

Sub topla()
    Set s1 = Sheets("teklif")
    Range("I23").End(xlDown).Offset(1, 1).ClearContents
    
    s1.Range("J23").Select
    adres = Selection.End(xlDown).Address
    s1.Range(adres).Offset(1, 0) = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres))
    
    
End Sub

 

[scorpix]

tam olarak istediğim buydu çok teşekkürler

 

[scorpix]

Bu çalışmamla ilgili olarak toplamın altına toplamın kdvsini nasıl ekletebilirim

 

[zafer]

Merhaba

Genel toplamda isteyecekmisiniz.

Kdv

Sub topla()
    Set s1 = Sheets("teklif")
    Range("I23").End(xlDown).Offset(1, 1).ClearContents
    
    s1.Range("J23").Select
    adres = Selection.End(xlDown).Address
    s1.Range(adres).Offset(1, 0) = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres))
    s1.Range(adres).Offset(2, 0) = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres)) * 0.18
    
    
End Sub

 

[zafer]

Merhaba

Genel toplamlı kodlar

Sub topla()
    Set s1 = Sheets("teklif")
    
    Range("I23").End(xlDown).Offset(1, 1).Select
    Range(Selection, Selection.End(xlDown)).ClearContents
    
    s1.Range("J23").Select
    adres = Selection.End(xlDown).Address
    toplam = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres))
    kdv = toplam * 0.18
    genel_top = kdv + toplam
    s1.Range(adres).Offset(1, 0) = toplam
    s1.Range(adres).Offset(2, 0) = kdv
    s1.Range(adres).Offset(3, 0) = genel_top
    
    
    
End Sub

 

[scorpix]

%10 iskonto düşüldükten sonragenel toplam alıcam
iskonto da bir sonraki satırda gözükecek
yardımlarınıza çok teşekkür ediyorum

 

[scorpix]

genel toplamıda eklemişsiniz çok teşekkür ediyorum

 

[zafer]

Merhaba

Sub topla()
    Set s1 = Sheets("teklif")
 
    Range("I23").End(xlDown).Offset(1, 1).Select
    Range(Selection, Selection.End(xlDown)).ClearContents
 
    s1.Range("J23").Select
    adres = Selection.End(xlDown).Address
    toplam = Application.WorksheetFunction.Sum(s1.Range("j23:" & adres))
    kdv = toplam * 0.18
    isk = (kdv + toplam) * 0.1
    genel_top = kdv + toplam - isk
    s1.Range(adres).Offset(1, 0) = toplam
    s1.Range(adres).Offset(2, 0) = kdv
    s1.Range(adres).Offset(3, 0) = isk
    s1.Range(adres).Offset(4, 0) = genel_top
 
 
 
End Sub

Teklif mektubunun diğer detayları içinde Düşeyara formülünden faydalanın

 

[zafer]

Merhaba

Ayrıca örnek dosyalar bölümünü inceleyiniz.Faydalanabilirsiniz.

sipariş takip dosyası (

1 2)