makro değerler şeklinde kopyalamak

[anthraxx02]

merhabalar arkadaşlar;

sizlerden makro hakkında yardım istiyorum istediğimi dilim döndüğü kadar anlatmaya çalışacağım.

excelde sayfa1 ve sayfa2 mevcut,
sayfa1 de sayısal değerler , sayfa2 de formulle oluşturulmuş sayısal değerler mevcut.(örn; =sayfa1 A1 hücresindedeki değer 100, sayfa2 A1 hücredeki deki formul 'sayfa1I'!A1 *10 )gibidir.Bunun yanı sıra yanındaki belirli sutunlarda sözel yazılar mevcut.
şimdi makrodan istediğimiz. Sayfa1 e konulan düğme yardımı ile sayfa 2 deki sutun ve hatırlardaki hepsini DEĞERLER şekilde yeni bir excel'e kopyalamak.
bu istediğim mümkünmü değilmi bilmiyorum yardımlarınız bekliyorum şimdiden teşekkürler.

 

[anthraxx02]

Yardım edebilecek yokmu ?

 

[betsfat]

var

 

[betsfat]

listele dediğinde syfa 2 deki bilgiler silinsin mi?

 

[PLİNT]

Merhaba
Ek kodları deneyin

Sub kayıt()
Sayfa2.Cells.Copy
Workbooks.Add 1
Set y = ActiveWorkbook.Sheets(1)
y.[A1].PasteSpecial Paste:=xlPasteValues
y.SaveAs Filename:=ThisWorkbook.Path & "\Yedek.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
application.CutCopyMode = False
MsgBox "Sayfa2 Bu dosyanın yanında YEDEK.xlsx adıyla kaydedildi"
End Sub

 

[anthraxx02]

Merhaba
Ek kodları deneyin

Sub kayıt()
Sayfa2.Cells.Copy
Workbooks.Add 1
Set y = ActiveWorkbook.Sheets(1)
y.[A1].PasteSpecial Paste:=xlPasteValues
y.SaveAs Filename:=ThisWorkbook.Path & "\Yedek.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
application.CutCopyMode = False
MsgBox "Sayfa2 Bu dosyanın yanında YEDEK.xlsx adıyla kaydedildi"
End Sub

Teşekkürler.

 

[PLİNT]

Teşekkürler.

Rica ederim. İşlerinizde kolaylıklar dilerim
Birinci satırı kaldırmak için kodlarda aşağıdaki ilgili satırlar aralığına; renkli satırı ekleyebilirsiniz
'.....
'.......kodlar
y.[A1].PasteSpecial Paste:=xlPasteValues
y.[A1].EntireRow.Delete
y.SaveAs Filename:=ThisWorkbook.Path & "\Yedek.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'....
'...diğer kodlar

 

[anthraxx02]

Rica ederim. İşlerinizde kolaylıklar dilerim
Birinci satırı kaldırmak için kodlarda aşağıdaki ilgili satırlar aralığına; renkli satırı ekleyebilirsiniz
'.....
'.......kodlar
y.[A1].PasteSpecial Paste:=xlPasteValues
y.[A1].EntireRow.Delete
y.SaveAs Filename:=ThisWorkbook.Path & "\Yedek.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'....
'...diğer kodlar

Tekrardan Çok Teşekkür ederim