Soru Sayfa kopyalama

Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Selamlar,
Sayfayı seçili hücrelerle isimlendirerek (Ay Yıl) kopyalayabilir miyiz? Şekiller hariç veya C6:AQ aralığı sadece kopyalanır mı?
 

Ekli dosyalar

Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
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?
 
Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Sayfada kodlar varsa onlar da kopyalanmasın.
 
Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Bu şekilde yaptım. Fakat yine de tam yerleşmedi .
Kod:
    With Sheets(YeniSayfa).Shapes(Sheets(YeniSayfa).Shapes.Count)
    .Top = Range("D6").Top
    .Left = Range("D6").Left
End With
ücreye.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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.
 
Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Nesneyi yerleştirme oldu. Sağolun. Size zahmet, sayfa kopyalanırken içindeki kodlar da kopyalanıyor. Bunu nasıl engelleriz.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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.
 
Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Estağfirullah, hata olduğunu söylemiyorum. Kodları sonradan ekledim. Benim hatam. sayfada kod varsa kodlar koplayalanmasın demek istemiştim.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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
 
Katılım
11 Şubat 2010
Mesajlar
202
Excel Vers. ve Dili
13 türkçe
Bu şekilde olur mu?
Kod:
With ThisWorkbook.VBProject.VBComponents(Sheets(YeniSayfa).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
End With
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağolun.
 
Üst