[Yardım]  Excel makro ile sayfalardan seçerek bir sayfaya kopyalamak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel makro ile sayfalardan seçerek bir sayfaya kopyalamak

İleti#1)  asım5460 » 24 Mar 2020 16:06

excenı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.
Bu konularda yardım ve önerilerinizi bekliyorum.
Ben dosyayı rar la sıkıştırarak ekledim ve ayrıca yazımın devamını yazmış olduğum hatalı makro modülünü de ekleddim.
Dosyadaki 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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
asım5460
Yeni Başlamış
 
Kayıt: 09 Nis 2019 11:57
Meslek: İnş müh.
Yaş: 61
İleti: 54
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri/Kocasinan

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe