Yardım Makro kodunun çalıştığı sütunu değiştirmek

hadromer · 23 Ocak 2021

Merhaba,
Daha önce Çözüldü - Bir sütundaki verileri ayrı ayrı sayfalara kopyalamak bu linkte Murat Bey'in yardımlarıyla sorunum çözülmüştü. Şimdi o dosyadaki sütunlarda bir değişiklik yapmak zorunda kaldım. Kodu inceleyince göreceksiniz formül kaynak sayfasındaki verileri "T" sütununa kopyalayıp ondan sonra işlem yapıyordu. Ancak yeni dosyamda İşlem yapılacak olan sütun "V" sütunu oldu. Aşağıdaki kodda t hücresi ile ilgili yerlere V yazsam yine aynı şekilde çalışır mı ?

Kod:

Sub SutunlariTasiveSayfalariOlustur()
    On Error Resume Next
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = FALSE
    Application.DisplayStatusBar = FALSE
    Application.EnableEvents = FALSE
    Dim kaynak As Worksheet
    Dim sablon As Worksheet
    
    Set kaynak = ThisWorkbook.Sheets("Kaynak")
    Set sablon = ThisWorkbook.Sheets("Şablon")
    
    sablon.Range("T:T").ClearContents
    sonSutun = kaynak.Range("XFD2").End(xlToLeft).Column
    sonSatir = kaynak.Range("A65536").End(xlUp).Row
    
    For i = 1 To sonSutun
        kaynak.Range(Cells(2, i), Cells(sonSatir, i)).Copy
        sablon.Range("T2").PasteSpecial
        sablon.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ActiveSheet.Name = kaynak.Cells(2, i).Value
        ActiveSheet.Range("T2").Select
        sablon.Range("T:T").ClearContents
        kaynak.Select
    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = TRUE
    Application.DisplayStatusBar = TRUE
    Application.EnableEvents = TRUE
    MsgBox "İşlem tamamlandı."
End Sub

Yardım Makro kodunun çalıştığı sütunu değiştirmek

hadromer