Çalışma Kitabı Başlığını Sütuna Yazdırmak

[igultekin2000]

İyi akşamlar adet olarak çok miktarda çalışma kitapları geliyor. Bunları birleştirerek veri kontrol amaçlı kullanıyorum. Gelen çalışma sayfalarını isimlerini o çalışma sayfasının A sütunu boyunca (dolu kısmı boyunca) M sütünuna yazdırmak istiyorum. Bununla ilgili nasıl bir makro olabilir. Teşekkürler.

 

[Ziynettin]

Sub test()
    son = Cells(Rows.Count, 1).End(3).Row
    If son > 1 Then
        [M2].Resize(son - 1) = Split(ThisWorkbook.Name, ".xlsx")(0)
    End If
End Sub

 

[igultekin2000]

Teşekkür ederim, tekli sayfalarda sorunsuz çalışıyor. Bu şekilde kullanabilirim anacak aynı anda 30 adet çalışma kitabında da uygulamak istesek bu kod uyarlanabilir mi? İyi çalışmalar.

 

[igultekin2000]

Merhaba, yazılan bu makroyu belirlenen klasör içindeki çalışma kitaplarına uygulamak için şöyle bir kod buldum ancak çalışma sayfasının ismini M sütununa kopyalıyor. Bunu asıl kod gibi kendi çalışma sayfasının ismi şeklinde düzeltmek mümkün olabilir mi? Teşekkürler

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
                 son = Cells(Rows.Count, 1).End(3).Row
    If son > 1 Then
        [M2].Resize(son - 1) = Split(ThisWorkbook.Name, ".xlsx")(0)
    End If
            End With
            xFileName = Dir
        Loop
    End If
End Sub

asıl kullandığımız kod, your code here'den başlayıp, End if ile son buluyor

 

[igultekin2000]

günceldir, üstatların bilgilerine ihtiyacımız vardır. Teşekkür ederiz.