kim ne satmış

[irfem4]

örnek dosyada belirttiğim gibi kimin hangi ürünleri sattığını listelemem gerekiyor. ama beceremedim. formül ile yapılabilir mi yardım eder misiniz.

 

[AdemCan]

PivotTable ile örnek.

Spoyler: Tablo Görünümü

Spoyler: PivotTable Alan Yerleşimi

 

[irfem4]

PivotTable ile örnek.

Spoyler: Tablo Görünümü

Ekli dosyayı görüntüle 239877

Spoyler: PivotTable Alan Yerleşimi

Ekli dosyayı görüntüle 239878

veri eklediğimizde güncelleştirme nasıl yapacağız.

 

[AdemCan]

Tabloda herhangi bir hücreyi seçtiğiniz zaman PivotTable Analiz sekmesi aktif olur. Burada Yenile ya da Tümünü Yenile komutlarını kullanarak tabloyu güncelleyebilirsiniz.

Spoyler: PivotTable Yenile

Makro ile güncellemek için ise

ActiveWorkbook.RefreshAll

satırını kullanabilirsiniz.

 

[Haluk]

Sonuçlar "Sayfa2" de gösterilmek üzere VBA ile alternatif;

Sub Test()
    'Haluk 10/10/2022
    'sa4truss@gmail.com
    '
    Dim myDB As String, adoCN As Object, strSql As String, RS As Object
    
    Const adOpenDynamic = 1
    Const adLockOptimistic = 3
    
    myDB = ThisWorkbook.FullName
    
    Sheets("Sayfa2").Cells.Clear
    
    Sheets("Sayfa2").Range("A1:C1") = Array("ADI", "MİKTAR", "ÜRÜN")
    
    Set adoCon = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.RecordSet")
    
    adoCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                 myDB & ";Extended Properties=""Excel 12.0;HDR=Yes"""
                    
    strSql = "Select [ADI], [ÜRÜN], Sum([MİKTAR (TON)]) From [Sayfa1$] Group By [ADI], [ÜRÜN]"
            
    
    RS.Open Source:=strSql, ActiveConnection:=adoCon, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
    
    Sheets("Sayfa2").Range("A2").CopyFromRecordset RS
    
    RS.Close
    Set RS = Nothing
    Set adoCon = Nothing
End Sub

 

[irfem4]

Sonuçlar "Sayfa2" de gösterilmek üzere VBA ile alternatif;

Sub Test()
    'Haluk 10/10/2022
    'sa4truss@gmail.com
    '
    Dim myDB As String, adoCN As Object, strSql As String, RS As Object
   
    Const adOpenDynamic = 1
    Const adLockOptimistic = 3
   
    myDB = ThisWorkbook.FullName
   
    Sheets("Sayfa2").Cells.Clear
   
    Sheets("Sayfa2").Range("A1:C1") = Array("ADI", "MİKTAR", "ÜRÜN")
   
    Set adoCon = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.RecordSet")
   
    adoCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                 myDB & ";Extended Properties=""Excel 12.0;HDR=Yes"""
                   
    strSql = "Select [ADI], [ÜRÜN], Sum([MİKTAR (TON)]) From [Sayfa1$] Group By [ADI], [ÜRÜN]"
           
   
    RS.Open Source:=strSql, ActiveConnection:=adoCon, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
   
    Sheets("Sayfa2").Range("A2").CopyFromRecordset RS
   
    RS.Close
    Set RS = Nothing
    Set adoCon = Nothing
End Sub

teşekkür ederim. emeğinize sağlık

 

[irfem4]

t

Tabloda herhangi bir hücreyi seçtiğiniz zaman PivotTable Analiz sekmesi aktif olur. Burada Yenile ya da Tümünü Yenile komutlarını kullanarak tabloyu güncelleyebilirsiniz.

Spoyler: PivotTable Yenile

Ekli dosyayı görüntüle 239883

Makro ile güncellemek için ise

ActiveWorkbook.RefreshAll

satırını kullanabilirsiniz.

teşekkür ederim. emeğinize sağlık. haluk beyin VBA kodu daha kullanışlı gibi.

 

[irfem4]

Sonuçlar "Sayfa2" de gösterilmek üzere VBA ile alternatif;

