"Var Olan Dosyayı Aç İçine Bu Sayfayı Kaydet" komutları ile alakalı

[Erdem34]

Merhabalar;
.
"Dosya işlemleri" çalısmanızda bulunan bu Makro komutları tam aradığım işi yapıyor ancak ; Sayfayı var olan dosyaya koyalarken Formüllerle değilde içerisindeki verilerle yapıştırması mumkun mudur ?.
.
Yardımlarınız için Şimdiden Teşekkür ederim..
.
Erdem
.
Excel 2007 SP3MSO

 

[halit3]

Merhabalar;
.
"Dosya işlemleri" çalısmanızda bulunan bu Makro komutları tam aradığım işi yapıyor ancak ; Sayfayı var olan dosyaya koyalarken Formüllerle değilde içerisindeki verilerle yapıştırması mumkun mudur ?.
.
Yardımlarınız için Şimdiden Teşekkür ederim..
.
Erdem
.
Excel 2007 SP3MSO

Keşke kullandığınız kodları veya dosyayı ekleseydiniz.

kod:

Sub Var_Olan_Dasyayı_Aç_İçine_Bu_Sayfayı_Kaydet()
dosya_adı = ActiveWorkbook.Name
Sayfa_Adı = ActiveSheet.Name
'GetOpenFilename = Application.FindFile
a = Application.FindFile
'a = Application.GetOpenFilename("All Files (*.*),*.*.")
If a = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If

yeni_dosya_adı = ActiveWorkbook.Name
Windows(dosya_adı).Activate
deger = InputBox("UYARI!" & Chr(10) & _
Chr(10) & "  Yeni sayfa adını yazınız " & Chr(10) & Chr(10) & _
"", _
"DİKKAT !", "", , , "DEMO.HLP", 10)
Sheets(Sayfa_Adı).Copy Before:=Workbooks(yeni_dosya_adı).Sheets(1)
Windows(yeni_dosya_adı).Activate
Sheets(ActiveSheet.Name).Name = deger
ActiveSheet.DrawingObjects.Delete

[COLOR="Red"]Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select[/COLOR]

ActiveWorkbook.Save
ActiveWindow.Close
Windows(dosya_adı).Activate
Sheets(Sayfa_Adı).Select
ActiveWindow.WindowState = xlMaximized
MsgBox "işlem tamam"
End Sub

 

[Erdem34]

Kusura Bakmayın, acemiliğime verin Lütfen
.
Dosyayı ekte gönderdim Dosyadaki Üretim giriş sayfasındaki verileri kopyalamak istiyorum , gönderdiğiniz kodu girip , "Üretim Giriş" sayfasındaki "Sayfa Kopyala" tuşuna bağladığımda hata verdi maalesef.
.

 

[halit3]

Kusura Bakmayın, acemiliğime verin Lütfen
.
Dosyayı ekte gönderdim Dosyadaki Üretim giriş sayfasındaki verileri kopyalamak istiyorum , gönderdiğiniz kodu girip , "Üretim Giriş" sayfasındaki "Sayfa Kopyala" tuşuna bağladığımda hata verdi maalesef.
.

kodlarınızı safanın kod bölümüne koymuşsunuz kodları bir madülün içine koyun ve sayfadaki kodları silin.

 

[Erdem34]

Dediğiniz şekilde yapınca gayet güzel çalıştı..
Çok Teşekkür ederim..