• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Soru Sayfa kopyalama

xemdarx

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

Ekli dosyalar

xemdarx

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#3
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

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#5
Sayfada kodlar varsa onlar da kopyalanmasın.
 

xemdarx

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#7
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
4,741
Beğeniler
349
Excel Vers. ve Dili
2013 64Bit
English
#8
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

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#9
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
4,741
Beğeniler
349
Excel Vers. ve Dili
2013 64Bit
English
#10
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

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#11
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
4,741
Beğeniler
349
Excel Vers. ve Dili
2013 64Bit
English
#12
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

Altın Üye
Katılım
11 Şubat 2010
Mesajlar
143
Beğeniler
7
Excel Vers. ve Dili
13 türkçe
#13
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
4,741
Beğeniler
349
Excel Vers. ve Dili
2013 64Bit
English
#16
Sağolun.
 
Üst