Soru Pivot table uyarı kapatma

[TUNCA ERSİN]

4 adet Pivot table de filtrelemeleri tıkladığım hücreden değiştirebiliyorum. Ama olmayan plakalar olduğunda pivot table aşağıdaki uyarıyı veriyor. Bunu kapatmak mümkün mü ?

 

[Korhan Ayhan]

Örnek dosya paylaşabilirmisiniz..

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;

Hocam Buyurun.

 

[Korhan Ayhan]

Rica etsem linki inceleyerek profilinizi güncelleyebilirmisiniz.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;
Hocam Düzenleme yapılmıştır.

 

[Korhan Ayhan]

Profilinizde yazan 2012 tam olarak hangi sürüm?

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;

Hocam Bu şekilde yazıyor.

 

[Korhan Ayhan]

İnceleyiniz..

Linkteki bilgiye göre profilinizi revize etmeniz yeterlidir.

Hangi Office sürümünü kullanıyorum? - Microsoft Desteği

Hangi Office sürümünü kullanıyorum?

support.microsoft.com

 

[TUNCA ERSİN]

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Pvt As PivotTable, Target_Source As String, Sh As Worksheet
    Dim Rng As Range, Find_Header As Range, Find_Data As Range
    
    If Intersect(Target, [A2:A10]) Is Nothing Then Exit Sub
    
    On Error GoTo Son
    Cells.Interior.ColorIndex = xlNone
    Target.Resize(, 2).Interior.ColorIndex = 6
    
    For Each Pvt In ActiveSheet.PivotTables
        Target_Source = Application.ConvertFormula( _
        Formula:=Pvt.SourceData, _
        fromReferenceStyle:=xlR1C1, _
        toReferenceStyle:=xlA1)
        Set Sh = Sheets(Split(Split(Target_Source, "]")(1), "'!")(0))
        Set Rng = Sh.Range(Split(Split(Target_Source, "]")(1), "'!")(1))
        Set Find_Header = Rng.Rows(1).Find(Pvt.TableRange2.Cells(1, 1), , , xlWhole)
        If Not Find_Header Is Nothing Then
            Set Find_Data = Rng(, Find_Header.Column).Find(Pvt.TableRange2.Cells(1, 2), , , xlWhole)
            If Not Find_Data Is Nothing Then
                Select Case Pvt.TableRange2.Cells(1, 2).Address(0, 0)
                    Case "G1": Range("G1") = Target.Value
                    Case "L1": Range("L1") = Target.Value
                    Case "Q1": Range("Q1") = Target.Value
                End Select
            End If
        End If
        Pvt.RefreshTable
    Next

Son:
End Sub

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;

Hocam İlgili sayfanın kod kısmına yapıştırdım eski kendi kodumu sildim ama her hangi bir şekilde çalışma olmadı .

 

[Korhan Ayhan]

A sütunundaki hücrelere tıkladığınızda kod devreye girecektir.

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;
Hocam Kod devreye girmiyor.

 

[TUNCA ERSİN]

Sy. @Korhan Ayhan ;
Hocam ilginiz için teşekkür ederim. Allah razı olsun . Sorunu hallettin