Soru Sayfa kopyalama

[xemdarx]

Selamlar,
Sayfayı seçili hücrelerle isimlendirerek (Ay Yıl) kopyalayabilir miyiz? Şekiller hariç veya C6:AQ aralığı sadece kopyalanır mı?

 

[turist]

Dosyanız eklidir.

 

[xemdarx]

Sayın @turist ,
Elinize, emeğinize sağlık. Grup 1'i "D6" ya kopyalayabilir miyiz? Ayrıca formüller değil sadece veriler kopyalanabilir mi?

 

[xemdarx]

Afola. C6 ya kopyalanacak.

 

[xemdarx]

Sayfada kodlar varsa onlar da kopyalanmasın.

 

[turist]

Dosyanız eklidir.

 

[xemdarx]

Bu şekilde yaptım. Fakat yine de tam yerleşmedi .

    With Sheets(YeniSayfa).Shapes(Sheets(YeniSayfa).Shapes.Count)
    .Top = Range("D6").Top
    .Left = Range("D6").Left
End With

ücreye.

 

[turist]

Kod'un
ActiveSheet.Shapes.Range(Array("Grup 1")).Select
Selection.ShapeRange.IncrementLeft 160
Selection.ShapeRange.IncrementTop 130

bölümündeki

160 ve 130 değerlerini değiştirerek sayfa şeklinize uyacak şekilde deneyin.

 

[xemdarx]

Nesneyi yerleştirme oldu. Sağolun. Size zahmet, sayfa kopyalanırken içindeki kodlar da kopyalanıyor. Bunu nasıl engelleriz.

 

[turist]

Nesneyi yerleştirme oldu. Sağolun. Size zahmet, sayfa kopyalanırken içindeki kodlar da kopyalanıyor. Bunu nasıl engelleriz.

Sayın @xemdarx
Eklediğiniz ve cevap verdiğim dosyanızda;
"ÇİZELGE" isimli sayfa Yeni bir sayfa olarak kopyalanıyor.Bu sayfada herhangibir "MAKRO KODU" yok.
Kopyalanan sayfadaki Formüller de Yeni sayfada değere dönüştürülüyor.
Lütfen dosyanızı gözden geçirerek, nerede bir istenmeyen ve/veya hatalı durum varsa NET bir şekilde belirtiniz.
İyi çalışmalar.

 

[xemdarx]

Estağfirullah, hata olduğunu söylemiyorum. Kodları sonradan ekledim. Benim hatam. sayfada kod varsa kodlar koplayalanmasın demek istemiştim.

 

[turist]

Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
arasına
Application.CutCopyMode = False



aşağıdaki şekilde ekleyerek deneyin.

Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.CutCopyMode = False

 

[xemdarx]

Bu şekilde olur mu?

With ThisWorkbook.VBProject.VBComponents(Sheets(YeniSayfa).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
End With

 

[turist]

Deneyin.

 

[xemdarx]

Teşekkürler. Hepsi de tam olarak çalıştı.

 

[turist]

Sağolun.