sayfada filtre

[Barons]

merhaba
ekli dosyada "s" sayfasındaki M1 hücresine depo sayfasındaki "kod" sütunundaki değeri girip filtre yapmak istiyorum kod çalışıyor ancak veriler gelmiyor.
yardımcı olacak arkadaslara şimdiden teşekkürler

 

[meslan]

Merhaba
Arkadaş Projen şifreli ama yapmak istediğin belli.
Şu kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M1]) Is Nothing Then Exit Sub
[A2:L500].ClearContents
ST = 2
For i = 2 To Sheets("DEPO").[I65536].End(3).Row
If Target.Value = Sheets("DEPO").Cells(i, "I") Then
Range("B" & ST & ":L" & ST) = Sheets("DEPO").Range("B" & i & ":L" & i).Value
ST = ST + 1
End If
Next i
End Sub

 

[Barons]

Çok teşekkürler...tam aradığım çözüm..dosyanın şifresini unutmuşum...kusura bakmayın...

 

[meslan]

Rica ederim bir şey değil. Siz yinede dosyanızın şifresini yazınki faydalanan arkadaşlar olabilir.