Çözüldü Hücre Değerine göre pivotta işlem yaptırmak.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Merhaba herkese iyi bayramlar,


Ekteki çalışma sayfamda T,U,V,W,X,Y sütunlarında seçtiğim hücrelerdeki 0 dan büyük veya sıfırdan küçük değerleri A ve J sütünlarındaki karşıt gelen hücredeki irsaliye numarasını yukarı taşımasını istiyorum. Sorumu ne kadar anlatabildim bilmiyorum ama benim için çok önemli değerli yorumlarınızı ve yardımlarınızı rica ederim iyi forumlar. :)
 

Ekli dosyalar

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Merhaba herkese iyi bayramlar,


Ekteki çalışma sayfamda T,U,V,W,X,Y sütunlarında seçtiğim hücrelerdeki 0 dan büyük veya sıfırdan küçük değerleri A ve J sütünlarındaki karşıt gelen hücredeki irsaliye numarasını yukarı taşımasını istiyorum. Sorumu ne kadar anlatabildim bilmiyorum ama benim için çok önemli değerli yorumlarınızı ve yardımlarınızı rica ederim iyi forumlar. :)

Merhaba,

Dosyanıza baktım ancak tam olarak yapılmak isteneni anlayamadım.
Veri örneği ile açıklayabilir misiniz?

İyi Çalışmalar
 

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Merhaba, yanıtınız için teşekkür ederim, sayfamda 2 adet pivot table bulunmakta mavi kısımdaki pivot ile sarı kısımdaki pivotları karşılastırmayı amaçlıyorum, A ve J sütunlarında irsaliye numaraları ve diğer sutunlarda adetler ve ürünler olarak ayrılıyorlar A ve J sutunlarındaki irsaliyeleri karşılaştırabiliyorum, irsaliyeye bağlı adet farklarını ise T,U,V,W,X,Y sutunlarında görüyorum. Yapmak istediğim ise Adet farkları olan irsaliyeleri, bağlı olan iki pivot tableda da başlangıca taşımak. Umarım anlatabilmişimdir anlatması bi hayli zorda :)
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Adet farkı varsa en üste mi gelsin demek istiyorsunuz? Pivot tablo bu şekilde işlem yapmaz. Belki makro çözümleri ile yapmak gerekebilir.
Mesela 2 veri tablosundan 1 sonuç tablosu gibi bir şey iş görmez mi?
 

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Pivotta bu işlemi yapmasını istiyorum iki tabloda da



Screenshot_1.png
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Pivot bunu kendi özellikleri ile yapamaz. Ancak bu konuda makro ile çözüm olabilir.
Makro ile çözüm uygun olur mu?
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Anladığım kadarıyla aşağıdaki kodu yazdım. Dosyaya uyguladığım hali de ektedir.

Kontrol eder misiniz?

Kod:
Sub ozkan()
On Error Resume Next

Application.ScreenUpdating = False
For i = 3 To Sayfa1.Range("A900000").End(xlUp).Row
If Cells(i, 20) > 0 Or Cells(i, 20) < 0 Then
kaynak = Cells(i, 1).Text

Range("A177").Select
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Referans").PivotItems( _
        kaynak).Position = 1
End If
Next
Application.ScreenUpdating = False
End Sub
 

Ekli dosyalar

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Öncelikle çok teşekkür ederim, kod üzerinde örneğin 2 ve 1000 arasındaki hücrelere uygulama sansımız varmı bu makroyu
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Bu kısmı;


For i = 3 To Sayfa1.Range("A900000").End(xlUp).Row


bununla değiştirin.


For i = 2 To 1000


İyi Çalışmalar.
 

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Teşekkürler sanırım ufak bir kaç sorunumuz daha var :) Makro sadece sol taraftaki pivot için çalışıyor aynı işlemi diğer pivottada yapmasını istiyordum ve sadece T sütünunu degıl U,V,W,X,Y sutunlarınıda dahil etmek istiyordum sizi yoruyorum ama yardımlarınız ıcın tesekkur ederım tekrardan.
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Teşekkürler sanırım ufak bir kaç sorunumuz daha var :) Makro sadece sol taraftaki pivot için çalışıyor aynı işlemi diğer pivottada yapmasını istiyordum ve sadece T sütünunu degıl U,V,W,X,Y sutunlarınıda dahil etmek istiyordum sizi yoruyorum ama yardımlarınız ıcın tesekkur ederım tekrardan.
Kodu bir miktar aşağıdaki gibi düzenledim.

Kod:
Sub ozkan()
On Error Resume Next

Application.ScreenUpdating = False
For i = 2 To 1000
If Cells(i, 20) > 0 Or Cells(i, 20) < 0 Then


kaynak = Cells(i, 1).Text
kaynak2 = Cells(i, 10).Text

    ActiveSheet.PivotTables("PivotTable6").PivotFields("Referans").PivotItems( _
        kaynak).Position = 1

    ActiveSheet.PivotTables("PivotTable5").PivotFields("İRS").PivotItems(kaynak2). _
        Position = 1

End If
Next
Application.ScreenUpdating = False
End Sub

T,U,V,W,X,Y sutunlarınıda diğer sütunlarla birlikte mi kontrol edilecek bilemediğim için o şekilde yapmıştım. :)
Eğer birlikte ise aşağıdaki kısma OR(veya) yaparak sütun numarası ile ekleyebilirsiniz. (Balık tutmayı öğrenin diye böyle yazıyorum :)


If Cells(i, 20) > 0 Or Cells(i, 20) < 0 Then
 

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Hocam tek kelime ile mükemmelsiniz, ama cahilliğime verin ekleyemedim :D :)
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
82
En iyi yanıt
2
Puanları
18
Yaş
33
Konum
Kocaeli
Web sitesi
www.ozkansabanci.com
Ad Soyad
Özkan Sabancı
Hocam tek kelime ile mükemmelsiniz, ama cahilliğime verin ekleyemedim :D :)
Estağfurullah.. Kontrolün nasıl olacağını belirtir misiniz?
T veya U veya V veya W veya X veya Y sıfırdan farklı gibi mi olacak? Yoksa T,U,V,W,X,Y sütunlarının tamamı sıfırdan farklı gibi mi olacak?
 

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
22
Konum
İstanbul
Ad Soyad
Tayfun Y
Hocam Allah sizden razı olsun tam anlamıyla istediğim gibi oldu bana nekadar yardımcı oldugunuzu bılemezsiniz. :) Çok teşekkür ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt