Sayfadan sayfaya veri Aktarımı

[gunhan46]

Merhaba arkadaşlar

Sayfalar arası veri aktarımı (sadece dolu hücreleri) bu konudaki yardımlarınızı okudum benim de buna benzer bir sorum var yardım ederseniz çok sevinirim

benim sorum ben de aynı şekilde verilerin diğer sayfaya süzülmesini istiyorum ama bende üren kodunu yazdığım verinin gelmesini istiyorum

9126 kodlu ürünün beyazı siyahı v.s. gibi çeşitleri var ben 9126 yazdığımda hepsinin gelmesini istiyorum yardımlarınız için şimdiden teşekkürler.
aşağıdaki ekte dosya mevcut

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet, STR As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Range("B1")) Is Nothing Then _
Application.EnableEvents = True: Application.ScreenUpdating = True: Exit Sub
Set S1 = Sheets("MAGAZA")
Range("A3:G" & Rows.Count).ClearContents
STR = S1.Range("A" & Rows.Count).End(xlUp).Row
S1.Range("A1:G" & STR).AutoFilter 2, "=*" & Range("B1") & "*", xlAnd
If WorksheetFunction.Subtotal(3, S1.Range("A2:A" & STR)) > 0 Then
S1.Range("A2:G" & STR).Copy Range("A3")
End If
S1.Range("A1:G" & STR).AutoFilter
Application.EnableEvents = True
Application.EnableEvents = True
End Sub

B1 hücresindeki değişikliğe göre çalışır.

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sh As Worksheet
Sheets("ARA").Select
Set sh = Sheets("MAGAZA")
Range("A2:G" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
Application.ScreenUpdating = False
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:=Range("B1").Value & "*"
sh.Range("A1").CurrentRegion.Copy
Range("A2").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
sh.Range("A1").AutoFilter
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[gunhan46]

Çok TEŞEKKÜR ederim elinize sağlık tam istediğim gibi olmuş.

 

[asi_kral]

Çok TEŞEKKÜR ederim elinize sağlık tam istediğim gibi olmuş.

Kolay Gelsin.