Hücre verisine göre diğer sahifeden istenilen sutun verileri

[kemal turan]

Merhaba,
Ek dosyada diğer sahifeden filtreleme kodu var.
Kod da istediğim değişiklik ,
diğer sahifenin veri bulunan bütün sutunları değilde istenilen sutunların gelmesi.
Dosyada belirttim.
Teşekkür ederim.

 

[Orion1]

Buyurun.

Private Sub TextBox1_Change()

Dim deg As String, sh As Worksheet, sat As Long
If TextBox1.Text = "" Then
Range("a2:n65536").Clear
Else
deg = TextBox1.Text
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("a2:n65536").ClearContents
Set sh = Sheets("liste")
sh.Range("B1").AutoFilter
sat = sh.Cells(65536, "B").End(xlUp).Row
sh.Range("B1").AutoFilter field:=2, Criteria1:=deg & "*"
'sh.Range("B1").CurrentRegion.Copy Range("C2")
sh.Range("B2:B" & sat).SpecialCells(xlCellTypeVisible).Copy Range("C2")
sh.Range("D2:E" & sat).SpecialCells(xlCellTypeVisible).Copy Range("D2")
sh.Range("B1").AutoFilter
Set sh = Nothing
Application.ScreenUpdating = True
End If

End Sub

 

[kemal turan]

Evren bey merhaba,
Çok teşekkür ederim.
Selametle kalınız.

 

[Orion1]

Evren bey merhaba,
Çok teşekkür ederim.
Selametle kalınız.

Merhaba.
İyi çalışmalar.