Filtre

[semih001]

Arkadaşlar selamlar;

Benim için çok büyük önemi olan bir yardım isteyeceğim sizlerden. Kırmızı renkteki E3 hücresine ürün kodu yazdığımda aşağıdaki tablodan ilgili ürünün yarı mamüllerini filtrelemesini istiyorum.

Aşağıdaki tablo Netsis'ten çekilen pivot table. Filtreleyip 875 olarak arattığımda yarı mamüller geliyor. Fakat ben bunu E3 hücresine bağlı hale getirmek istiyorum.

Yardımlarınızı bekliyorum. Teşekkürler şimdiden .

 

[Muzaffer Ali]

Merhaba dosyanızı da paylaşmalısınız.

 

[semih001]

Merhaba dosyanızı da paylaşmalısınız.

Şirket bilgileri içerdiği için paylaşamadım. Sanırım bu şekilde de zor olacak.

 

[Korhan Ayhan]

Belki faydası olabilir..

Arşiv Konuları

 

[semih001]

Şu an çalışan kod aşağıdaki gibi. Fakat tüm filtreyi temizliyor sadece. Belirli bir filtredeyken, arama yapmak istediğim hücreye başka bir kod yazdığımda filtreyi kaldırıp tüm sonuçları gösteriyor. Hedefi bulamayıp filtreyi temizle satırına geçiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
Dim ResimYolu As String

On Error Resume Next
If Not Intersect(Target, [E3]) Is Nothing Then
Application.ScreenUpdating = False
Set xPTable = Worksheets("Öngörü").PivotTables("PivotTable1")
Set xPFile = xPTable.PivotFields("STOK_KODU")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End If

If Not Intersect(Target, [E3]) Is Nothing Then
DrawingObjects.Delete
ResimYolu = ActiveWorkbook.Path & "\" & Range("E3")

If Dir(ResimYolu & ".jpg") <> "" Then
ResimYolu = ResimYolu & ".jpg"
ElseIf Dir(ResimYolu & ".png") <> "" Then
ResimYolu = ResimYolu & ".png"
Else
MsgBox "'" & Range("E3") & "' adlı resim bulunamıyor." & vbLf & "Lütfen kontrol edip yeniden deneyiniz."
Exit Sub
End If
Set resim = Pictures.Insert(ResimYolu)
With Range("J5:AZ15")
resim.ShapeRange.LockAspectRatio = msoFalse
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
End If
End Sub