Kod İle Sayfanin Belİrlİ BÖlÜmÜnÜ Kopyalama

[ferhatgurbuz]

Sub SAYFAYI_KOPYALA_VE_KAYDET()
dosya = Range("af6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Sheets("ÖdemeEmri").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Yukarıdaki formül sayfanın tamamını kopyalıyor. Benim istediğim A1 ile AC66 arasındaki verileri kopyalasın. Diger gereksiz yerleri kopyalamasın istiyorum.

 

[Orion1]

Aşağıdaki gibi denermisiniz?

Sub SAYFAYI_KOPYALA_VE_KAYDET()
dosya = Range("af6") & "\" & Range("ah7") & ".xls"
Sheets("ÖdemeEmri").Select
Sheets("ÖdemeEmri").Copy
[B][COLOR="Red"]Range("A1:AC66").Copy[/COLOR][/B]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

 

[ferhatgurbuz]

Dosya Ekleme

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Yani bu kodu hatalı gösteriyor. Birde daha önce AF6 hücresindeki dosyanın icine atıyordu. Şimdi hem hata veriyor hemde kitap isimli yeni sayfa açıyor.

 

[Orion1]

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Yani bu kodu hatalı gösteriyor. Birde daha önce AF6 hücresindeki dosyanın icine atıyordu. Şimdi hem hata veriyor hemde kitap isimli yeni sayfa açıyor.

Ben sizin kodlarınızda cells.copy yazan yeri Range("A1:AC66").Copy şeklinde değiştirdim.Başkada bir değişiklik yapmadım.Tekrar eski kodlarınızı kullanabilirsiniz.

 

[ferhatgurbuz]

Tamam TeŞekkÜr Ederİm.