İstenilen sutunlardan filtreleme yapılması

[kemal turan]

Merhaba arkadaşlar,
Aşağıdaki kodda "stok listesi" sahifesinden "Planlama sahifesine" filtreleme ile L sutununa kadar olan veriler çekiliyor.
İsteğim stok listesi sahifesinin sadece A ve B Sutunlarını çeksin.Diğer sutunlardaki veriler gelmesin.
Yardımlarınıza acil ihtiyacım var.
Selametle kalınız.


Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Set sh = Sheets("stok listesi")
If sh.AutoFilterMode Then sh.AutoFilterMode = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat > 1 Then Range("A2:l" & sat).ClearContents
If Range("A1").Value = Empty Then Exit Sub
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("A1").Value & "*"
sh.Range("A1").CurrentRegion.Copy Range("A2")
sh.Range("A1").AutoFilter

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Zeki Gürsoy]

Bu şekilde kullanın..

sh.Range([B]"A1:B65536"[/B]).AutoFilter field:=1, Criteria1:=Range("A1").Value & "*"

 

[kemal turan]

Zeki bey,
Bu kodu hangi kodun yerine kullanayım, veya nereye ekleyeyim.Bu konuda pek bilgim yok da.
Teşekkürler

 

[kemal turan]

Makroyu çalıştıracağım dosya ektedir.
Kolay gelsin.

 

[Zeki Gürsoy]

Dosya ekte..

 

[kemal turan]

Zeki bey,
Yahu sizden allah razı olsun.
Dünden beri defalarca başka konu altında yardım istememe rağmen uzmanlarımız çok yoğundu herhalde cevap alamadım.
Emeğinize sağlık ,hakkınızı helal edin.
Selametle kalın.