kopyala-değerleri yapıştır

[umitumit]

bir düğme istiyorum. "tık"ladığım zaman o sayfayı kopyalayıp yeni bir excel sayfasında aynı formatta yapıştırması lazım. sayfayı kopyala-yapıştır yapıyorum ama yeni sayfaya da link atıyor.istediğm sadece değerlerin aynı formatta yeni sayfaya gelmesi.tşk.

 

[gezgin-49]

aşağıdaki makroyu bir deneyin, bu makroyu bir düğmeye atayın "kopyalamak istediğiniz " sayfada A1 hücresine yeni bir sayfa ismi yazdığınızda aynı çalışma kitabı içinde çalışma sayfanızı kopyalapıp A1 hücresine yazdığınız isimle yeni bir sayfa açar

Sub ekle()
Dim i As Integer
If Range("a1").Value = "" Then
MsgBox "Sayfa Adını Yazmadınız.."
Exit Sub
End If
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Range("a1").Value Then
MsgBox "Bu İsimde Bir Sayfa Var.."
Exit Sub
End If
Next i
Sheets("kopyalamak istediğiniz sayfanızın adını buraya yazın").Copy After:=Sheets(sheets.Count)
ActiveSheet.Name = Range("a1").Value
End Sub

 

[umitumit]

cevap

1-macro çalışıyor,teşekkürler
2-aynı dosya içine kopyalıyor (ben farklı bir dosya açmasını istiyorum)
3-sayfayı kopyalarken aynen kopyalıyor (ben sadece değerleri kopyalamasını istiyorum. formüller için link göstermesin,sadece değeri yapıştırsın)

 

[ANTALYA 01]

g

Merhaba

Bu kod banada lazım inşallah bir cevab gelir

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Ayrıca örnek dosya ekledim.

Sub AKTİF_SAYFAYI_KOPYALA_DEĞER_YAPIŞTIR()
    SAYFA_ADI = ActiveSheet.Name
    ActiveSheet.Copy
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
    [A1].Select
    Application.CutCopyMode = False
    ActiveSheet.Shapes("Button 1").Delete
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=SAYFA_ADI & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close True
End Sub

 

[ANTALYA 01]

g

Merhaba

Cevabınız için teşekkür ederim
Dosyayı bilgisayarıma indirdim butona tıklıyorum fakat bu değerleri nereye kopyalıyor Masaüstüne falan kopyalamıyor C sürücüsünün içinede baktım bulamadım.

 

[Korhan Ayhan]

Selamlar,

Belgelerim klasörüne baktınızmı?

 

[Korhan Ayhan]

Selamlar,

Eğer yeni açılan dosyayı belirli bir yere kaydetmek istiyorsanız aşağıdaki şekilde kullanabilirsiniz.

ActiveWorkbook.SaveAs Filename:= [COLOR=red]"C:\Documents and Settings\Korhan\Desktop\"[/COLOR] & SAYFA_ADI & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

 

[ANTALYA 01]

G

Merhabalar

Cevabınız için tşk ederim.Belgerime kaydetmiş

ekteki tabloda işlemi şu şekilde yapıyorum Herhangi bir sayfayı seçiyorum Sayfayı kopyala diyorum

Seçtiğim Sayfayı Başka bir boş exel sayfasına Önce özel yapıştırdan Değerleri ve Sayı Biçimlerini yapıştırıyorum, ardından Özel yapıştırdan Biçimleri yapıştırıyorum
Yeni exel sayfasında Tablodaki formülller gözükmüyor ve Biçimlerde aynı kalıyor.
Sizin vermiş olduğunuz kod daha hızlı yapıyor

Ekteki Tabloda A1 A2 A3 A4 A5 Sayfalar var Toplam 5 Sayfa Fazlada olabilir İlk Sayfada A1 Sayfasında Userform olabilir veya açılır kutu Bu yapmış olduğumuz Seçilen sayfaları yeni bir exel çalışmasına Masaüstüne aktaran exel makrosu nasıl olur.

Kısaca Makronun Kullanıcının Sayfa Seçiminden sonra Seçilen Sayfaların Değerleri Sayı biçimlerini biçimleri Seçilen sayfa kadar A1 A2 2 sayfada olabilir 3 4 5 Sayfada olabilir . Masaüstüne Sadece Seçilen Sayfaları Yeni bir exel tablosunda Sayfa sayfa aktarması

 

[umitumit]

sayın korhan ayhan;
macro çalışıyor ve istediğim sayfayı kopyalıyor.
ancak benim istediğimin tam tersi oluyor.
yani ana dosyadaki formüllere ve linklere sahip dosyayı kopyalıyor, yeni bir sayfa ve dosya olarak yapıştırıyor ama bu esnada ana dosyadaki sayfamı değerler haline getirirken, kopyalanan sayfayı formüllü ve linkli bırakıyor.
ben ise tam tersini istiyorum. ana dosya aynı kalsın, kopyalanan sayfa değerleri içersin. bilmiyorum anlatabildim mi?

şimdiden kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Sn. umitumit,

Örnek dosyayı deneyerek eklemiştim. Siz olmuyor deyince eklemiş olduğum dosyayı şimdi tekrar indirip denedim ve sonuç olumlu. Yani yeni oluşturulan excel dosyasında sadece değerler kalıyor. Ana dosyada ise formüller ve bağlantılar korunuyor.

 

[umitumit]

ÖRNEK DOSYANIZ ÇALIŞIYOR...
demek ki ben bir yerde hata yapıyorum.
sizin macroyu kopyalayıp kendi sayfama yapıştırıyorum.
sonra bir düğme oluşturup macroyu bu düğmeye atıyorum
düğme üzerini tıklayınca microsoft visual basic penceresinde 400 hatası veriyor ve daha önce anlattığım gibi ters kopyalama yapıyor.
acaba sorun bende mi?

 

[Korhan Ayhan]

Selamlar,

Sanırım siz kendi dosyanıza uyarlarken bir hata yaptınız. Bir çalışma hazırlıyorum. Birazdan foruma eklerim.

 

[Korhan Ayhan]

Selamlar,

Hazırladığım çalışmaya aşağıdaki linkten ulaşabilirsiniz.

http://www.excel.web.tr/showthread.php?p=278235#post278235

 

[umitumit]

güzel ve faydalı bir çalışma olmuş
eline sağlık, teşekkürler.
ancak kendii dosyamda nasıl kullanabilirim, nasıl aktarabilirim şimdilik bilmiyorum
yarın detaylı olarak inceleyeceğim.
tekrar ellerine sağlık

 

[ANTALYA 01]

D

Merhabalar

Tam istediğim gibi çok ama çok teşekkür ederim.