Pivot tablodan otomatik gruplama

[prodigy0]

Merhaba,
Ekteki Pivot tabloda type alanında bulunan değerlerden 100,130 ve 500 olan değerleri seçip gruplayacak ve gruba "Basic" ismini verecek bir makro yazılabilir mi?
Makro recorder ile yaptığımda hücrenin içindekid eğerleri değil hücre referanslarına göre yapıyor ve referanslar değişken olduğu için doğru sonuç vermiyor.
Kısacası type field'ına gidecek,hücre değeri 100,130 ve 500 olanları seçip gruplayacak.
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub GRUPLA()
    Dim Hücre As Range, ADRES As Range
    
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Range("A5:A" & Range("A65536").End(3).Row).Ungroup
    On Error GoTo 0
    
    For Each Hücre In Range("A5:A" & Range("A65536").End(3).Row)
        If Hücre.Value = 100 Or Hücre.Value = 130 Or Hücre.Value = 500 Then
            If ADRES Is Nothing Then
                Set ADRES = Hücre
            Else
                Set ADRES = Application.Union(ADRES, Hücre)
            End If
        End If
    Next
        
    ADRES.Group
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[prodigy0]

Problem çözülmüştür.Yardımlarınız için çok teşekkürler.