makro ile verileri diger sayfalara aktar

[mergul]

İyi akşamlar, ekte yer alan dosyada açıkladığım üzere makro ile diğer sayfalara veri aktarmam gerek. Daha önce de benzer konuda foruma konu eklemiştim. Ama derdimi iyi anlatamadım galiba. Tekrar güncelleyerek dosyayı ekledim. Yardımcı olabilirseniz sevinirim...

 

[dEdE]

Merhaba,
Aşağıdaki kodları örnek dosyanızda bir modüle yapıştırarak dener misiniz?

Sub aktar()
For i = 2 To Sheets("GİRİŞ").[A65536].End(3).Row
    Select Case Cells(i, 13).Value
        Case Is = "BDO":
            Son1 = Sheets("BDO").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("BDO").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i & ":O" & i).Copy Sheets("BDO").Range("F" & Son1)
        Case Is = "ÖZ":
            Son1 = Sheets("ÖZ").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":C" & i).Copy Sheets("ÖZ").Range("A" & Son1)
            Sheets("GİRİŞ").Range("I" & i & ":J" & i).Copy Sheets("ÖZ").Range("D" & Son1)
            Sheets("GİRİŞ").Range("D" & i & ":E" & i).Copy Sheets("ÖZ").Range("F" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("ÖZ").Range("H" & Son1)
        Case Is = "İİ":
            Son1 = Sheets("İİ").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":C" & i).Copy Sheets("İİ").Range("A" & Son1)
            Sheets("GİRİŞ").Range("F" & i & ":G" & i).Copy Sheets("İİ").Range("D" & Son1)
            Sheets("GİRİŞ").Range("D" & i & ":E" & i).Copy Sheets("İİ").Range("F" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("İİ").Range("H" & Son1)
        Case Is = "ÖA":
            Son1 = Sheets("ÖA").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("ÖA").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("ÖA").Range("F" & Son1)
        Case Is = "SOR":
            Son1 = Sheets("SOR").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("SOR").Range("A" & Son1)
            Sheets("GİRİŞ").Range("I" & i & ":J" & i).Copy Sheets("SOR").Range("F" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("SOR").Range("H" & Son1)
        Case Is = "MUA":
            Son1 = Sheets("MUA").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("MUA").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("MUA").Range("F" & Son1)
        Case Is = "MNF":
            Son1 = Sheets("MNF").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("MNF").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("MNF").Range("F" & Son1)
        Case Is = "DNŞ":
            Son1 = Sheets("DNŞ").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("DNŞ").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("DNŞ").Range("F" & Son1)
        Case Is = "DİG":
            Son1 = Sheets("DİG").[A65536].End(3).Row + 1
            Sheets("GİRİŞ").Range("A" & i & ":E" & i).Copy Sheets("DİG").Range("A" & Son1)
            Sheets("GİRİŞ").Range("N" & i).Copy Sheets("DİG").Range("F" & Son1)
    End Select
Next
End Sub

 

[mergul]

Elinize ve beyninize sağlık, teşekkür ederim. Çalışıyor, sadece sayfalara aktarırken sıra nolarını bulunduğu sıra nosu ile aktarıyor, onları her sayfada 1,2,3 şeklinde sıralatabilir miyiz? olmazsa da önemli değil, çok çok teşekkür ederim...

 

[mergul]

Birde kodları asıl dosyama yapıştırdım makro çalışmadı. Acaba satırlarda yer alan

Son1 = Sheets("BDO").[A65536].End(3).Row + 1

"Son1" ifadesi neyi temsil ediyor, hata ondan mı kaynaklanıyor? yardımcı olursanız sevinirim.

 

[dEdE]

Merhaba,

.....Son1 = Sheets("BDO").[A65536].End(3).Row + 1
"Son1" ifadesi ...

ifadesi BDO sayfasının A sütununa bakarak dolu son satırın bir altındaki boş satırın numarasını veriyor.
Asıl dosyanızda çalışmamasının nedenini bilmek zor ama olası hatalar örnek dosya ile asıl dosyanın birebir uyuşmamasından kaynaklanır.
Hoşçakalın.