• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
22
En iyi yanıt
0
Puanları
3
Yaş
27
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

  • ve biter (1).xlsm
    804.7 KB · Görüntüleme: 3

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
22
En iyi yanıt
0
Puanları
3
Yaş
27
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
22
En iyi yanıt
0
Puanları
3
Yaş
27
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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

  • ve biter (1).xlsm
    828.9 KB · Görüntüleme: 2

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
22
En iyi yanıt
0
Puanları
3
Yaş
27
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
22
En iyi yanıt
0
Puanları
3
Yaş
27
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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
22
En iyi yanıt
0
Puanları
3
Yaş
27
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
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
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?
 

ozkansabanci

Excel VBA Developer
Uzman
Katılım
28 May 2018
Mesajlar
238
En iyi yanıt
7
Puanları
28
Yaş
38
Konum
İstanbul
Web sitesi
analistadam.com
Ad Soyad
Özkan Sabancı
Office Vers.
Microsoft 365 Apps for enterprise TR
Dener misiniz?

İyi Çalışmalar.
 

Ekli dosyalar

  • ve biter (1).xlsm
    829.2 KB · Görüntüleme: 5

ShizzLe

Yeni Üye
Katılım
5 Tem 2019
Mesajlar
22
En iyi yanıt
0
Puanları
3
Yaş
27
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