Sayfa isimlerini görecek şekilde veri aktarma

[muratozmenler]

ekte yolladığım dosya içindegerekli bilgi yazıyor kısaca bazı sayfaların bazı bölümlerinden tek bir sayfaya veri aktarmak ve veri aktarılan sayfanın isminide görmek.....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim Sayfa As Worksheet, SA As Worksheet
    Dim Bul As Range, Satır As Long, X As Long
 
    Set SA = Sheets("ANA SAYFA")
    SA.Range("A2:D65536").ClearContents
 
    Satır = Sheets("ANA SAYFA").Range("A65536").End(3).Row + 1
 
    For Each Sayfa In Worksheets
    If Sayfa.Name <> "ANA SAYFA" Then
    Set Bul = Sayfa.Cells.Find("YAPILACAK İŞLER", LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        For X = 2 To Sayfa.Cells(65536, Bul.Column).End(3).Row
            SA.Cells(Satır, 1) = Satır - 1
            SA.Cells(Satır, 2) = Sayfa.Cells(X, Bul.Column + 1)
            SA.Cells(Satır, 3) = Sayfa.Name
            SA.Cells(Satır, 4) = Sayfa.Cells(X, Bul.Column)
            Satır = Satır + 1
        Next
    End If
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ozgretmen]

Sayın muratozmenler iki yerede aynı konuyu açmışsınız.Neden ? Burada sayın Korhan Ayhan bey yanıt vermiş bende kendimce uğraşıp aşağıdaki adreste yanıt vermiştim.İyi çalışmalar dilerim.
http://www.excel.web.tr/f14/sayfalar-gorunecek-sekilde-veri-aktarma-t62242.html

 

[muratozmenler]

öncelikle sayın korhan ayhana beye teşekkürlerimi iletiyorum. hocam bunu farkında olmadan yapmışım excele yeni başlayanlar yerine buraya konu açmışım asıl dediğiniz gibi diğer tarafa açmak istemiştim konuyu yanlışlıkla buraya açınca tektardan orayada yani excele yeni başlayanlar bölümünede açtım. yanlışlığım için özür dilerim ......
bir hata yaptıysam af ola iyi çalışmalar dilerim. Tekrardan ilgilenen üstadlara çok teşekkür ederim..