Makro İle Çarpma-Toplama-Çıkarma Sonucu Bulunması

[baydeniro]

Merhaba arkadaşlar. Dükkan Sütununda yer alan verilerin satırındaki rakamların çarpılması ile elde edilen sonuçların özetinin alınması mümkün mü ? Satışlardan İadelerin çıkarılması ile sonuç elde edilmektedir. Miktar kısmı boş ise 1 olarak kabul edilmelidir. Örnek dosya ekte.

 

[Murat OSMA]

Merhaba Serdar Bey,

Formüllerle gayet iyi yapmışsınız. Tam olarak istenilen nedir acaba ?
Benim gördüğüm; siz zaten istediklerinizi formüllerle yapmışsınız.

 

[Murat OSMA]

Siz bütün bunları formülle değil de makro ile mi yapmak istiyorsunuz ?

 

[Murat OSMA]

DATA sayfasına hiç dokunmadım. Yeni isimli bir sayfa açtım ve ayrıca bir özet tablo ilave ettim...

■ Kodlar bu şekilde;

Sub Emre()
    Dim i As Integer: For i = 2 To 11
    
    If Not IsEmpty(Cells(i, "G").Value) And Cells(i, "D") = "Satış" Then
    Cells(i, "I") = Cells(i, "E") * Cells(i, "G"): End If
    
    If IsEmpty(Cells(i, "G").Value) And Cells(i, "D") = "Satış" Then
    Cells(i, "I") = Cells(i, "E") * 1: End If
    
    If Not IsEmpty(Cells(i, "G").Value) And Cells(i, "D") = "İade" Then
    Cells(i, "I") = Cells(i, "E") * Cells(i, "G") * -1: End If
    
    If IsEmpty(Cells(i, "G").Value) And Cells(i, "D") = "İade" Then
    Cells(i, "I") = Cells(i, "E") * -1: End If: Next i: i = Empty
    
    ActiveSheet.PivotTables("Özet Tablo 4").PivotCache.Refresh
End Sub

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar. Dükkan Sütununda yer alan verilerin satırındaki rakamların çarpılması ile elde edilen sonuçların özetinin alınması mümkün mü ? Satışlardan İadelerin çıkarılması ile sonuç elde edilmektedir. Miktar kısmı boş ise 1 olarak kabul edilmelidir. Örnek dosya ekte.

.

Pivot Table ile yapılmış olarak dosyanız ekte.

Konu için bakınız:


ÖZET TABLOLAR (PİVOT TABLE)


.

 

[baydeniro]

Sayın Murat Osma, sayın Yurttas ilginiz ve yardımlarınız için çok teşekkür ederim. Allah sizden razı olsun, inanın çok işime yarayacak bir yardım oldu. Sağlıcakla kalın.

 

[Murat OSMA]

Rica ederim Serdar Bey,

İyi günler...