Anlaşılmayan Makro

[amigo1905]

Daha önce açmış olduğum ve Cost Control tarafından düzenlenen dosyam üzerinde kendime göre bazı değişiklikler yaptım ve makro üzerinde bazı oynamalarda bulundum. Ama ne kadar uğraştıysamda ilk dosyada yapmak istediğim ve yapabildiğim şeyi üzerinde değişiklik yaptığım 2. dosyada yapamadım. Yazdığım makrolarda bir hata olduğunu tahmin ediyorum ama hatayı nerde yaptığımı bulamıyorum.
Eğer yardımcı olursanız sevinirim.
NOT: Doğru şekilde işleyen dosyayı aşağıda ÖRNEK1 diye;
Makrolarda hata olan ve düzenlenecek dosyayıda ÖRNEK2 diye adlandırdım.

 

[amigo1905]

Örnekler

Örnekleri eklemede bi sorunyaşadım. Örnekler aşağıda

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda stok kartları sayfalarında bulunan A ve G sütunları sıra numarasımı ? Yoksa müşteri numarasımı ? Eğer müşteri numarası ise aşağıdaki kodları kullanabilirsiniz değilse kodda düzenleme yapmamız gerekecek.

Sub AKTAR()
    Application.ScreenUpdating = False
    Set SG = Sheets("GİRİŞ")
    Set SÇ = Sheets("ÇIKIŞ")

    For X = 4 To Sheets.Count
    Sheets(X).[A5:E50].ClearContents
    Sheets(X).[G5:K50].ClearContents
    SG.Select
    [B2].Select
    Selection.AutoFilter Field:=2, Criteria1:=Sheets(X).Name
    If [L1] = 0 Then GoTo Devam1
    [B3:F3].Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(X).Select
    [A5].Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [A1].Select
    SG.Select
    [B2].Select
    Selection.AutoFilter Field:=2
Devam1:
    SÇ.Select
    [B2].Select
    Selection.AutoFilter Field:=2, Criteria1:=Sheets(X).Name
    If [L1] = 0 Then GoTo Devam2
    [B3:F3].Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(X).Select
    [G5].Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [A1].Select
    SÇ.Select
    [B2].Select
    Selection.AutoFilter Field:=2
Devam2:
    Next
    SÇ.Select
    [B2].Select
    Selection.AutoFilter Field:=2
    [A1].Select
    SG.Select
    [B2].Select
    Selection.AutoFilter Field:=2
    [A1].Select
    Application.ScreenUpdating = True
    MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR...!", vbInformation
End Sub

 

[amigo1905]

COST_CONTROL çoook teşekkür ediyorum tam istediğim gibi olmuş. Belge üzerinde değişiklik yaptıktan sonra forumda paylaşırım.
EMEĞİNE SAĞLIK