Soru herhangi bir sayfayı belirli bir sayfaya tüm özellikleriyle yüklemek

[seryapı]

Yapmaya çalıştığım excel makro çalışmasında yazdığım makro proğramını çalıştırmama rağmen aldığım sonuçta aşağıdaki eksik ve hataları gideremedim.
Excelnın tüm özelliklerine göre kopyalanmadığı ,satır ve sutun özelliklerinin değiştiği ve gizlemek istediğim A sutunu ve U sutunundan sonraki sutunların gizlemesini çok uğraşmama rağmen yapamadım ve diğer hataları gideremedim.
Ben ayrıca yazımın devamında yazmış olduğum hatalı makro modülünü de ekledim. İstediğim sayfalar içinden seçeçeğim herhangi bir sayfanın tüm özelliklerine göre DEM_MET sayfasına kopyalanması ve DEM_MET sayfasının a sutunu ve u sutunundan sonraki sutunların gizlenmesidir.Ayrıca kopyalanan sayfalar sonsuz satırda olacaktır. İstenirse yeni bir makro proğramıda önerile bilir bunda kopyalanacak sayfa isimleri önemli olmazken
kopyalanan sayfanın ismi sadece DEM_MET olacaktır. Kod proğramında DEM_MET İSİMLİ sayfa indeksi 3 dür.Bu konularda yardım ve önerilerinizi bekliyorum.

modül 12:

Sub DEM_MET_KOPYALA()

Application.ScreenUpdating = False
Sheets("DEM_MET").Select
Cells.Select
Selection.Delete Shift:=xlUp
SAYFA_ADI = Application.InputBox("Aktarılacak sayfa adı giriniz.")
'SAYFA_ADI = ActiveSheet.Range("B3")
aaa = SAYFA_ADI
Sheets(SAYFA_ADI).Select
For S = 1 To Sheets.Count
If Sheets(S).Name = "DEM_MET" Then
ActiveSheet.UsedRange.Copy Sheets("DEM_MET").Range("a1")
Sheets("DEM_MET").Select
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Rows("1:1").RowHeight = 72
Columns("B:B").ColumnWidth = 26.86
Columns("C:C").ColumnWidth = 30.86
'SAYFA_ADI = Application.InputBox("Aktarılan aktif sayfa ismini giriniz")
SAYFA_ADI_ = aaa
Sheets(SAYFA_ADI).Select
Range("B3").Select
Selection.Copy
Sheets("DEM_MET").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Application.ScreenUpdating = False
End Sub

Yardım ve önerilerinizi bekler hepinize selam eder saygılarımı sunarım.

 

[Seyit Tiken]

Kodu kendinize göre revize ediniz, Sayfa1 ismi esas alınmıştır.

Sheets("Sayfa1").Copy After:=Sheets(1)

 

[seryapı]

Sayın bay SeyitTiken
Her şeyden önce ilgi ve yardımınız için çok teşekkür ederim.
Sheets("Sayfa1").Copy After:=Sheets(1) örneğinizi aşağıdaki makroya revize etmeye çalışarak eklediğimde kopyalanan sayfayı DEM_MET
olarak değilde sayfa adını artırarak ekliyor.
Halbuki ben DEM_MET sayfasına kopyalanmasını istiyorum.
Aşağıya yazdığım makroyu ekledim.Ama istediğim sonucu alamadım.Yapmış olduğum hataları bulamadım.
Bir de bunlara DIM fonksiyonunu nasıl yazacağımı bilemedim bu konudada yardımlarınızı bekler ve makrodaki hataları düzeltirseniz çok sevinirim.

Sub DEM_MET_KOPYALA()

Application.ScreenUpdating = False
Sheets("DEM_MET").Select
Cells.Select
Selection.Delete Shift:=xlUp

SAYFA_ADI = Application.InputBox("Aktarılacak sayfa adı giriniz.")
AAA = SAYFA_ADI
For S = 1 To Sheets.Count

If Sheets(S).Name = "DEM_MET" Then

Sheets(AAA).Copy After:=Sheets("DEM_MET")

Sheets("DEM_MET").Select

For i = 1 To 100
If i = 1 Then
Sheets("DEM_MET").Columns(1).Delete
If i => 22 Then
Sheets("DEM_MET").Columns("21:60").Delete
End If
End If
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True

End If
End If
End If
End If
End If
Next S

Application.ScreenUpdating = False

End Sub
Bu konularda yardımınızı beklerim. Sizlere bol selamlar.

 

[muratboz06]

Seyit Bey'in çözüm yolundan ilhamen.

Sub DEM_MET_KOPYALA()
Application.DisplayAlerts = False
Sheets("DEM_MET").Delete
ActiveSheet.Copy After:=Sheets(2)
Sheets(3).Name = "DEM_MET"
Application.DisplayAlerts = True
End Sub

 

[seryapı]

Seyit Bey'in çözüm yolundan ilhamen.

Sub DEM_MET_KOPYALA()
Application.DisplayAlerts = False
Sheets("DEM_MET").Delete
ActiveSheet.Copy After:=Sheets(2)
Sheets(3).Name = "DEM_MET"
Application.DisplayAlerts = True
End Sub

Merhaba sayın Murat Boz.
Göstermiş olduğunuz ilgi ve yardıma çok teşekkür ederim.
Yardımlarınız sayesinde sorunlar ı cözdüm.
Hepinize hoşcakal der saygılarımı sunarım.
Selamlar.