Sayfa Kopyalama

[esolen]

Arkadaşlar merhaba
Excel de birden fazla sayfam var
her sayfanın içinde çok sayıda formil var
bu dosyayın içindeki sayfalararı her defasında tek tek copyala değer yapıştır yapmak zorundayım
bir defada kopyala değer yapıştır nasıl yapabilirim

 

[algil]

Sub Sayfa_Kopyala()
Set s1 = Sheets("Sayfa1") 'Kopyalanacak sayfa
Set s2 = Sheets("Sayfa2") 'kopyalanan değerlerin aktarılacağı sayfa
    s1.Activate
    s1.Cells.Select
    Selection.Copy
    s2.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
End Sub

 

[janveljan]

Kopyalama ve yapıştırmayı aynı sayfa üzerinden yapmayı yani formüllerin üzerine değerleri yapıştırmayı ve bunu kitaptaki tüm sayfalar için yapmayı istediğinizi anlıyorum. Eğer istediğiniz bu ise.

Sub Makro1()
For i = 1 To Sheets.Count
    Sheets(i).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
End Sub

 

[HD1975]

Kopyalama ve yapıştırmayı aynı sayfa üzerinden yapmayı yani formüllerin üzerine değerleri yapıştırmayı ve bunu kitaptaki tüm sayfalar için yapmayı istediğinizi anlıyorum. Eğer istediğiniz bu ise.

Sub Makro1()
For i = 1 To Sheets.Count
    Sheets(i).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
End Sub

Bu makroyu sayfadaki tüm verileri sayfa2'ye yapıştırcak şekilde düzenleyebilirmisniz.

Saygılar

 

[zipir123]

Sayfa 1 değerlerini Sayfa 2'ye yapıştırmak

Bu makroyu sayfadaki tüm verileri sayfa2'ye yapıştırcak şekilde düzenleyebilirmisniz.

Saygılar

Sn. HD1975 ,
bu mokra sayfa 1deki tüm verileri saçarak sadece değerleri sayfa 27ya yapıştırmak içindir .

Sub Makro1()
'
' Makro1 Makro
' Makro deste tarafından 24.03.2009 tarihinde kaydedildi.
'

'
Cells.Select
Selection.Copy
Sheets("Sayfa2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

 

[HD1975]

Teşekkür ederim

Sn. HD1975 ,
bu mokra sayfa 1deki tüm verileri saçarak sadece değerleri sayfa 27ya yapıştırmak içindir .

Sub Makro1()
'
' Makro1 Makro
' Makro deste tarafından 24.03.2009 tarihinde kaydedildi.
'

'
Cells.Select
Selection.Copy
Sheets("Sayfa2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

Çok Makbule geçti,Tşekkür ederim.

Bir sorum daha olacak,bu makroyu başka kitabdan çalıştımak için bir makro
nasıl yapabilriz.

Bu dosya kapalı duracak ve ben bu dosyaya ado ile bağlanıp verileri alıyorum ve yazıyorum.Şimdi aynı dosyadaki bu makroyu dış kitapdan çalıştırmak için bir makroya ihtiyacım var.

Saygılar