Veri Aktarma

[aSi_Turk]

Arkadaşlar elimde bulunan listedeki firmalara göre erzak çeşitlerini başka bir sayfada listelemek istiyorum. Ekli dosyada örnek var yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ektedir.

Sub erzak59()
Dim sh As Worksheet
Sheets("Manav").Select
Set sh = Sheets("Liste")
Range("A2:C65536").Clear
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("E1").Value
sh.Range("A1").CurrentRegion.Offset(1, 1).Copy Range("A2")
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[aSi_Turk]

çok teşekkürler Orion1 başarılar

 

[Orion1]

çok teşekkürler Orion1 başarılar

Rica ederim.Sizede başarılar.