Sub Test()
    'Haluk 10/10/2022
    'sa4truss@gmail.com
    '
    Dim myDB As String, adoCN As Object, strSql As String, RS As Object
   
    Const adOpenDynamic = 1
    Const adLockOptimistic = 3
   
    myDB = ThisWorkbook.FullName
   
    Sheets("Sayfa2").Cells.Clear
   
    Sheets("Sayfa2").Range("A1:C1") = Array("ADI", "MİKTAR", "ÜRÜN")
   
    Set adoCon = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.RecordSet")
   
    adoCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                 myDB & ";Extended Properties=""Excel 12.0;HDR=Yes"""
                   
    strSql = "Select [ADI], [ÜRÜN], Sum([MİKTAR (TON)]) From [Sayfa1$] Group By [ADI], [ÜRÜN]"
           
   
    RS.Open Source:=strSql, ActiveConnection:=adoCon, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
   
    Sheets("Sayfa2").Range("A2").CopyFromRecordset RS
   
    RS.Close
    Set RS = Nothing
    Set adoCon = Nothing
End Sub

Haluk Bey makroyu çalıştırınca diğer hücrelerdeki veri ve formüller siliniyor. makroyu sadece a,b ve c sütunları için çalıştıramaz mıyız.

 

[Korhan Ayhan]

Bu satırı revize etmelisiniz.

Sheets("Sayfa2").Cells.Clear

Aşağıdaki gibi olabilir..

Sheets("Sayfa2").Range("A:C").Clear

 

[yakamozexcel]

Sonuçlar "Sayfa2" de gösterilmek üzere VBA ile alternatif;

Sub Test()
    'Haluk 10/10/2022
    'sa4truss@gmail.com
    '
    Dim myDB As String, adoCN As Object, strSql As String, RS As Object
   
    Const adOpenDynamic = 1
    Const adLockOptimistic = 3
   
    myDB = ThisWorkbook.FullName
   
    Sheets("Sayfa2").Cells.Clear
   
    Sheets("Sayfa2").Range("A1:C1") = Array("ADI", "MİKTAR", "ÜRÜN")
   
[COLOR=rgb(184, 49, 47)][B]    Set adoCon = CreateObject("ADODB.Connection")[/B][/COLOR]
Haluk hocam     Set RS = CreateObject("ADODB.RecordSet")
   
    adoCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                 myDB & ";Extended Properties=""Excel 12.0;HDR=Yes"""
                   
    strSql = "Select [ADI], [ÜRÜN], Sum([MİKTAR (TON)]) From [Sayfa1$] Group By [ADI], [ÜRÜN]"
           
   
    RS.Open Source:=strSql, ActiveConnection:=adoCon, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
   
    Sheets("Sayfa2").Range("A2").CopyFromRecordset RS
   
    RS.Close
    Set RS = Nothing
    Set adoCon = Nothing
End Sub

Haluk hocam bu kısımda hata alıyorum
Set adoCon = CreateObject("ADODB.Connection")
Sebebi hakkında bilgilendirir misiniz?
Teşekkür ederim.

 

[Haluk]

Resimdeki hata normal şartlarda değişken tanımlanmadığı zaman olur ama, görüldüğü gibi sözkonusu "adoCon" değişkeni kodun başında "Object" olarak deklare edilmiş durumda.

Bu durumda, sadece tahmin yürütebilirim...... VBA penceresinde menülerde Tools > References bölümünü inceleyin. Eğer orada kullanılan referanslardan bazılarında "Missing" ifadesi varsa, o referansları kaldırın, dosyayı kaydedip tekrar deneyin....

.

 

[yakamozexcel]

Resimdeki hata normal şartlarda değişken tanımlanmadığı zaman olur ama, görüldüğü gibi sözkonusu "adoCon" değişkeni kodun başında "Object" olarak deklare edilmiş durumda.

Bu durumda, sadece tahmin yürütebilirim...... VBA penceresinde menülerde Tools > References bölümünü inceleyin. Eğer orada kullanılan referanslardan bazılarında "Missing" ifadesi varsa, o referansları kaldırın, dosyayı kaydedip tekrar deneyin....

.

Haluk hocam Reference kısmında seçili olanlarla ilgili ekran görüntüsünü ekledim. "Missing" ifadesi yok.

 

[Haluk]

Şu anda aklıma başka birşey gelmiyor maalesef...

.

 

[dEdE]

Merhaba,
Değişken tanımlamada küçük bir harf hatası var gibi.
Hata veren satırdaki adoCon ifadesini adoCN olarak değiştirip dener misiniz?

 

[Haluk]

Değişken tanımlamada küçük bir harf hatası var gibi.

Hakikaten de öyleymiş...... dikkatsizlik işte

.

 

[yakamozexcel]

Merhaba,
Değişken tanımlamada küçük bir harf hatası var gibi.
Hata veren satırdaki adoCon ifadesini adoCN olarak değiştirip dener misiniz?

Çok teşekkür ederim.